Mercurial > hg > xemacs-beta
annotate src/s/sunos4-1.h @ 4686:cdabd56ce1b5
Fix various small issues with the multiple-value implementation.
lisp/ChangeLog addition:
2009-08-31 Aidan Kehoe <kehoea@parhasard.net>
* byte-optimize.el (byte-optimize-form-code-walker):
Be careful about discarding multiple values when optimising
#'prog1 calls.
(byte-optimize-or):
Preserve any trailing nil, as this is a supported way to
explicitly discard multiple values.
(byte-optimize-cond-1):
Discard multiple values with a singleton followed by no more
clauses.
* bytecomp.el (progn):
(prog1):
(prog2):
Be careful about discarding multiple values in the byte-hunk
handler of these three forms.
* bytecomp.el (byte-compile-prog1, byte-compile-prog2):
Don't call #'values explicitly, use `(or ,(pop form) nil) instead,
since that compiles to bytecode, not a funcall.
* bytecomp.el (byte-compile-values):
With one non-const argument, byte-compile to `(or ,(second form)
nil), not an explicit #'values call.
* bytecomp.el (byte-compile-insert-header):
Be nicer in the error message to emacs versions that don't
understand our bytecode.
src/ChangeLog addition:
2009-08-31 Aidan Kehoe <kehoea@parhasard.net>
* eval.c (For, Fand):
Don't declare val as REGISTER in these functions, for some reason
it breaks the non-DEBUG union build. These functions are only
called from interpreted code, the performance implication doesn't
matter. Thank you Robert Delius Royar!
* eval.c (Fmultiple_value_list_internal):
Error on too many arguments.
tests/ChangeLog addition:
2009-08-31 Aidan Kehoe <kehoea@parhasard.net>
* automated/lisp-tests.el (Assert-rounding):
Remove an overly-verbose failure message here.
Correct a couple of tests which were buggy in themselves. Add
three new tests, checking the behaviour of #'or and #'and when
passed zero arguments, and a Known-Bug-Expect-Failure call
involving letf and values. (The bug predates the C-level
multiple-value implementation.)
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 06 Sep 2009 19:36:02 +0100 |
parents | 3ecd8885ac67 |
children |
rev | line source |
---|---|
428 | 1 /* Synched up with: FSF 19.31. */ |
2 | |
3 #include "sunos4-0.h" | |
4 | |
5 /* 4.1.1 makes these system calls interruptible. */ | |
6 | |
7 #define INTERRUPTIBLE_OPEN | |
8 #define INTERRUPTIBLE_CLOSE | |
9 #define INTERRUPTIBLE_IO | |
10 | |
11 /* Cause the compilation of oldxmenu to use the right -I option. */ | |
12 #define OLDXMENU_OPTIONS CFLAGS=C_SWITCH_SYSTEM | |
13 | |
14 #if 0 /* RMSmacs */ | |
15 FSF says the following, but apparently the HAVE_RES_INIT stuff takes | |
16 care of it properly? | |
17 /* #if 0 This isn't right. Apparently some sites do have -lresolv | |
18 but don't use that. On those systems, the code below loses. | |
19 There's no way to win automatically unless someone | |
20 figures out a way of determining automatically which way is right | |
21 on any given system. */ | |
22 #endif | |
23 | |
24 /* Some systems do not run the Network Information Service, but have | |
25 modified the shared C library to include resolver support without | |
26 also changing the C archive library (/usr/lib/libc.a). If we | |
27 detect the presence of libresolv.a, use -lresolv to supplement libc.a. | |
28 | |
29 We used to have #ifdef HAVE_GETHOSTNAME is to prevent configure from | |
30 setting libsrc_libs to -lresolv in lib-src/Makefile. But nowadays | |
31 configure is smarter about computing libsrc_libs, and would not | |
32 be fooled. Anyway, why not use -lresolv in lib-src? */ | |
33 /* #ifdef HAVE_GETHOSTNAME */ | |
34 /* XEmacs change: -lresolve should be added only if we have RES_INIT, | |
35 not if we don't */ | |
36 #ifdef HAVE_RES_INIT | |
37 #define LIBS_SYSTEM "-lresolv" | |
38 #endif | |
39 /* #endif */ | |
40 | |
41 #if 0 /* Not necessary, since SYSTEM_MALLOC is defined in sunos4-0.h. */ | |
42 /* Tell GNU malloc to compensate for a bug in localtime. */ | |
43 #define SUNOS_LOCALTIME_BUG | |
44 #endif | |
45 | |
46 /* Define dlopen, dlclose, dlsym. */ | |
47 #define USE_DL_STUBS | |
48 | |
49 /* This appears to be broken on SunOS4.1.[123] */ | |
50 #define BROKEN_SIGIO |