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
a33ef3ab
Commit
a33ef3ab
authored
Jan 14, 1992
by
Jim Blandy
Browse files
*** empty log message ***
parent
6449c898
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
34 additions
and
24 deletions
+34
-24
src/config.in
src/config.in
+12
-8
src/data.c
src/data.c
+17
-16
src/s/usg5-3.h
src/s/usg5-3.h
+5
-0
No files found.
src/config.in
View file @
a33ef3ab
...
...
@@ -25,14 +25,14 @@ and this notice must be preserved on all copies. */
See the file ../share-lib/MACHINES for a list of systems and
the names of the s- files to use for them.
See s-template.h for documentation on writing s- files. */
#include "opsystem
.h
"
#include "
@
opsystem
@
"
/* The configuration script links machine.h to a m- file that
describes the machine and system you use.
See the file ../share-lib/MACHINES for a list of machines and
the names of the m- files to use for them.
See m-template.h for info on what m- files should define. */
#include "machine
.h
"
#include "
@
machine
@
"
/* Load in the conversion definitions if this system
needs them and the source file being compiled has not
...
...
@@ -105,12 +105,6 @@ and this notice must be preserved on all copies. */
/* #define HIGHPRI */
#endif
/* support `getenv' and `setenv' in Emacs (unix only) */
#ifndef MAINTAIN_ENVIRONMENT
/* #define MAINTAIN_ENVIRONMENT */
#endif
/* Define LISP_FLOAT_TYPE if you want emacs to support floating-point
numbers. */
...
...
@@ -170,3 +164,13 @@ and this notice must be preserved on all copies. */
#else
#define GLYPH unsigned char
#endif
/* Define the return type of signal handlers if the s-xxx file
did not already do so. */
#ifndef SIGTYPE
#ifdef __STDC__
#define SIGTYPE void
#else
#define SIGTYPE int
#endif
#endif
src/data.c
View file @
a33ef3ab
...
...
@@ -73,7 +73,7 @@ wrong_type_argument (predicate, value)
value
=
Fsignal
(
Qwrong_type_argument
,
Fcons
(
predicate
,
Fcons
(
value
,
Qnil
)));
tem
=
call1
(
predicate
,
value
);
}
while
(
N
ULL
(
tem
));
while
(
N
ILP
(
tem
));
return
value
;
}
...
...
@@ -140,7 +140,7 @@ DEFUN ("null", Fnull, Snull, 1, 1, 0, "T if OBJECT is nil.")
(
obj
)
Lisp_Object
obj
;
{
if
(
N
ULL
(
obj
))
if
(
N
ILP
(
obj
))
return
Qt
;
return
Qnil
;
}
...
...
@@ -167,7 +167,7 @@ DEFUN ("listp", Flistp, Slistp, 1, 1, 0, "T if OBJECT is a list. This includes
(
obj
)
Lisp_Object
obj
;
{
if
(
XTYPE
(
obj
)
==
Lisp_Cons
||
N
ULL
(
obj
))
if
(
XTYPE
(
obj
)
==
Lisp_Cons
||
N
ILP
(
obj
))
return
Qt
;
return
Qnil
;
}
...
...
@@ -176,7 +176,7 @@ DEFUN ("nlistp", Fnlistp, Snlistp, 1, 1, 0, "T if OBJECT is not a list. Lists i
(
obj
)
Lisp_Object
obj
;
{
if
(
XTYPE
(
obj
)
==
Lisp_Cons
||
N
ULL
(
obj
))
if
(
XTYPE
(
obj
)
==
Lisp_Cons
||
N
ILP
(
obj
))
return
Qnil
;
return
Qt
;
}
...
...
@@ -222,7 +222,7 @@ DEFUN ("sequencep", Fsequencep, Ssequencep, 1, 1, 0,
(
obj
)
register
Lisp_Object
obj
;
{
if
(
CONSP
(
obj
)
||
N
ULL
(
obj
)
||
if
(
CONSP
(
obj
)
||
N
ILP
(
obj
)
||
XTYPE
(
obj
)
==
Lisp_Vector
||
XTYPE
(
obj
)
==
Lisp_String
)
return
Qt
;
return
Qnil
;
...
...
@@ -463,7 +463,7 @@ DEFUN ("makunbound", Fmakunbound, Smakunbound, 1, 1, 0, "Make SYMBOL's value be
register
Lisp_Object
sym
;
{
CHECK_SYMBOL
(
sym
,
0
);
if
(
N
ULL
(
sym
)
||
EQ
(
sym
,
Qt
))
if
(
N
ILP
(
sym
)
||
EQ
(
sym
,
Qt
))
return
Fsignal
(
Qsetting_constant
,
Fcons
(
sym
,
Qnil
));
Fset
(
sym
,
Qunbound
);
return
sym
;
...
...
@@ -514,7 +514,7 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
register
Lisp_Object
sym
,
newdef
;
{
CHECK_SYMBOL
(
sym
,
0
);
if
(
!
N
ULL
(
Vautoload_queue
)
&&
!
EQ
(
XSYMBOL
(
sym
)
->
function
,
Qunbound
))
if
(
!
N
ILP
(
Vautoload_queue
)
&&
!
EQ
(
XSYMBOL
(
sym
)
->
function
,
Qunbound
))
Vautoload_queue
=
Fcons
(
Fcons
(
sym
,
XSYMBOL
(
sym
)
->
function
),
Vautoload_queue
);
XSYMBOL
(
sym
)
->
function
=
newdef
;
...
...
@@ -589,7 +589,7 @@ store_symval_forwarding (sym, valcontents, newval)
break
;
case
Lisp_Boolfwd
:
*
XINTPTR
(
valcontents
)
=
N
ULL
(
newval
)
?
0
:
1
;
*
XINTPTR
(
valcontents
)
=
N
ILP
(
newval
)
?
0
:
1
;
break
;
case
Lisp_Objfwd
:
...
...
@@ -635,12 +635,12 @@ swap_in_symval_forwarding (sym, valcontents)
register
Lisp_Object
tem1
;
tem1
=
XCONS
(
XCONS
(
valcontents
)
->
cdr
)
->
car
;
if
(
N
ULL
(
tem1
)
||
current_buffer
!=
XBUFFER
(
tem1
))
if
(
N
ILP
(
tem1
)
||
current_buffer
!=
XBUFFER
(
tem1
))
{
tem1
=
XCONS
(
XCONS
(
XCONS
(
valcontents
)
->
cdr
)
->
cdr
)
->
car
;
Fsetcdr
(
tem1
,
do_symval_forwarding
(
XCONS
(
valcontents
)
->
car
));
tem1
=
assq_no_quit
(
sym
,
current_buffer
->
local_var_alist
);
if
(
N
ULL
(
tem1
))
if
(
N
ILP
(
tem1
))
tem1
=
XCONS
(
XCONS
(
valcontents
)
->
cdr
)
->
cdr
;
XCONS
(
XCONS
(
XCONS
(
valcontents
)
->
cdr
)
->
cdr
)
->
car
=
tem1
;
XSET
(
XCONS
(
XCONS
(
valcontents
)
->
cdr
)
->
car
,
Lisp_Buffer
,
current_buffer
);
...
...
@@ -716,7 +716,7 @@ DEFUN ("set", Fset, Sset, 2, 2, 0,
#endif
/* RTPC_REGISTER_BUG */
CHECK_SYMBOL
(
sym
,
0
);
if
(
N
ULL
(
sym
)
||
EQ
(
sym
,
Qt
))
if
(
N
ILP
(
sym
)
||
EQ
(
sym
,
Qt
))
return
Fsignal
(
Qsetting_constant
,
Fcons
(
sym
,
Qnil
));
valcontents
=
XSYMBOL
(
sym
)
->
value
;
...
...
@@ -753,7 +753,7 @@ DEFUN ("set", Fset, Sset, 2, 2, 0,
Fsetcdr
(
current_alist_element
,
do_symval_forwarding
(
XCONS
(
valcontents
)
->
car
));
tem1
=
Fassq
(
sym
,
current_buffer
->
local_var_alist
);
if
(
N
ULL
(
tem1
))
if
(
N
ILP
(
tem1
))
/* This buffer sees the default value still.
If type is Lisp_Some_Buffer_Local_Value, set the default value.
If type is Lisp_Buffer_Local_Value, give this buffer a local value
...
...
@@ -917,7 +917,7 @@ not have their own values for this variable.")
register
Lisp_Object
val
,
sym
;
struct
gcpro
gcpro1
;
if
(
N
ULL
(
args
))
if
(
N
ILP
(
args
))
return
Qnil
;
args_left
=
args
;
...
...
@@ -930,7 +930,7 @@ not have their own values for this variable.")
Fset_default
(
sym
,
val
);
args_left
=
Fcdr
(
Fcdr
(
args_left
));
}
while
(
!
N
ULL
(
args_left
));
while
(
!
N
ILP
(
args_left
));
UNGCPRO
;
return
val
;
...
...
@@ -1014,7 +1014,7 @@ just as if the variable were set.")
}
/* Make sure this buffer has its own value of sym */
tem
=
Fassq
(
sym
,
current_buffer
->
local_var_alist
);
if
(
N
ULL
(
tem
))
if
(
N
ILP
(
tem
))
{
current_buffer
->
local_var_alist
=
Fcons
(
Fcons
(
sym
,
XCONS
(
XCONS
(
XCONS
(
XSYMBOL
(
sym
)
->
value
)
->
cdr
)
->
cdr
)
->
cdr
),
...
...
@@ -1069,7 +1069,7 @@ From now on the default value will apply in this buffer.")
/* Get rid of this buffer's alist element, if any */
tem
=
Fassq
(
sym
,
current_buffer
->
local_var_alist
);
if
(
!
N
ULL
(
tem
))
if
(
!
N
ILP
(
tem
))
current_buffer
->
local_var_alist
=
Fdelq
(
tem
,
current_buffer
->
local_var_alist
);
/* Make sure symbol does not think it is set up for this buffer;
...
...
@@ -1933,6 +1933,7 @@ syms_of_data ()
defsubr
(
&
Slognot
);
}
SIGTYPE
arith_error
(
signo
)
int
signo
;
{
...
...
src/s/usg5-3.h
View file @
a33ef3ab
...
...
@@ -213,3 +213,8 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
/* Enable support for shared libraries in unexec. */
#define USG_SHARED_LIBRARIES
/* On USG systems signal handlers return void */
#define SIGTYPE void
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