Mercurial > hg > xemacs-beta
view src/m/convex.h @ 4745:0c54de4c4b9d
Resolve the unregistered-CCL-programs-get-garbage-collected problem correctly
src/ChangeLog addition:
2009-11-15 Aidan Kehoe <kehoea@parhasard.net>
* mule-ccl.c (CCL_CALL_FOR_MAP_INSTRUCTION): Assert that we always
have a symbol in this macro.
(setup_ccl_program): Ensure we're not allocating unreachable
memory in this function; all symbols must have been resolved in a
given CCL program before this function is called.
(find_ccl_program): New function, return a CCL program with all
its symbols resolved if it is valid (possibly allocating memory),
Qnil otherwise.
(get_ccl_program): New function, exported to other files; call
find_ccl_program, and error if it gives nil.
(Fccl_program_p): Call find_ccl_program from this function instead
of implementing the bulk of it here.
(Fccl_execute): Call get_ccl_program instead of implementing the
bulk of it here.
(Fccl_execute_on_string): Ditto.
* mule-ccl.h (Vfont_ccl_encoder_alist): Remove this declaration,
it hasn't been used in years.
(get_ccl_program): Declare this function.
* mule-coding.c (ccl_putprop): Use get_ccl_program on any
specified encode or decode CCL program property.
(fixed_width_putprop): Ditto.
* mule-charset.c (Fmake_charset): Use get_ccl_program on any
specified ccl-program.
(Fset_charset_ccl_program): Ditto.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 15 Nov 2009 16:53:14 +0000 |
parents | ecf1ebac70d8 |
children |
line wrap: on
line source
/* machine description file for Convex (all models). Copyright (C) 1987, 1994 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="bsd4-3" */ /* Now define a symbol for the cpu type, if your compiler does not define it automatically. */ #ifndef convex /* The compiler doesn't always do this. */ #define convex #endif #ifndef __GNUC__ /* David M. Cooke <dcooke@haven.larc.nasa.gov> and Ralph Sobek <Ralph.Sobek@cerfacs.fr> agree must ignore one arg when compiled with convex compiler. */ #define CRT0_DUMMIES ignore, #else #define CRT0_DUMMIES #endif /* crt0.c should define a symbol `start' and do .globl with a dot. */ #define DOT_GLOBAL_START /* Data type of load average, as read out of kmem. */ #define LOAD_AVE_TYPE double /* Convert that into an integer that is 100 for a load average of 1.0 */ #define LOAD_AVE_CVT(x) (int) ((x) * 100.0) /* Must use the system's termcap. It does special things. */ #define LIBS_TERMCAP "-ltermcap" /* 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 */ /* Right shift is logical shift. And the usual way of handling such machines, which involves copying the number into sign_extend_temp, does not work for reasons as yet unknown. */ #define XREALINT(a) sign_extend_lisp_int (a) /* Convex uses a special version of unexec. */ #define UNEXEC "unexconvex.o" /* you gotta define 'COFF' for post 6.1 unexec. */ #define COFF #define TEXT_START 0x80001000 /* Posix stuff for Convex OS 8.1 and up. */ #define LD_SWITCH_MACHINE "-e__start -L /usr/lib '-A__iob=___ap$$iob' '-A_use_libc_sema=___ap$$use_libc_sema'" #ifdef _POSIX_SOURCE /* These symbols have been undefined to advance the state of the art. */ #define S_IFMT _S_IFMT #define S_IFDIR _S_IFDIR #define S_IREAD _S_IREAD #define S_IWRITE _S_IWRITE #define S_IEXEC _S_IEXEC #endif /* Ptys may start below ptyp0; call a routine to hunt for where. */ #undef FIRST_PTY_LETTER #define FIRST_PTY_LETTER first_pty_letter() #if 0 /* * Force a K&R compilation and libraries with the Convex V 4.0 C compiler */ #define C_SWITCH_MACHINE "-pcc" #define LIB_STANDARD "-lc_old" #define LIBS_MACHINE "-lC2_old" #define LD_SWITCH_MACHINE "-X -NL -fn -Enoposix -A__iob=___ap\$$iob -A_use_libc_sema=___ap\$$use_libc_sema -L /usr/lib" #endif /* Avoid error in xrdb.c - d.m.cooke@larc.nasa.gov. */ #define DECLARE_GETPWUID_WITH_UID_T /* Tested for both Convex C and GNUC by d.m.cooke@larc.nasa.gov. */ #define LIBS_MACHINE "-lC2" /* Avoid error in getloadavg.c. */ #define NLIST_NAME_UNION 1 #if 0 /* This is supposed to be an improvement. It would be good for people to try enabling this code and report the results. */ /* gcc -nostdlib prevents some math symbols from being included. So we have to use -nostartfiles instead. */ #define LINKER "$(CC) -nostartfiles" #define ORDINARY_LINK #undef LD_SWITCH_MACHINE #define LD_SWITCH_MACHINE "-L /usr/lib '-A__iob=___ap$$iob' '-A_use_libc_sema=___ap$$use_libc_sema'" #endif