Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
921a8935
Commit
921a8935
authored
Aug 06, 1992
by
Joseph Arceneaux
Browse files
Replaced NULL with N
parent
e6d38bed
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
10 deletions
+10
-10
src/bytecode.c
src/bytecode.c
+10
-10
No files found.
src/bytecode.c
View file @
921a8935
/* Execution of byte code produced by bytecomp.el.
Copyright (C) 1985, 1986, 1987, 1988 Free Software Foundation, Inc.
Copyright (C) 1985, 1986, 1987, 1988
, 1992
Free Software Foundation, Inc.
This file is part of GNU Emacs.
...
...
@@ -424,7 +424,7 @@ If the third argument is incorrect, Emacs may crash.")
case
Bgotoifnil
:
op
=
FETCH2
;
if
(
N
ULL
(
POP
))
if
(
N
ILP
(
POP
))
{
QUIT
;
pc
=
XSTRING
(
string_saved
)
->
data
+
op
;
...
...
@@ -433,7 +433,7 @@ If the third argument is incorrect, Emacs may crash.")
case
Bgotoifnonnil
:
op
=
FETCH2
;
if
(
!
N
ULL
(
POP
))
if
(
!
N
ILP
(
POP
))
{
QUIT
;
pc
=
XSTRING
(
string_saved
)
->
data
+
op
;
...
...
@@ -442,7 +442,7 @@ If the third argument is incorrect, Emacs may crash.")
case
Bgotoifnilelsepop
:
op
=
FETCH2
;
if
(
N
ULL
(
TOP
))
if
(
N
ILP
(
TOP
))
{
QUIT
;
pc
=
XSTRING
(
string_saved
)
->
data
+
op
;
...
...
@@ -452,7 +452,7 @@ If the third argument is incorrect, Emacs may crash.")
case
Bgotoifnonnilelsepop
:
op
=
FETCH2
;
if
(
!
N
ULL
(
TOP
))
if
(
!
N
ILP
(
TOP
))
{
QUIT
;
pc
=
XSTRING
(
string_saved
)
->
data
+
op
;
...
...
@@ -529,7 +529,7 @@ If the third argument is incorrect, Emacs may crash.")
{
if
(
CONSP
(
v1
))
v1
=
XCONS
(
v1
)
->
cdr
;
else
if
(
!
N
ULL
(
v1
))
else
if
(
!
N
ILP
(
v1
))
{
immediate_quit
=
0
;
v1
=
wrong_type_argument
(
Qlistp
,
v1
);
...
...
@@ -553,7 +553,7 @@ If the third argument is incorrect, Emacs may crash.")
break
;
case
Blistp
:
TOP
=
CONSP
(
TOP
)
||
N
ULL
(
TOP
)
?
Qt
:
Qnil
;
TOP
=
CONSP
(
TOP
)
||
N
ILP
(
TOP
)
?
Qt
:
Qnil
;
break
;
case
Beq
:
...
...
@@ -567,21 +567,21 @@ If the third argument is incorrect, Emacs may crash.")
break
;
case
Bnot
:
TOP
=
N
ULL
(
TOP
)
?
Qt
:
Qnil
;
TOP
=
N
ILP
(
TOP
)
?
Qt
:
Qnil
;
break
;
case
Bcar
:
v1
=
TOP
;
docar:
if
(
CONSP
(
v1
))
TOP
=
XCONS
(
v1
)
->
car
;
else
if
(
N
ULL
(
v1
))
TOP
=
Qnil
;
else
if
(
N
ILP
(
v1
))
TOP
=
Qnil
;
else
Fcar
(
wrong_type_argument
(
Qlistp
,
v1
));
break
;
case
Bcdr
:
v1
=
TOP
;
if
(
CONSP
(
v1
))
TOP
=
XCONS
(
v1
)
->
cdr
;
else
if
(
N
ULL
(
v1
))
TOP
=
Qnil
;
else
if
(
N
ILP
(
v1
))
TOP
=
Qnil
;
else
Fcdr
(
wrong_type_argument
(
Qlistp
,
v1
));
break
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment