Commit | Line | Data |
---|---|---|
514e603d AC |
1 | /* OBSOLETE /* Low level interface to ptrace, for GDB when running under Unix. */ |
2 | /* OBSOLETE Copyright 1986, 1987, 1989, 2000 Free Software Foundation, Inc. */ | |
3 | /* OBSOLETE */ | |
4 | /* OBSOLETE This file is part of GDB. */ | |
5 | /* OBSOLETE */ | |
6 | /* OBSOLETE This program is free software; you can redistribute it and/or modify */ | |
7 | /* OBSOLETE it under the terms of the GNU General Public License as published by */ | |
8 | /* OBSOLETE the Free Software Foundation; either version 2 of the License, or */ | |
9 | /* OBSOLETE (at your option) any later version. */ | |
10 | /* OBSOLETE */ | |
11 | /* OBSOLETE This program is distributed in the hope that it will be useful, */ | |
12 | /* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */ | |
13 | /* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ | |
14 | /* OBSOLETE GNU General Public License for more details. */ | |
15 | /* OBSOLETE */ | |
16 | /* OBSOLETE You should have received a copy of the GNU General Public License */ | |
17 | /* OBSOLETE along with this program; if not, write to the Free Software */ | |
18 | /* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, */ | |
19 | /* OBSOLETE Boston, MA 02111-1307, USA. */ */ | |
20 | /* OBSOLETE */ | |
21 | /* OBSOLETE #ifdef __GNUC__ */ | |
22 | /* OBSOLETE /* Bad implement execle(3). It's depend for "/bin/cc". */ | |
23 | /* OBSOLETE */ | |
24 | /* OBSOLETE main() */ | |
25 | /* OBSOLETE { */ | |
26 | /* OBSOLETE printf("execle:\n"); */ | |
27 | /* OBSOLETE execle(FILE, ARGS, envp); */ | |
28 | /* OBSOLETE exit(1); */ | |
29 | /* OBSOLETE } */ | |
30 | /* OBSOLETE */ | |
31 | /* OBSOLETE GCC: */ | |
32 | /* OBSOLETE link a6,#0 */ | |
33 | /* OBSOLETE pea LC5 ; call printf */ | |
34 | /* OBSOLETE jbsr _printf */ | |
35 | /* OBSOLETE ; ; (not popd stack) */ | |
36 | /* OBSOLETE pea _envp ; call execle */ | |
37 | /* OBSOLETE clrl sp@- */ | |
38 | /* OBSOLETE pea LC4 */ | |
39 | /* OBSOLETE pea LC4 */ | |
40 | /* OBSOLETE pea LC4 */ | |
41 | /* OBSOLETE pea LC3 */ | |
42 | /* OBSOLETE pea LC6 */ | |
43 | /* OBSOLETE jbsr _execle */ | |
44 | /* OBSOLETE addw #32,sp ; delayed pop !! */ | |
45 | /* OBSOLETE */ | |
46 | /* OBSOLETE /bin/cc: */ | |
47 | /* OBSOLETE link.l fp,#L23 */ | |
48 | /* OBSOLETE movem.l #L24,(sp) */ | |
49 | /* OBSOLETE pea L26 ; call printf */ | |
50 | /* OBSOLETE jbsr _printf */ | |
51 | /* OBSOLETE addq.l #4,sp ; <--- popd stack !! */ | |
52 | /* OBSOLETE pea _envp ; call execle */ | |
53 | /* OBSOLETE clr.l -(sp) */ | |
54 | /* OBSOLETE pea L32 */ | |
55 | /* OBSOLETE */ | |
56 | /* OBSOLETE */ */ | |
57 | /* OBSOLETE */ | |
58 | /* OBSOLETE execle (char *name, char *args) */ | |
59 | /* OBSOLETE { */ | |
60 | /* OBSOLETE register char **env = &args; */ | |
61 | /* OBSOLETE while (*env++) */ | |
62 | /* OBSOLETE ; */ | |
63 | /* OBSOLETE execve (name, (char **) &args, (char **) *env); */ | |
64 | /* OBSOLETE } */ | |
65 | /* OBSOLETE #endif */ |