]>
Commit | Line | Data |
---|---|---|
b6bfa876 DR |
1 | /* VMS 64bit crt0 returning VMS style condition codes . |
2 | Copyright (C) 2001 Free Software Foundation, Inc. | |
3 | Contributed by Douglas B. Rupp (rupp@gnat.com). | |
4 | ||
7ec022b2 | 5 | This file is part of GCC. |
b6bfa876 | 6 | |
7ec022b2 | 7 | GCC is free software; you can redistribute it and/or modify |
b6bfa876 DR |
8 | it under the terms of the GNU General Public License as published by |
9 | the Free Software Foundation; either version 2, or (at your option) | |
10 | any later version. | |
11 | ||
12 | In addition to the permissions in the GNU General Public License, the | |
13 | Free Software Foundation gives you unlimited permission to link the | |
14 | compiled version of this file into combinations with other programs, | |
15 | and to distribute those combinations without any restriction coming | |
16 | from the use of this file. (The General Public License restrictions | |
17 | do apply in other respects; for example, they cover modification of | |
18 | the file, and distribution when not linked into a combine | |
19 | executable.) | |
20 | ||
7ec022b2 | 21 | GCC is distributed in the hope that it will be useful, |
b6bfa876 DR |
22 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
23 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
24 | GNU General Public License for more details. | |
25 | ||
26 | You should have received a copy of the GNU General Public License | |
7ec022b2 | 27 | along with GCC; see the file COPYING. If not, write to |
b6bfa876 DR |
28 | the Free Software Foundation, 59 Temple Place - Suite 330, |
29 | Boston, MA 02111-1307, USA. */ | |
30 | ||
31 | #if !defined(__DECC) | |
32 | You Lose! This file can only be compiled with DEC C. | |
33 | #else | |
34 | ||
27d30956 | 35 | /* This file can only be compiled with DEC C, due to the call to |
b6bfa876 DR |
36 | lib$establish and the pragmas pointer_size. */ |
37 | ||
38 | #pragma __pointer_size short | |
39 | ||
40 | #include <stdlib.h> | |
41 | #include <string.h> | |
42 | #include <ssdef.h> | |
43 | ||
44 | extern void decc$main (); | |
45 | ||
46 | extern int main (); | |
47 | ||
48 | static int | |
49 | handler (sigargs, mechargs) | |
50 | void *sigargs; | |
51 | void *mechargs; | |
52 | { | |
53 | return SS$_RESIGNAL; | |
54 | } | |
55 | ||
56 | int | |
57 | __main (arg1, arg2, arg3, image_file_desc, arg5, arg6) | |
58 | void *arg1, *arg2, *arg3; | |
59 | void *image_file_desc; | |
60 | void *arg5, *arg6; | |
61 | { | |
62 | int argc; | |
63 | char **argv; | |
64 | char **envp; | |
65 | ||
66 | #pragma __pointer_size long | |
67 | ||
68 | int i; | |
69 | char **long_argv; | |
70 | char **long_envp; | |
71 | ||
72 | #pragma __pointer_size short | |
73 | ||
74 | lib$establish (handler); | |
75 | decc$main (arg1, arg2, arg3, image_file_desc, | |
76 | arg5, arg6, &argc, &argv, &envp); | |
77 | ||
78 | #pragma __pointer_size long | |
79 | ||
80 | /* Reallocate argv with 64 bit pointers. */ | |
81 | long_argv = (char **) malloc (sizeof (char *) * (argc + 1)); | |
82 | ||
83 | for (i = 0; i < argc; i++) | |
84 | long_argv[i] = strdup (argv[i]); | |
85 | ||
86 | long_argv[argc] = (char *) 0; | |
87 | ||
88 | long_envp = (char **) malloc (sizeof (char *) * 5); | |
89 | ||
90 | for (i = 0; envp[i]; i++) | |
91 | long_envp[i] = strdup (envp[i]); | |
92 | ||
93 | long_envp[i] = (char *) 0; | |
94 | ||
95 | #pragma __pointer_size short | |
96 | ||
97 | return main (argc, long_argv, long_envp); | |
98 | } | |
99 | #endif |