Mercurial > hg > xemacs-beta
view nt/site.def @ 5303:4c4085177ca5
Fix some bugs in fns.c, discovered in passing while doing other work.
2010-11-14 Aidan Kehoe <kehoea@parhasard.net>
* fns.c (Fnreverse):
Check that non-list sequences are writable from Lisp before
modifying them. (There's an argument that we should do this for
list sequences too, but for the moment other code (e.g. #'setcar)
doesn't.)
(mapcarX): Initialise lisp_vals_staging, lisp_vals_type
explicitly, for the sake of compile warnings. Check if
lisp_vals_staging is non-NULL when deciding whether to replace a
string's range.
(Fsome): Cross-reference to #'find-if in the doc string for this
function.
(Freduce): GCPRO accum in this function, when a key argument is
specicified it can be silently garbage-collected. When deciding
whether to iterate across a string, check whether the cursor
exceeds the byte len; while iterating, increment an integer
counter. Don't ABORT() if check_sequence_range() returns when
handed a suspicious sequence; it is legal to supply the length of
SEQUENCE as the :end keyword value, and this will provoke our
suspicions, legitimately enough. (Problems with this function
revealed by Paul Dietz' ANSI test suite, thank you Paul Dietz.)
(Freplace): Check list sequence lengths using the arguments, not
the conses we're currently looking at, thank you Paul Dietz.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 14 Nov 2010 14:54:09 +0000 |
parents | 43dd3413c7c7 |
children |
line wrap: on
line source
XCOMM site: $XConsortium: site.def /main/revisionist/3 1996/10/15 09:31:04 swick $ /*************************************************************************** * * * SITE-SPECIFIC DEFINITIONS * * * * This file contains two halves, one included before the vendor-specific * * configuration file (.cf file), and one included after the .cf file. * * The before-half should be protected by #ifdef BeforeVendorCF, and the * * after-half should be protected by #ifdef AfterVendorCF. * * * * The before-half should only set things that the .cf file depends on. * * For the .cf files shipped in this release, the main variables in this * * category are HasGcc, HasGcc2, HasCplusplus, OSMajorVersion, * * OSMinorVersion, and OSTeenyVersion. * * * * The after-half should contain all other definitions. For example, * * place your ProjectRoot definition here. * * * * OS Major and Minor version numbers should be changed directly in the * * .cf file, not overridden in site.def. * * * ***************************************************************************/ /* if you want host-specific customization, this is one way to do it */ /* #ifndef SiteIConfigFiles #define SiteIConfigFiles $(IRULESRC)/host.def #define LocalConfigFiles host.def #endif */ #ifdef BeforeVendorCF /* #include <host.def> */ /* On systems where cpp doesn't expand correctly macros in include directives * the two following macros need to be defined directly (where "X11" is * really whatever the TopLevelProject macro is defined to be). */ # ifndef ProjectRulesFile # define ProjectRulesFile <X11.rules> # endif # ifndef ProjectTmplFile # define ProjectTmplFile <X11.tmpl> # endif /* #ifndef HasGcc2 #define HasGcc2 YES #endif */ #endif /* BeforeVendorCF */ #ifdef AfterVendorCF #define ProjectRoot f:/utils/X11R6 /* Only set HasXdmAuth to YES if you have a Wraphelp.c file. */ /* #define HasXdmAuth YES */ /* #define PreIncDir /usr/local/lib/gcc-lib/sparc-sun-solaris2.4/2.7.2/include */ /* #if defined(SunArchitecture) && defined(SparcArchitecture) #define HasCodeCenter YES #ifndef SVR4Architecture #define HasTestCenter YES #endif #endif */ /* #ifdef __hp9000s800 #define HasCodeCenter YES #endif */ /* #if defined(SunArchitecture) && defined(SparcArchitecture) && !defined(SVR4Architecture) #define HasPurify YES #endif */ /* #define HasSentinel YES */ /* #undef DefaultUserPath #define DefaultUserPath /bin:/usr/bin:$(BINDIR):/usr/ucb:/usr/local/bin */ /* You do NOT need SetUID if you only run the server under xdm */ /* You MAY need SetUID if users run the server by hand or under xinit */ /* Consult your system administrator before making the X server setuid */ /* #if defined(SunArchitecture) && OSMajorVersion > 4 #define InstallXserverSetUID YES #endif */ /* You do NOT need SetUID if you only run the server under xdm */ /* You MAY need SetUID if users run the server by hand or under xinit */ /* Consult your system administrator before making the X server setuid */ /* #ifdef XFree86Version #define InstallXserverSetUID YES #endif */ #ifndef XnestServer #undef BuildServer #define BuildServer YES #define XnestServer YES #endif /* #include <host.def> */ #endif /* AfterVendorCF */