| 1 |
282 |
jeremybenn |
/* Definitions of target machine GNU compiler. 32bit VMS version.
|
| 2 |
|
|
Copyright (C) 2009 Free Software Foundation, Inc.
|
| 3 |
|
|
Contributed by Douglas B Rupp (rupp@gnat.com).
|
| 4 |
|
|
|
| 5 |
|
|
This file is part of GCC.
|
| 6 |
|
|
|
| 7 |
|
|
GCC is free software; you can redistribute it and/or modify
|
| 8 |
|
|
it under the terms of the GNU General Public License as published by
|
| 9 |
|
|
the Free Software Foundation; either version 3, or (at your option)
|
| 10 |
|
|
any later version.
|
| 11 |
|
|
|
| 12 |
|
|
GCC is distributed in the hope that it will be useful,
|
| 13 |
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
| 14 |
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
| 15 |
|
|
GNU General Public License for more details.
|
| 16 |
|
|
|
| 17 |
|
|
You should have received a copy of the GNU General Public License
|
| 18 |
|
|
along with GCC; see the file COPYING3. If not see
|
| 19 |
|
|
<http://www.gnu.org/licenses/>. */
|
| 20 |
|
|
|
| 21 |
|
|
/*
|
| 22 |
|
|
Correlation array of standard CRTL names with DECCRTL
|
| 23 |
|
|
function names. Currently contains only a partial list,
|
| 24 |
|
|
e.g. those functions use in GNAT and GCC
|
| 25 |
|
|
|
| 26 |
|
|
Note: Please keep in alphabetical order.
|
| 27 |
|
|
*/
|
| 28 |
|
|
|
| 29 |
|
|
#define CRTL_NAMES \
|
| 30 |
|
|
{ \
|
| 31 |
|
|
{"_calloc32", "decc$calloc", 0}, \
|
| 32 |
|
|
{"_malloc32", "decc$malloc", 0}, \
|
| 33 |
|
|
{"_realloc32", "decc$realloc", 0}, \
|
| 34 |
|
|
{"_strdup32", "decc$strdup", 0}, \
|
| 35 |
|
|
{"abs", "decc$abs", 0}, \
|
| 36 |
|
|
{"abort", "decc$abort", 0}, \
|
| 37 |
|
|
{"access", "decc$access", 0}, \
|
| 38 |
|
|
{"accept", "decc$accept", 0}, \
|
| 39 |
|
|
{"acos", "decc$tacos", 0}, \
|
| 40 |
|
|
{"alarm", "decc$alarm", 0}, \
|
| 41 |
|
|
{"asin", "decc$tasin", 0}, \
|
| 42 |
|
|
{"atan", "decc$tatan", 0}, \
|
| 43 |
|
|
{"atan2", "decc$tatan2", 0}, \
|
| 44 |
|
|
{"atexit", "decc$atexit", 0}, \
|
| 45 |
|
|
{"atoi", "decc$atoi", 0}, \
|
| 46 |
|
|
{"atoll", "decc$atoll", 0}, \
|
| 47 |
|
|
{"atoq", "decc$atoq", 0}, \
|
| 48 |
|
|
{"basename", "decc$basename", 0}, \
|
| 49 |
|
|
{"bcmp", "decc$bcmp", 0}, \
|
| 50 |
|
|
{"bcopy", "decc$bcopy", 0}, \
|
| 51 |
|
|
{"bsearch", "decc$bsearch", 0}, \
|
| 52 |
|
|
{"bzero", "decc$bzero", 0}, \
|
| 53 |
|
|
{"calloc", "decc$calloc", 0}, \
|
| 54 |
|
|
{"ceil", "decc$tceil", 0}, \
|
| 55 |
|
|
{"chdir", "decc$chdir", 0}, \
|
| 56 |
|
|
{"chown", "decc$chown", 0}, \
|
| 57 |
|
|
{"clearerr", "decc$clearerr", 0}, \
|
| 58 |
|
|
{"clock", "decc$clock", 0}, \
|
| 59 |
|
|
{"close", "decc$close", 0}, \
|
| 60 |
|
|
{"cos", "decc$tcos", 0}, \
|
| 61 |
|
|
{"connect", "decc$connect", 0}, \
|
| 62 |
|
|
{"ctime", "decc$ctime", 0}, \
|
| 63 |
|
|
{"dup", "decc$dup", 0}, \
|
| 64 |
|
|
{"dup2", "decc$dup2", 0}, \
|
| 65 |
|
|
{"exit", "decc$exit", 0}, \
|
| 66 |
|
|
{"exp", "decc$texp", 0}, \
|
| 67 |
|
|
{"fabs", "decc$tfabs", 0}, \
|
| 68 |
|
|
{"fclose", "decc$fclose", 0}, \
|
| 69 |
|
|
{"fdopen", "decc$fdopen", 0}, \
|
| 70 |
|
|
{"fgetc", "decc$fgetc", 0}, \
|
| 71 |
|
|
{"fgets", "decc$fgets", 0}, \
|
| 72 |
|
|
{"fflush", "decc$fflush", 0}, \
|
| 73 |
|
|
{"ffs", "decc$ffs", 0}, \
|
| 74 |
|
|
{"floor", "decc$tfloor", 0}, \
|
| 75 |
|
|
{"fopen", "decc$fopen", 0}, \
|
| 76 |
|
|
{"fputc", "decc$fputc", 0}, \
|
| 77 |
|
|
{"fputs", "decc$fputs", 0}, \
|
| 78 |
|
|
{"free", "decc$free", 0}, \
|
| 79 |
|
|
{"fread", "decc$fread", 0}, \
|
| 80 |
|
|
{"freopen", "decc$freopen", 0}, \
|
| 81 |
|
|
{"fseek", "decc$fseek", 0}, \
|
| 82 |
|
|
{"ftell", "decc$ftell", 0}, \
|
| 83 |
|
|
{"fwrite", "decc$fwrite", 0}, \
|
| 84 |
|
|
{"getcwd", "decc$getcwd", 0}, \
|
| 85 |
|
|
{"getegid", "decc$getegid", 0}, \
|
| 86 |
|
|
{"getenv", "decc$getenv", 0}, \
|
| 87 |
|
|
{"geteuid", "decc$geteuid", 0}, \
|
| 88 |
|
|
{"getgid", "decc$getgid", 0}, \
|
| 89 |
|
|
{"gethostbyname","decc$gethostbyname",0}, \
|
| 90 |
|
|
{"getpagesize", "decc$getpagesize", 0}, \
|
| 91 |
|
|
{"getpid", "decc$getpid", 0}, \
|
| 92 |
|
|
{"getservbyname","decc$getservbyname",0}, \
|
| 93 |
|
|
{"gettimeofday", "decc$gettimeofday", 0}, \
|
| 94 |
|
|
{"getuid", "decc$getuid", 0}, \
|
| 95 |
|
|
{"htons", "decc$htons", 0}, \
|
| 96 |
|
|
{"iconv", "decc$iconv", 0}, \
|
| 97 |
|
|
{"index", "decc$index", 0}, \
|
| 98 |
|
|
{"isatty", "decc$isatty", 0}, \
|
| 99 |
|
|
{"isdigit", "decc$isdigit", 0}, \
|
| 100 |
|
|
{"kill", "decc$kill", 0}, \
|
| 101 |
|
|
{"log", "decc$tlog", 0}, \
|
| 102 |
|
|
{"log10", "decc$tlog10", 0}, \
|
| 103 |
|
|
{"lseek", "decc$lseek", 0}, \
|
| 104 |
|
|
{"ioctl", "decc$ioctl", 0}, \
|
| 105 |
|
|
{"malloc", "decc$malloc", 0}, \
|
| 106 |
|
|
{"mbstowcs", "decc$mbstowcs", 0}, \
|
| 107 |
|
|
{"memchr", "decc$memchr", 0}, \
|
| 108 |
|
|
{"memcmp", "decc$memcmp", 0}, \
|
| 109 |
|
|
{"memcpy", "decc$memcpy", 0}, \
|
| 110 |
|
|
{"memmove", "decc$memmove", 0}, \
|
| 111 |
|
|
{"memset", "decc$memset", 0}, \
|
| 112 |
|
|
{"mkstemp", "decc$mkstemp", 0}, \
|
| 113 |
|
|
{"mktemp", "decc$mktemp", 0}, \
|
| 114 |
|
|
{"mmap", "decc$mmap", 0}, \
|
| 115 |
|
|
{"munmap", "decc$munmap", 0}, \
|
| 116 |
|
|
{"nl_langinfo", "decc$nl_langinfo", 0}, \
|
| 117 |
|
|
{"pclose", "decc$pclose", 0}, \
|
| 118 |
|
|
{"popen", "decc$popen", 0}, \
|
| 119 |
|
|
{"pow", "decc$tpow", 0}, \
|
| 120 |
|
|
{"printf", "decc$txprintf", 0}, \
|
| 121 |
|
|
{"putenv", "decc$putenv", 0}, \
|
| 122 |
|
|
{"puts", "decc$puts", 0}, \
|
| 123 |
|
|
{"random", "decc$random", 0}, \
|
| 124 |
|
|
{"read", "decc$read", 0}, \
|
| 125 |
|
|
{"realloc", "decc$realloc", 0}, \
|
| 126 |
|
|
{"recv", "decc$recv", 0}, \
|
| 127 |
|
|
{"recvfrom", "decc$recvfrom", 0}, \
|
| 128 |
|
|
{"rename", "decc$rename", 0}, \
|
| 129 |
|
|
{"rewind", "decc$rewind", 0}, \
|
| 130 |
|
|
{"rindex", "decc$rindex", 0}, \
|
| 131 |
|
|
{"rmdir", "decc$rmdir", 0}, \
|
| 132 |
|
|
{"send", "decc$send", 0}, \
|
| 133 |
|
|
{"sendto", "decc$sendto", 0}, \
|
| 134 |
|
|
{"setenv", "decc$setenv", 0}, \
|
| 135 |
|
|
{"setlocale", "decc$setlocale", 0}, \
|
| 136 |
|
|
{"setvbuf", "decc$setvbuf", 0}, \
|
| 137 |
|
|
{"signal", "decc$signal", 0}, \
|
| 138 |
|
|
{"sigsetmask", "decc$sigsetmask", 0}, \
|
| 139 |
|
|
{"sin", "decc$tsin", 0}, \
|
| 140 |
|
|
{"snprintf", "decc$txsnprintf", 0}, \
|
| 141 |
|
|
{"socket", "decc$socket", 0}, \
|
| 142 |
|
|
{"sqrt", "decc$tsqrt", 0}, \
|
| 143 |
|
|
{"strcasecmp", "decc$strcasecmp", 0}, \
|
| 144 |
|
|
{"strchr", "decc$strchr", 0}, \
|
| 145 |
|
|
{"strcpy", "decc$strcpy", 0}, \
|
| 146 |
|
|
{"strdup", "decc$strdup", 0}, \
|
| 147 |
|
|
{"strerror", "decc$strerror", 0}, \
|
| 148 |
|
|
{"strlen", "decc$strlen", 0}, \
|
| 149 |
|
|
{"strncasecmp", "decc$strncasecmp", 0}, \
|
| 150 |
|
|
{"strncmp", "decc$strncmp", 0}, \
|
| 151 |
|
|
{"strncpy", "decc$strncpy", 0}, \
|
| 152 |
|
|
{"strrchr", "decc$strrchr", 0}, \
|
| 153 |
|
|
{"strstr", "decc$strstr", 0}, \
|
| 154 |
|
|
{"strtod", "decc$tstrtod", 0}, \
|
| 155 |
|
|
{"strtol", "decc$strtoll", 0}, \
|
| 156 |
|
|
{"strtoul", "decc$strtoull", 0}, \
|
| 157 |
|
|
{"sysconf", "decc$sysconf", 0}, \
|
| 158 |
|
|
{"system", "decc$system", 0}, \
|
| 159 |
|
|
{"tan", "decc$ttan", 0}, \
|
| 160 |
|
|
{"time", "decc$time", 0}, \
|
| 161 |
|
|
{"times", "decc$times", 0}, \
|
| 162 |
|
|
{"tmpfile", "decc$tmpfile", 0}, \
|
| 163 |
|
|
{"tmpnam", "decc$tmpnam", 0}, \
|
| 164 |
|
|
{"ungetc", "decc$ungetc", 0}, \
|
| 165 |
|
|
{"unlink", "decc$unlink", 0}, \
|
| 166 |
|
|
{"umask", "decc$umask", 0}, \
|
| 167 |
|
|
{"utime", "decc$utime", 0}, \
|
| 168 |
|
|
{"wait", "decc$wait", 0}, \
|
| 169 |
|
|
{"waitpid", "decc$waitpid", 0}, \
|
| 170 |
|
|
{"wcswidth", "decc$wcswidth", 0}, \
|
| 171 |
|
|
{"write", "decc$write", 0}, \
|
| 172 |
|
|
{"vfprintf", "decc$txvfprintf", 0}, \
|
| 173 |
|
|
{"vprintf", "decc$txvprintf", 0}, \
|
| 174 |
|
|
{"vsprintf", "decc$txvsprintf", 0}, \
|
| 175 |
|
|
{"vsnprintf", "decc$txvsnprintf", 0}, \
|
| 176 |
|
|
{NULL, NULL, 0} \
|
| 177 |
|
|
}
|
| 178 |
|
|
|
| 179 |
|
|
/* Initialize of libfuncs that are 32/64 bit memory specific. */
|
| 180 |
|
|
|
| 181 |
|
|
#define MEM_LIBFUNCS_INIT \
|
| 182 |
|
|
do { \
|
| 183 |
|
|
memcpy_libfunc = init_one_libfunc ("decc$memcpy"); \
|
| 184 |
|
|
memmove_libfunc = init_one_libfunc ("decc$memmove"); \
|
| 185 |
|
|
memset_libfunc = init_one_libfunc ("decc$memset"); \
|
| 186 |
|
|
} while (0)
|
