Mercurial > hg > xemacs-beta
view src/m/dpx2.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 | ecf1ebac70d8 |
children |
line wrap: on
line source
/* machine description for Bull DPX/2 range Copyright (C) 1985, 1986 Free Software Foundation, Inc. This file is part of GNU Emacs. GNU Emacs is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with XEmacs; see the file COPYING. If not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* Synched up with: FSF 19.31. */ /* The following line tells the configuration script what sort of operating system this machine is likely to run. USUAL-OPSYS="usg5-3" */ /* * You need to either un-comment one of these lines, or copy one * of them to config.h before you include this file. * Note that some simply define a constant and others set a value. */ /* #define ncl_el /* DPX/2 210,220 etc */ /* #define ncl_mr 1 /* DPX/2 320,340 (and 360,380 ?) */ /* Now define a symbol for the cpu type, if your compiler does not define it automatically: Ones defined so far include vax, m68000, ns16000, pyramid, orion, tahoe, APOLLO and many others */ /* /bin/cc on ncl_el and ncl_mr define m68k and mc68000 */ /* Data type of load average, as read out of kmem. */ #define LOAD_AVE_TYPE long /* Convert that into an integer that is 100 for a load average of 1.0 */ #define FSCALE 1000.0 #define LOAD_AVE_CVT(x) (int) (((double) (x)) * 100.0 / FSCALE) /* Define NO_REMAP if memory segmentation makes it not work well to change the boundary between the text section and data section when Emacs is dumped. If you define this, the preloaded Lisp code will not be sharable; but that's better than failing completely. */ #define NO_REMAP /* * end of the standard macro's */ /* * a neat identifier to handle source mods (if needed) */ #ifndef DPX2 #define DPX2 #endif /* Disable support for shared libraries in unexec. */ #undef USG_SHARED_LIBRARIES /* * if we use X11, libX11.a has these... */ # undef LIB_X11_LIB # define LIB_X11_LIB "-lX11" # undef LIBX11_SYSTEM # define LIBX11_SYSTEM "-lmalloc -lnsl" /* * useful if you have INET loaded */ # define LIBS_MACHINE "-linet" #if (defined(ncl_mr) || defined(ncl_el)) && !defined (NBPC) # define NBPC 4096 #endif /* * if SIGIO is defined, much of the emacs * code assumes we are BSD !! */ #ifdef SIGIO #define BROKEN_SIGIO #endif #ifdef SIGTSTP /* * sysdep.c(sys_suspend) works fine with emacs-18.58 * and BOS 02.00.45, if you have an earler version * of Emacs and/or BOS, or have problems, or just prefer * to start a sub-shell rather than suspend-emacs, * un-comment out the next line. */ /* # undef SIGTSTP /* make suspend-emacs spawn a sub-shell */ #endif /* * no we don't want this at all */ #ifdef USG_JOBCTRL # undef USG_JOBCTRL #endif /* select also needs this header file--but not in ymakefile. */ #ifndef NOT_C_CODE #include <sys/types.h> #include <sys/select.h> #endif #define TEXT_START 0 /* on bos2.00.45 there is a bug that makes the F_SETOWN fcntl() call enters in an infinite loop. Avoid calling it */ #define F_SETOWN_BUG /* system closedir sometimes complains about wrong descriptor for no apparent reasons. Use the provided closedir in sysdep.c instead */ #ifdef HAVE_CLOSEDIR #undef HAVE_CLOSEDIR #endif /* This is to prevent memory clobbering on the DPX/2 200. */ #define LD_SWITCH_MACHINE "-N -T32" /* end of dpx2.h */