Mercurial > emacs
annotate src/cxux-crt0.s @ 88886:300f83fb46e1
Include "coding.h".
(Qget_emacs_mule_file_char, Qload_force_doc_strings,
load_each_byte, unread_char): New variables.
(readchar_backlog): This variable deleted.
(readchar): Return a character unless load_each_byte is nonzero.
Handle the case that readcharfun is Qget_emacs_mule_file_char or a
cons. If unread_char is not -1, simply return it.
(unreadchar): Handle the case that readcharfun is
Qget_emacs_mule_file_char or a cons. Set unread_char if
necessary.
(read_multibyte): This function deleted.
(readbyte_for_lambda, readbyte_from_file, readbyte_from_string)
(read_emacs_mule_char): New functions.
(Fload): Even if the file doesn't have the extention ".elc", if
safe_to_load_p returns a positive version number, assume that the
file contains bytecompiled code. If the version is less than 22,
load the file while decoding multibyte sequences by emacs-mule.
(readevalloop): Don't use readchar_backlog.
(Fread): Likewise. Pay attention to the case that STREAM is a
cons.
(Fread_from_string): Pay attention to the case that STREAM is a
cons.
(read_escape): The arg BYTEREP deleted.
(read1): Set load_each_byte to 1 temporarily while handling
#@NUMBER. Don't call read_multibyte.
(read_vector): Call Fread with a cons. If readcharfun is
Qget_emacs_mule_file_char, decode the read string by emacs-mule.
(read_list): If doc_reference is 2, make the cdr part string as
unibyte.
(syms_of_lread): Intern and staticpro Qget_emacs_mule_file_char
and Qload_force_doc_strings.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 24 Jul 2002 10:51:15 +0000 |
parents | 18e524802887 |
children | 695cf19ef79e d7ddb3e565de |
rev | line source |
---|---|
25843 | 1 /* |
2 * External symbol setup file for GNU Emacs on CX/UX | |
3 * Copyright (C) 1990 Free Software Foundation, Inc. | |
4 * | |
5 * This file is part of GNU Emacs. | |
6 * | |
7 * GNU Emacs is distributed in the hope that it will be useful, | |
8 * but WITHOUT ANY WARRANTY. No author or distributor | |
9 * accepts responsibility to anyone for the consequences of using it | |
10 * or for whether it serves any particular purpose or works at all, | |
11 * unless he says so in writing. Refer to the GNU Emacs General Public | |
12 * License for full details. | |
13 * | |
14 * Everyone is granted permission to copy, modify and redistribute | |
15 * GNU Emacs, but only under the conditions described in the | |
16 * GNU Emacs General Public License. A copy of this license is | |
17 * supposed to have been given to you along with GNU Emacs so you | |
18 * can know your rights and responsibilities. It should be in a | |
19 * file named COPYING. Among other things, the copyright notice | |
20 * and this notice must be preserved on all copies. | |
21 */ | |
22 | |
23 /* | |
24 * This file makes the start of the text and data regions of the program | |
25 * clearly visible to the GNU Emacs C source code, without any dependencies | |
26 * on any changes made to the standard C runtime startup module, crt0.o. | |
27 * It depends, however, on this file being passed down to the linker (ld) | |
28 * before any others, and the linker's behavior of assigning increasing | |
29 * addresses as it finds symbols. | |
30 */ | |
31 /* C symbol _start marks beginning of text region. */ | |
32 .text | |
33 .globl __start | |
34 __start: | |
35 /* C symbol data_start marks beginning of data region. */ | |
36 .data | |
37 .globl _data_start | |
38 _data_start: .space 4 |