annotate src/ecrt0.c @ 95083:28fc0a8a4b45

*** empty log message ***
author Jay Belanger <jay.p.belanger@gmail.com>
date Sun, 18 May 2008 20:37:16 +0000
parents 8971ddf55736
children ddedcecb18ef
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25844
Dave Love <fx@gnu.org>
parents:
diff changeset
1 /* C code startup routine.
75227
e90d04cd455a Update copyright for years from Emacs 21 to present (mainly adding
Glenn Morris <rgm@gnu.org>
parents: 68651
diff changeset
2 Copyright (C) 1985, 1986, 1992, 2001, 2002, 2003, 2004,
79759
fc2bcd2a8aad Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78260
diff changeset
3 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
25844
Dave Love <fx@gnu.org>
parents:
diff changeset
4
Dave Love <fx@gnu.org>
parents:
diff changeset
5 This file is part of GNU Emacs.
Dave Love <fx@gnu.org>
parents:
diff changeset
6
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91702
diff changeset
7 GNU Emacs is free software: you can redistribute it and/or modify
25844
Dave Love <fx@gnu.org>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91702
diff changeset
9 the Free Software Foundation, either version 3 of the License, or
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91702
diff changeset
10 (at your option) any later version.
25844
Dave Love <fx@gnu.org>
parents:
diff changeset
11
Dave Love <fx@gnu.org>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
Dave Love <fx@gnu.org>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
Dave Love <fx@gnu.org>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Dave Love <fx@gnu.org>
parents:
diff changeset
15 GNU General Public License for more details.
Dave Love <fx@gnu.org>
parents:
diff changeset
16
Dave Love <fx@gnu.org>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
94963
8971ddf55736 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 91702
diff changeset
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
25844
Dave Love <fx@gnu.org>
parents:
diff changeset
19
Dave Love <fx@gnu.org>
parents:
diff changeset
20
Dave Love <fx@gnu.org>
parents:
diff changeset
21 /* The standard Vax 4.2 Unix crt0.c cannot be used for Emacs
Dave Love <fx@gnu.org>
parents:
diff changeset
22 because it makes `environ' an initialized variable.
Dave Love <fx@gnu.org>
parents:
diff changeset
23 It is easiest to have a special crt0.c on all machines
Dave Love <fx@gnu.org>
parents:
diff changeset
24 though I don't know whether other machines actually need it. */
Dave Love <fx@gnu.org>
parents:
diff changeset
25
Dave Love <fx@gnu.org>
parents:
diff changeset
26 /* On the vax and 68000, in BSD4.2 and USG5.2,
Dave Love <fx@gnu.org>
parents:
diff changeset
27 this is the data format on startup:
Dave Love <fx@gnu.org>
parents:
diff changeset
28 (vax) ap and fp are unpredictable as far as I know; don't use them.
Dave Love <fx@gnu.org>
parents:
diff changeset
29 sp -> word containing argc
Dave Love <fx@gnu.org>
parents:
diff changeset
30 word pointing to first arg string
Dave Love <fx@gnu.org>
parents:
diff changeset
31 [word pointing to next arg string]... 0 or more times
Dave Love <fx@gnu.org>
parents:
diff changeset
32 0
Dave Love <fx@gnu.org>
parents:
diff changeset
33 Optionally:
Dave Love <fx@gnu.org>
parents:
diff changeset
34 [word pointing to environment variable]... 1 or more times
Dave Love <fx@gnu.org>
parents:
diff changeset
35 ...
Dave Love <fx@gnu.org>
parents:
diff changeset
36 0
Dave Love <fx@gnu.org>
parents:
diff changeset
37 And always:
Dave Love <fx@gnu.org>
parents:
diff changeset
38 first arg string
Dave Love <fx@gnu.org>
parents:
diff changeset
39 [next arg string]... 0 or more times
Dave Love <fx@gnu.org>
parents:
diff changeset
40 */
Dave Love <fx@gnu.org>
parents:
diff changeset
41
Dave Love <fx@gnu.org>
parents:
diff changeset
42 /* On the 16000, at least in the one 4.2 system I know about,
Dave Love <fx@gnu.org>
parents:
diff changeset
43 the initial data format is
Dave Love <fx@gnu.org>
parents:
diff changeset
44 sp -> word containing argc
Dave Love <fx@gnu.org>
parents:
diff changeset
45 word containing argp
Dave Love <fx@gnu.org>
parents:
diff changeset
46 word pointing to first arg string, and so on as above
Dave Love <fx@gnu.org>
parents:
diff changeset
47 */
Dave Love <fx@gnu.org>
parents:
diff changeset
48
Dave Love <fx@gnu.org>
parents:
diff changeset
49 #ifdef emacs
Dave Love <fx@gnu.org>
parents:
diff changeset
50 #include <config.h>
Dave Love <fx@gnu.org>
parents:
diff changeset
51 #endif
Dave Love <fx@gnu.org>
parents:
diff changeset
52
Dave Love <fx@gnu.org>
parents:
diff changeset
53 /* ******** WARNING ********
Dave Love <fx@gnu.org>
parents:
diff changeset
54 Do not insert any data definitions before data_start!
Dave Love <fx@gnu.org>
parents:
diff changeset
55 Since this is the first file linked, the address of the following
Dave Love <fx@gnu.org>
parents:
diff changeset
56 variable should correspond to the start of initialized data space.
Dave Love <fx@gnu.org>
parents:
diff changeset
57 On some systems this is a constant that is independent of the text
Dave Love <fx@gnu.org>
parents:
diff changeset
58 size for shared executables. On others, it is a function of the
Dave Love <fx@gnu.org>
parents:
diff changeset
59 text size. In short, this seems to be the most portable way to
Dave Love <fx@gnu.org>
parents:
diff changeset
60 discover the start of initialized data space dynamically at runtime,
Dave Love <fx@gnu.org>
parents:
diff changeset
61 for either shared or unshared executables, on either swapping or
Dave Love <fx@gnu.org>
parents:
diff changeset
62 virtual systems. It only requires that the linker allocate objects
Dave Love <fx@gnu.org>
parents:
diff changeset
63 in the order encountered, a reasonable model for most Unix systems.
Dave Love <fx@gnu.org>
parents:
diff changeset
64 Similarly, note that the address of _start() should be the start
Dave Love <fx@gnu.org>
parents:
diff changeset
65 of text space. Fred Fish, UniSoft Systems Inc. */
Dave Love <fx@gnu.org>
parents:
diff changeset
66
Dave Love <fx@gnu.org>
parents:
diff changeset
67 int data_start = 0;
Dave Love <fx@gnu.org>
parents:
diff changeset
68
Dave Love <fx@gnu.org>
parents:
diff changeset
69 #ifdef NEED_ERRNO
Dave Love <fx@gnu.org>
parents:
diff changeset
70 int errno;
Dave Love <fx@gnu.org>
parents:
diff changeset
71 #endif
Dave Love <fx@gnu.org>
parents:
diff changeset
72
91702
b7a5a89054dc * configure.in (LIBX11_MACHINE, HAVE_XFREE386): Remove code
Dan Nicolaescu <dann@ics.uci.edu>
parents: 87730
diff changeset
73 #ifndef MSDOS
25844
Dave Love <fx@gnu.org>
parents:
diff changeset
74 char **environ;
Dave Love <fx@gnu.org>
parents:
diff changeset
75 #endif
Dave Love <fx@gnu.org>
parents:
diff changeset
76
Dave Love <fx@gnu.org>
parents:
diff changeset
77 #ifndef static
Dave Love <fx@gnu.org>
parents:
diff changeset
78 /* On systems where the static storage class is usable, this function
Dave Love <fx@gnu.org>
parents:
diff changeset
79 should be declared as static. Otherwise, the static keyword has
Dave Love <fx@gnu.org>
parents:
diff changeset
80 been defined to be something else, and code for those systems must
Dave Love <fx@gnu.org>
parents:
diff changeset
81 take care of this declaration appropriately. */
Dave Love <fx@gnu.org>
parents:
diff changeset
82 static start1 ();
Dave Love <fx@gnu.org>
parents:
diff changeset
83 #endif
Dave Love <fx@gnu.org>
parents:
diff changeset
84
Dave Love <fx@gnu.org>
parents:
diff changeset
85 #ifdef CRT0_DUMMIES
Dave Love <fx@gnu.org>
parents:
diff changeset
86
Dave Love <fx@gnu.org>
parents:
diff changeset
87 /* Define symbol "start": here; some systems want that symbol. */
Dave Love <fx@gnu.org>
parents:
diff changeset
88 #ifdef DOT_GLOBAL_START
Dave Love <fx@gnu.org>
parents:
diff changeset
89 asm(" .text ");
Dave Love <fx@gnu.org>
parents:
diff changeset
90 asm(" .globl start ");
Dave Love <fx@gnu.org>
parents:
diff changeset
91 asm(" start: ");
Dave Love <fx@gnu.org>
parents:
diff changeset
92 #endif /* DOT_GLOBAL_START */
Dave Love <fx@gnu.org>
parents:
diff changeset
93
Dave Love <fx@gnu.org>
parents:
diff changeset
94 #ifdef NODOT_GLOBAL_START
Dave Love <fx@gnu.org>
parents:
diff changeset
95 asm(" text ");
Dave Love <fx@gnu.org>
parents:
diff changeset
96 asm(" global start ");
Dave Love <fx@gnu.org>
parents:
diff changeset
97 asm(" start: ");
Dave Love <fx@gnu.org>
parents:
diff changeset
98 #endif /* NODOT_GLOBAL_START */
Dave Love <fx@gnu.org>
parents:
diff changeset
99
Dave Love <fx@gnu.org>
parents:
diff changeset
100 #ifdef m68000
Dave Love <fx@gnu.org>
parents:
diff changeset
101
Dave Love <fx@gnu.org>
parents:
diff changeset
102 /* GCC 2.1, when optimization is turned off, seems to want to push a
Dave Love <fx@gnu.org>
parents:
diff changeset
103 word of garbage on the stack, which screws up the CRT0_DUMMIES
Dave Love <fx@gnu.org>
parents:
diff changeset
104 hack. So we hand-code _start in assembly language. */
Dave Love <fx@gnu.org>
parents:
diff changeset
105 asm(".text ");
Dave Love <fx@gnu.org>
parents:
diff changeset
106 asm(" .even ");
Dave Love <fx@gnu.org>
parents:
diff changeset
107 asm(".globl __start ");
Dave Love <fx@gnu.org>
parents:
diff changeset
108 asm("__start: ");
Dave Love <fx@gnu.org>
parents:
diff changeset
109 asm(" link a6,#0 ");
Dave Love <fx@gnu.org>
parents:
diff changeset
110 asm(" jbsr _start1 ");
Dave Love <fx@gnu.org>
parents:
diff changeset
111 asm(" unlk a6 ");
Dave Love <fx@gnu.org>
parents:
diff changeset
112 asm(" rts ");
Dave Love <fx@gnu.org>
parents:
diff changeset
113
Dave Love <fx@gnu.org>
parents:
diff changeset
114 #else /* not m68000 */
Dave Love <fx@gnu.org>
parents:
diff changeset
115
Dave Love <fx@gnu.org>
parents:
diff changeset
116 _start ()
Dave Love <fx@gnu.org>
parents:
diff changeset
117 {
Dave Love <fx@gnu.org>
parents:
diff changeset
118 /* On vax, nothing is pushed here */
Dave Love <fx@gnu.org>
parents:
diff changeset
119 /* On sequent, bogus fp is pushed here */
Dave Love <fx@gnu.org>
parents:
diff changeset
120 start1 ();
Dave Love <fx@gnu.org>
parents:
diff changeset
121 }
Dave Love <fx@gnu.org>
parents:
diff changeset
122
Dave Love <fx@gnu.org>
parents:
diff changeset
123 #endif /* possibly m68000 */
Dave Love <fx@gnu.org>
parents:
diff changeset
124
Dave Love <fx@gnu.org>
parents:
diff changeset
125 static
Dave Love <fx@gnu.org>
parents:
diff changeset
126 start1 (CRT0_DUMMIES argc, xargv)
Dave Love <fx@gnu.org>
parents:
diff changeset
127 int argc;
Dave Love <fx@gnu.org>
parents:
diff changeset
128 char *xargv;
Dave Love <fx@gnu.org>
parents:
diff changeset
129 {
Dave Love <fx@gnu.org>
parents:
diff changeset
130 register char **argv = &xargv;
Dave Love <fx@gnu.org>
parents:
diff changeset
131 environ = argv + argc + 1;
Dave Love <fx@gnu.org>
parents:
diff changeset
132
Dave Love <fx@gnu.org>
parents:
diff changeset
133 if ((char *)environ == xargv)
Dave Love <fx@gnu.org>
parents:
diff changeset
134 environ--;
Dave Love <fx@gnu.org>
parents:
diff changeset
135 exit (main (argc, argv, environ));
Dave Love <fx@gnu.org>
parents:
diff changeset
136
Dave Love <fx@gnu.org>
parents:
diff changeset
137 /* Refer to `start1' so GCC will not think it is never called
Dave Love <fx@gnu.org>
parents:
diff changeset
138 and optimize it out. */
Dave Love <fx@gnu.org>
parents:
diff changeset
139 (void) &start1;
Dave Love <fx@gnu.org>
parents:
diff changeset
140 }
Dave Love <fx@gnu.org>
parents:
diff changeset
141 #else /* not CRT0_DUMMIES */
Dave Love <fx@gnu.org>
parents:
diff changeset
142
Dave Love <fx@gnu.org>
parents:
diff changeset
143 /* "m68k" and "m68000" both stand for m68000 processors,
Dave Love <fx@gnu.org>
parents:
diff changeset
144 but with different program-entry conventions.
Dave Love <fx@gnu.org>
parents:
diff changeset
145 This is a kludge. Now that the CRT0_DUMMIES mechanism above exists,
Dave Love <fx@gnu.org>
parents:
diff changeset
146 most of these machines could use the vax code above
Dave Love <fx@gnu.org>
parents:
diff changeset
147 with some suitable definition of CRT0_DUMMIES.
Dave Love <fx@gnu.org>
parents:
diff changeset
148 Then the symbol m68k could be flushed.
Dave Love <fx@gnu.org>
parents:
diff changeset
149 But I don't want to risk breaking these machines
Dave Love <fx@gnu.org>
parents:
diff changeset
150 in a version 17 patch release, so that change is being put off. */
Dave Love <fx@gnu.org>
parents:
diff changeset
151
Dave Love <fx@gnu.org>
parents:
diff changeset
152 #ifdef m68k /* Can't do it all from C */
Dave Love <fx@gnu.org>
parents:
diff changeset
153 asm (" global _start");
Dave Love <fx@gnu.org>
parents:
diff changeset
154 asm (" text");
Dave Love <fx@gnu.org>
parents:
diff changeset
155 asm ("_start:");
Dave Love <fx@gnu.org>
parents:
diff changeset
156 asm (" comm splimit%,4");
Dave Love <fx@gnu.org>
parents:
diff changeset
157 asm (" global exit");
Dave Love <fx@gnu.org>
parents:
diff changeset
158 asm (" text");
Dave Love <fx@gnu.org>
parents:
diff changeset
159 asm (" mov.l %d0,splimit%");
Dave Love <fx@gnu.org>
parents:
diff changeset
160 asm (" jsr start1");
Dave Love <fx@gnu.org>
parents:
diff changeset
161 asm (" mov.l %d0,(%sp)");
Dave Love <fx@gnu.org>
parents:
diff changeset
162 asm (" jsr exit");
Dave Love <fx@gnu.org>
parents:
diff changeset
163 asm (" mov.l &1,%d0"); /* d0 = 1 => exit */
Dave Love <fx@gnu.org>
parents:
diff changeset
164 asm (" trap &0");
Dave Love <fx@gnu.org>
parents:
diff changeset
165 #else /* m68000, not m68k */
Dave Love <fx@gnu.org>
parents:
diff changeset
166
Dave Love <fx@gnu.org>
parents:
diff changeset
167 #ifdef m68000
Dave Love <fx@gnu.org>
parents:
diff changeset
168
Dave Love <fx@gnu.org>
parents:
diff changeset
169 _start ()
Dave Love <fx@gnu.org>
parents:
diff changeset
170 {
Dave Love <fx@gnu.org>
parents:
diff changeset
171 #ifdef sun
Dave Love <fx@gnu.org>
parents:
diff changeset
172 finitfp_();
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 27727
diff changeset
173 #endif
25844
Dave Love <fx@gnu.org>
parents:
diff changeset
174 /* On 68000, _start pushes a6 onto stack */
Dave Love <fx@gnu.org>
parents:
diff changeset
175 start1 ();
Dave Love <fx@gnu.org>
parents:
diff changeset
176 }
Dave Love <fx@gnu.org>
parents:
diff changeset
177 #endif /* m68000 */
Dave Love <fx@gnu.org>
parents:
diff changeset
178 #endif /* m68k */
Dave Love <fx@gnu.org>
parents:
diff changeset
179
Dave Love <fx@gnu.org>
parents:
diff changeset
180 #if defined(m68k) || defined(m68000)
Dave Love <fx@gnu.org>
parents:
diff changeset
181 /* ignore takes care of skipping the a6 value pushed in start. */
Dave Love <fx@gnu.org>
parents:
diff changeset
182 static
Dave Love <fx@gnu.org>
parents:
diff changeset
183 #if defined(m68k)
Dave Love <fx@gnu.org>
parents:
diff changeset
184 start1 (argc, xargv)
Dave Love <fx@gnu.org>
parents:
diff changeset
185 #else
Dave Love <fx@gnu.org>
parents:
diff changeset
186 start1 (ignore, argc, xargv)
Dave Love <fx@gnu.org>
parents:
diff changeset
187 #endif
Dave Love <fx@gnu.org>
parents:
diff changeset
188 int argc;
Dave Love <fx@gnu.org>
parents:
diff changeset
189 char *xargv;
Dave Love <fx@gnu.org>
parents:
diff changeset
190 {
Dave Love <fx@gnu.org>
parents:
diff changeset
191 register char **argv = &xargv;
Dave Love <fx@gnu.org>
parents:
diff changeset
192 environ = argv + argc + 1;
Dave Love <fx@gnu.org>
parents:
diff changeset
193
Dave Love <fx@gnu.org>
parents:
diff changeset
194 if ((char *)environ == xargv)
Dave Love <fx@gnu.org>
parents:
diff changeset
195 environ--;
Dave Love <fx@gnu.org>
parents:
diff changeset
196 exit (main (argc, argv, environ));
Dave Love <fx@gnu.org>
parents:
diff changeset
197 }
Dave Love <fx@gnu.org>
parents:
diff changeset
198
Dave Love <fx@gnu.org>
parents:
diff changeset
199 #endif /* m68k or m68000 */
Dave Love <fx@gnu.org>
parents:
diff changeset
200
Dave Love <fx@gnu.org>
parents:
diff changeset
201 #endif /* not CRT0_DUMMIES */
Dave Love <fx@gnu.org>
parents:
diff changeset
202
Dave Love <fx@gnu.org>
parents:
diff changeset
203 #ifdef hp9000s300
Dave Love <fx@gnu.org>
parents:
diff changeset
204 int argc_value;
Dave Love <fx@gnu.org>
parents:
diff changeset
205 char **argv_value;
Dave Love <fx@gnu.org>
parents:
diff changeset
206 #ifdef OLD_HP_ASSEMBLER
Dave Love <fx@gnu.org>
parents:
diff changeset
207 asm(" text");
Dave Love <fx@gnu.org>
parents:
diff changeset
208 asm(" globl __start");
Dave Love <fx@gnu.org>
parents:
diff changeset
209 asm(" globl _exit");
Dave Love <fx@gnu.org>
parents:
diff changeset
210 asm(" globl _main");
Dave Love <fx@gnu.org>
parents:
diff changeset
211 asm("__start");
Dave Love <fx@gnu.org>
parents:
diff changeset
212 asm(" dc.l 0");
Dave Love <fx@gnu.org>
parents:
diff changeset
213 asm(" subq.w #0x1,d0");
Dave Love <fx@gnu.org>
parents:
diff changeset
214 asm(" move.w d0,float_soft");
Dave Love <fx@gnu.org>
parents:
diff changeset
215 asm(" move.l 0x4(a7),d0");
Dave Love <fx@gnu.org>
parents:
diff changeset
216 asm(" beq.s skip_1");
Dave Love <fx@gnu.org>
parents:
diff changeset
217 asm(" move.l d0,a0");
Dave Love <fx@gnu.org>
parents:
diff changeset
218 asm(" clr.l -0x4(a0)");
Dave Love <fx@gnu.org>
parents:
diff changeset
219 asm("skip_1");
Dave Love <fx@gnu.org>
parents:
diff changeset
220 asm(" move.l a7,a0");
Dave Love <fx@gnu.org>
parents:
diff changeset
221 asm(" subq.l #0x8,a7");
Dave Love <fx@gnu.org>
parents:
diff changeset
222 asm(" move.l (a0),(a7)");
Dave Love <fx@gnu.org>
parents:
diff changeset
223 asm(" move.l (a0),_argc_value");
Dave Love <fx@gnu.org>
parents:
diff changeset
224 asm(" addq.l #0x4,a0");
Dave Love <fx@gnu.org>
parents:
diff changeset
225 asm(" move.l a0,0x4(a7)");
Dave Love <fx@gnu.org>
parents:
diff changeset
226 asm(" move.l a0,_argv_value");
Dave Love <fx@gnu.org>
parents:
diff changeset
227 asm("incr_loop");
Dave Love <fx@gnu.org>
parents:
diff changeset
228 asm(" tst.l (a0)+");
Dave Love <fx@gnu.org>
parents:
diff changeset
229 asm(" bne.s incr_loop");
Dave Love <fx@gnu.org>
parents:
diff changeset
230 asm(" move.l 0x4(a7),a1");
Dave Love <fx@gnu.org>
parents:
diff changeset
231 asm(" cmp.l (a1),a0");
Dave Love <fx@gnu.org>
parents:
diff changeset
232 asm(" blt.s skip_2");
Dave Love <fx@gnu.org>
parents:
diff changeset
233 asm(" subq.l #0x4,a0");
Dave Love <fx@gnu.org>
parents:
diff changeset
234 asm("skip_2");
Dave Love <fx@gnu.org>
parents:
diff changeset
235 asm(" move.l a0,0x8(a7)");
Dave Love <fx@gnu.org>
parents:
diff changeset
236 asm(" move.l a0,_environ");
Dave Love <fx@gnu.org>
parents:
diff changeset
237 asm(" jsr _main");
Dave Love <fx@gnu.org>
parents:
diff changeset
238 asm(" addq.l #0x8,a7");
Dave Love <fx@gnu.org>
parents:
diff changeset
239 asm(" move.l d0,-(a7)");
Dave Love <fx@gnu.org>
parents:
diff changeset
240 asm(" jsr _exit");
Dave Love <fx@gnu.org>
parents:
diff changeset
241 asm(" move.w #0x1,d0");
Dave Love <fx@gnu.org>
parents:
diff changeset
242 asm(" trap #0x0");
Dave Love <fx@gnu.org>
parents:
diff changeset
243 asm(" comm float_soft,4");
Dave Love <fx@gnu.org>
parents:
diff changeset
244 /* float_soft is allocated in this way because C would
Dave Love <fx@gnu.org>
parents:
diff changeset
245 put an underscore character in its name otherwise. */
Dave Love <fx@gnu.org>
parents:
diff changeset
246
Dave Love <fx@gnu.org>
parents:
diff changeset
247 #else /* new hp assembler */
Dave Love <fx@gnu.org>
parents:
diff changeset
248
Dave Love <fx@gnu.org>
parents:
diff changeset
249 asm(" text");
Dave Love <fx@gnu.org>
parents:
diff changeset
250 asm(" global float_loc");
Dave Love <fx@gnu.org>
parents:
diff changeset
251 asm(" set float_loc,0xFFFFB000");
Dave Love <fx@gnu.org>
parents:
diff changeset
252 asm(" global fpa_loc");
Dave Love <fx@gnu.org>
parents:
diff changeset
253 asm(" set fpa_loc,0xfff08000");
Dave Love <fx@gnu.org>
parents:
diff changeset
254 asm(" global __start");
Dave Love <fx@gnu.org>
parents:
diff changeset
255 asm(" global _exit");
Dave Love <fx@gnu.org>
parents:
diff changeset
256 asm(" global _main");
Dave Love <fx@gnu.org>
parents:
diff changeset
257 asm("__start:");
Dave Love <fx@gnu.org>
parents:
diff changeset
258 asm(" byte 0,0,0,0");
Dave Love <fx@gnu.org>
parents:
diff changeset
259 asm(" subq.w &1,%d0");
Dave Love <fx@gnu.org>
parents:
diff changeset
260 asm(" mov.w %d0,float_soft");
Dave Love <fx@gnu.org>
parents:
diff changeset
261 asm(" mov.w %d1,flag_68881");
Dave Love <fx@gnu.org>
parents:
diff changeset
262 #ifndef HPUX_68010
Dave Love <fx@gnu.org>
parents:
diff changeset
263 asm(" beq.b skip_float");
Dave Love <fx@gnu.org>
parents:
diff changeset
264 asm(" fmov.l &0x7400,%fpcr");
Dave Love <fx@gnu.org>
parents:
diff changeset
265 /* asm(" fmov.l &0x7480,%fpcr"); */
Dave Love <fx@gnu.org>
parents:
diff changeset
266 #endif /* HPUX_68010 */
Dave Love <fx@gnu.org>
parents:
diff changeset
267 asm("skip_float:");
Dave Love <fx@gnu.org>
parents:
diff changeset
268 asm(" mov.l %a0,%d0");
Dave Love <fx@gnu.org>
parents:
diff changeset
269 asm(" add.l %d0,%d0");
Dave Love <fx@gnu.org>
parents:
diff changeset
270 asm(" subx.w %d1,%d1");
Dave Love <fx@gnu.org>
parents:
diff changeset
271 asm(" mov.w %d1,flag_68010");
Dave Love <fx@gnu.org>
parents:
diff changeset
272 asm(" add.l %d0,%d0");
Dave Love <fx@gnu.org>
parents:
diff changeset
273 asm(" subx.w %d1,%d1");
Dave Love <fx@gnu.org>
parents:
diff changeset
274 asm(" mov.w %d1,flag_fpa");
Dave Love <fx@gnu.org>
parents:
diff changeset
275 asm(" tst.l %d2");
Dave Love <fx@gnu.org>
parents:
diff changeset
276 asm(" ble.b skip_3");
Dave Love <fx@gnu.org>
parents:
diff changeset
277 asm(" lsl flag_68881");
Dave Love <fx@gnu.org>
parents:
diff changeset
278 asm(" lsl flag_fpa");
Dave Love <fx@gnu.org>
parents:
diff changeset
279 asm("skip_3:");
Dave Love <fx@gnu.org>
parents:
diff changeset
280 asm(" mov.l 4(%a7),%d0");
Dave Love <fx@gnu.org>
parents:
diff changeset
281 asm(" beq.b skip_1");
Dave Love <fx@gnu.org>
parents:
diff changeset
282 asm(" mov.l %d0,%a0");
Dave Love <fx@gnu.org>
parents:
diff changeset
283 asm(" clr.l -4(%a0)");
Dave Love <fx@gnu.org>
parents:
diff changeset
284 asm("skip_1:");
Dave Love <fx@gnu.org>
parents:
diff changeset
285 asm(" mov.l %a7,%a0");
Dave Love <fx@gnu.org>
parents:
diff changeset
286 asm(" subq.l &8,%a7");
Dave Love <fx@gnu.org>
parents:
diff changeset
287 asm(" mov.l (%a0),(%a7)");
Dave Love <fx@gnu.org>
parents:
diff changeset
288 asm(" mov.l (%a0),_argc_value");
Dave Love <fx@gnu.org>
parents:
diff changeset
289 asm(" addq.l &4,%a0");
Dave Love <fx@gnu.org>
parents:
diff changeset
290 asm(" mov.l %a0,4(%a7)");
Dave Love <fx@gnu.org>
parents:
diff changeset
291 asm(" mov.l %a0,_argv_value");
Dave Love <fx@gnu.org>
parents:
diff changeset
292 asm("incr_loop:");
Dave Love <fx@gnu.org>
parents:
diff changeset
293 asm(" tst.l (%a0)+");
Dave Love <fx@gnu.org>
parents:
diff changeset
294 asm(" bne.b incr_loop");
Dave Love <fx@gnu.org>
parents:
diff changeset
295 asm(" mov.l 4(%a7),%a1");
Dave Love <fx@gnu.org>
parents:
diff changeset
296 asm(" cmp.l %a0,(%a1)");
Dave Love <fx@gnu.org>
parents:
diff changeset
297 asm(" blt.b skip_2");
Dave Love <fx@gnu.org>
parents:
diff changeset
298 asm(" subq.l &4,%a0");
Dave Love <fx@gnu.org>
parents:
diff changeset
299 asm("skip_2:");
Dave Love <fx@gnu.org>
parents:
diff changeset
300 asm(" mov.l %a0,8(%a7)");
Dave Love <fx@gnu.org>
parents:
diff changeset
301 asm(" mov.l %a0,_environ");
Dave Love <fx@gnu.org>
parents:
diff changeset
302 asm(" jsr _main");
Dave Love <fx@gnu.org>
parents:
diff changeset
303 asm(" addq.l &8,%a7");
Dave Love <fx@gnu.org>
parents:
diff changeset
304 asm(" mov.l %d0,-(%a7)");
Dave Love <fx@gnu.org>
parents:
diff changeset
305 asm(" jsr _exit");
Dave Love <fx@gnu.org>
parents:
diff changeset
306 asm(" mov.w &1,%d0");
Dave Love <fx@gnu.org>
parents:
diff changeset
307 asm(" trap &0");
Dave Love <fx@gnu.org>
parents:
diff changeset
308 asm(" comm float_soft, 4");
Dave Love <fx@gnu.org>
parents:
diff changeset
309 asm(" comm flag_68881, 4");
Dave Love <fx@gnu.org>
parents:
diff changeset
310 asm(" comm flag_68010, 4");
Dave Love <fx@gnu.org>
parents:
diff changeset
311 asm(" comm flag_68040, 4");
Dave Love <fx@gnu.org>
parents:
diff changeset
312 asm(" comm flag_fpa, 4");
Dave Love <fx@gnu.org>
parents:
diff changeset
313
Dave Love <fx@gnu.org>
parents:
diff changeset
314 #endif /* new hp assembler */
Dave Love <fx@gnu.org>
parents:
diff changeset
315 #endif /* hp9000s300 */
Dave Love <fx@gnu.org>
parents:
diff changeset
316
Dave Love <fx@gnu.org>
parents:
diff changeset
317 #ifdef sparc
Dave Love <fx@gnu.org>
parents:
diff changeset
318 asm (".global __start");
Dave Love <fx@gnu.org>
parents:
diff changeset
319 asm (".text");
Dave Love <fx@gnu.org>
parents:
diff changeset
320 asm ("__start:");
Dave Love <fx@gnu.org>
parents:
diff changeset
321 asm (" mov 0, %fp");
Dave Love <fx@gnu.org>
parents:
diff changeset
322 asm (" ld [%sp + 64], %o0");
Dave Love <fx@gnu.org>
parents:
diff changeset
323 asm (" add %sp, 68, %o1");
Dave Love <fx@gnu.org>
parents:
diff changeset
324 asm (" sll %o0, 2, %o2");
Dave Love <fx@gnu.org>
parents:
diff changeset
325 asm (" add %o2, 4, %o2");
Dave Love <fx@gnu.org>
parents:
diff changeset
326 asm (" add %o1, %o2, %o2");
Dave Love <fx@gnu.org>
parents:
diff changeset
327 asm (" sethi %hi(_environ), %o3");
Dave Love <fx@gnu.org>
parents:
diff changeset
328 asm (" st %o2, [%o3+%lo(_environ)]");
Dave Love <fx@gnu.org>
parents:
diff changeset
329 asm (" andn %sp, 7, %sp");
Dave Love <fx@gnu.org>
parents:
diff changeset
330 asm (" call _main");
Dave Love <fx@gnu.org>
parents:
diff changeset
331 asm (" sub %sp, 24, %sp");
Dave Love <fx@gnu.org>
parents:
diff changeset
332 asm (" call __exit");
Dave Love <fx@gnu.org>
parents:
diff changeset
333 asm (" nop");
Dave Love <fx@gnu.org>
parents:
diff changeset
334
Dave Love <fx@gnu.org>
parents:
diff changeset
335 #endif /* sparc */
Dave Love <fx@gnu.org>
parents:
diff changeset
336
Dave Love <fx@gnu.org>
parents:
diff changeset
337 #if __FreeBSD__ == 2
Dave Love <fx@gnu.org>
parents:
diff changeset
338 char *__progname;
Dave Love <fx@gnu.org>
parents:
diff changeset
339 #endif
Dave Love <fx@gnu.org>
parents:
diff changeset
340 #ifdef __bsdi__
Dave Love <fx@gnu.org>
parents:
diff changeset
341 #include <sys/param.h> /* for version number */
Dave Love <fx@gnu.org>
parents:
diff changeset
342 #if defined(_BSDI_VERSION) && (_BSDI_VERSION >= 199501)
Dave Love <fx@gnu.org>
parents:
diff changeset
343 char *__progname;
Dave Love <fx@gnu.org>
parents:
diff changeset
344 #endif
Dave Love <fx@gnu.org>
parents:
diff changeset
345 #endif /* __bsdi__ */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
346
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
347 /* arch-tag: 4025c2fb-d6b1-4d29-b1b6-8100b6bd1e74
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
348 (do not change this comment) */