| 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 */ |