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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25843
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
1 /*
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
2 * External symbol setup file for GNU Emacs on CX/UX
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
3 * Copyright (C) 1990 Free Software Foundation, Inc.
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
4 *
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
5 * This file is part of GNU Emacs.
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
6 *
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
7 * GNU Emacs is distributed in the hope that it will be useful,
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
8 * but WITHOUT ANY WARRANTY. No author or distributor
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
9 * accepts responsibility to anyone for the consequences of using it
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
10 * or for whether it serves any particular purpose or works at all,
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
11 * unless he says so in writing. Refer to the GNU Emacs General Public
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
12 * License for full details.
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
13 *
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
14 * Everyone is granted permission to copy, modify and redistribute
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
15 * GNU Emacs, but only under the conditions described in the
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
16 * GNU Emacs General Public License. A copy of this license is
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
17 * supposed to have been given to you along with GNU Emacs so you
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
18 * can know your rights and responsibilities. It should be in a
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
19 * file named COPYING. Among other things, the copyright notice
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
20 * and this notice must be preserved on all copies.
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
21 */
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
22
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
23 /*
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
24 * This file makes the start of the text and data regions of the program
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
25 * clearly visible to the GNU Emacs C source code, without any dependencies
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
26 * on any changes made to the standard C runtime startup module, crt0.o.
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
27 * It depends, however, on this file being passed down to the linker (ld)
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
28 * before any others, and the linker's behavior of assigning increasing
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
29 * addresses as it finds symbols.
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
30 */
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
31 /* C symbol _start marks beginning of text region. */
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
32 .text
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
33 .globl __start
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
34 __start:
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
35 /* C symbol data_start marks beginning of data region. */
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
36 .data
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
37 .globl _data_start
18e524802887 #ecrt0.c
Dave Love <fx@gnu.org>
parents:
diff changeset
38 _data_start: .space 4