annotate src/cxux-crt0.s @ 58333:285e9f39fa7d

(calc-rewrite-selection): Make rules a local variable. (calc-rewr-sel): New variable. (calc-rewrite-selection, calc-locate-selection-marker, calc-rewrite): Use the declared variable calc-rewr-sel instead of sel. (math-rewrite): Use let* to declare variables. (math-mt-many): Declare it. (math-rewrite-whole-expr): New variable. (math-rewrite, math-rewrite-phase): Replace variable expr by declared variable. (math-import-list): Declare it. (math-rewrite-heads-heads, math-rewrite-heads-skips) (math-rewrite-heads-blanks ): New variables. (math-rewrite-heads, math-rewrite-heads-rec): Replace variables heads, skips and blanks by declared variables. (math-regs, math-num-regs, math-prog-last, math-bound-vars) (math-conds, math-copy-neg, math-rhs, math-pattern, math-remembering) (math-aliased-vars): Declare them. (math-rwcomp-subst-old, math-rwcomp-subst-new) (math-rwcomp-subst-old-func, math-rwcomp-subst-new-func): New variables. (math-rwcomp-substitute, math-rwcomp-subst-rec): Replace variables old, new, old-func and new-func by declared variables. (math-rwcomp-assoc-args, math-rwcomp-addsub-args): Remove unnecessary variable. (math-rewrite-phase): Declare it. (math-apply-rw-regs): New variable. (math-apply-rewrites, math-rwapply-replace-regs, math-rwapply-reg-looks-negp): Replace variable regs by declared variable. (math-apply-rw-ruleset): New variable. (math-apply-rewrites, math-rwapply-remember): Replace variable ruleset by declared variable.
author Jay Belanger <jay.p.belanger@gmail.com>
date Fri, 19 Nov 2004 21:03:48 +0000
parents 695cf19ef79e
children a0d1312ede66 375f2633d815
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
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 25843
diff changeset
39
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 25843
diff changeset
40 /* arch-tag: ba84e4dc-615d-4a81-898c-f5b98ec71c9d
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 25843
diff changeset
41 (do not change this comment) */