mobile/src/bin/embryo_cc_sc5.scp

   1 /*  Small compiler - Error message strings (plain and compressed formats)
   2  *
   3  *  Copyright (c) ITB CompuPhase, 2000-2003
   4  *
   5  *  This software is provided "as-is", without any express or implied warranty.
   6  *  In no event will the authors be held liable for any damages arising from
   7  *  the use of this software.
   8  *
   9  *  Permission is granted to anyone to use this software for any purpose,
  10  *  including commercial applications, and to alter it and redistribute it
  11  *  freely, subject to the following restrictions:
  12  *
  13  *  1.  The origin of this software must not be misrepresented; you must not
  14  *      claim that you wrote the original software. If you use this software in
  15  *      a product, an acknowledgment in the product documentation would be
  16  *      appreciated but is not required.
  17  *  2.  Altered source versions must be plainly marked as such, and must not be
  18  *      misrepresented as being the original software.
  19  *  3.  This notice may not be removed or altered from any source distribution.
  20  *
  21  *  Version: $Id$
  22  */
  23
  24 int         strexpand(char *dest, unsigned char *source, int maxlen,
  25                               unsigned char pairtable[128][2]);
  26
  27 #define SCPACK_TABLE errstr_table
  28 /*-*SCPACK start of pair table, do not change or remove this line */
  29 unsigned char       errstr_table[][2] = {
  30    {101, 32}, {116, 32}, {111, 110}, {105, 110}, {97, 114}, {100, 32}, {105,
  31                                                                         130},
  32       {101, 114}, {101, 110}, {115, 32}, {97, 108}, {97, 116}, {117, 110}, {115,
  33                                                                             34},
  34       {37, 141}, {34, 142},
  35    {109, 136}, {121, 32}, {97, 110}, {114, 101}, {99, 116}, {134, 32}, {110,
  36                                                                         111},
  37       {101, 133}, {118, 138}, {115, 105}, {98, 108}, {111, 114}, {115, 116},
  38       {41, 10}, {109, 98}, {100, 101},
  39    {117, 115}, {150, 129}, {102, 140}, {117, 144}, {162, 148}, {103, 163}, {132,
  40                                                                             165},
  41       {114, 97}, {105, 133}, {152, 168}, {99, 104}, {32, 143}, {97, 32}, {131,
  42                                                                           169},
  43       {97, 115}, {164, 149},
  44    {111, 108}, {101, 120}, {97, 154}, {135, 32}, {132, 167}, {111, 102}, {105,
  45                                                                           116},
  46       {166, 129}, {101, 100}, {98, 128}, {178, 128}, {160, 129}, {105, 137},
  47       {180, 145}, {121, 158}, {190, 176},
  48    {109, 187}, {115, 191}, {118, 132}, {101, 10}, {115, 10}, {112, 147}, {155,
  49                                                                           32},
  50       {181, 32}, {159, 102}, {194, 105}, {99, 130}, {103, 32}, {201, 186}, {116,
  51                                                                             111},
  52       {34, 32}, {109, 97},
  53    {153, 122}, {171, 10}, {104, 97}, {100, 105}, {108, 111}, {111, 112}, {200,
  54                                                                           131},
  55       {139, 134}, {213, 135}, {101, 137}, {202, 156}, {143, 157}, {138, 32},
  56       {192, 185}, {58, 209}, {105, 99},
  57    {112, 111}, {115, 115}, {110, 117}, {115, 117}, {146, 129}, {226, 158}, {229,
  58                                                                             179},
  59       {177, 197}, {231, 225}, {132, 97}, {98, 101}, {99, 111}, {216, 139}, {109,
  60                                                                             139},
  61       {116, 10}, {99, 146},
  62    {44, 32}, {237, 170}, {131, 203}, {116, 104}, {117, 108}, {152, 117}, {108,
  63                                                                           128},
  64       {118, 128}, {101, 144}, {233, 148}, {174, 153}, {110, 32}, {131, 32},
  65       {146, 32}, {239, 161}
  66 };
  67 /*-*SCPACK end of pair table, do not change or remove this line */
  68
  69 static char        *errmsg[] = {
  70 #ifdef SCPACK
  71 /*001*/ "expected token: \"%s\", but found \"%s\"\n",
  72 /*002*/ "only a single statement (or expression) can follow each \"case\"\n",
  73 /*003*/ "declaration of a local variable must appear in a compound block\n",
  74 /*004*/ "function \"%s\" is not implemented\n",
  75 /*005*/ "function may not have arguments\n",
  76 /*006*/ "must be assigned to an array\n",
  77 /*007*/ "assertion failed\n",
  78 /*008*/ "must be a constant expression; assumed zero\n",
  79 /*009*/ "invalid array size (negative or zero)\n",
  80 /*010*/ "invalid function or declaration\n",
  81 /*011*/ "invalid outside functions\n",
  82 /*012*/ "invalid function call, not a valid address\n",
  83 /*013*/ "no entry point (no public functions)\n",
  84 /*014*/ "invalid statement; not in switch\n",
  85 /*015*/ "\"default\" case must be the last case in switch statement\n",
  86 /*016*/ "multiple defaults in \"switch\"\n",
  87 /*017*/ "undefined symbol \"%s\"\n",
  88 /*018*/ "initialization data exceeds declared size\n",
  89 /*019*/ "not a label: \"%s\"\n",
  90 /*020*/ "invalid symbol name \"%s\"\n",
  91 /*021*/ "symbol already defined: \"%s\"\n",
  92 /*022*/ "must be lvalue (non-constant)\n",
  93 /*023*/ "array assignment must be simple assignment\n",
  94 /*024*/ "\"break\" or \"continue\" is out of context\n",
  95 /*025*/ "function heading differs from prototype\n",
  96 /*026*/ "no matching \"#if...\"\n",
  97 /*027*/ "invalid character constant\n",
  98 /*028*/ "invalid subscript (not an array or too many subscripts)\n",
  99 /*029*/ "invalid expression, assumed zero\n",
 100 /*030*/ "compound statement not closed at the end of file\n",
 101 /*031*/ "unknown directive\n",
 102 /*032*/ "array index out of bounds (variable \"%s\")\n",
 103 /*033*/ "array must be indexed (variable \"%s\")\n",
 104 /*034*/ "argument does not have a default value (argument %d)\n",
 105 /*035*/ "argument type mismatch (argument %d)\n",
 106 /*036*/ "empty statement\n",
 107 /*037*/ "invalid string (possibly non-terminated string)\n",
 108 /*038*/ "extra characters on line\n",
 109 /*039*/ "constant symbol has no size\n",
 110 /*040*/ "duplicate \"case\" label (value %d)\n",
 111 /*041*/ "invalid ellipsis, array size is not known\n",
 112 /*042*/ "invalid combination of class specifiers\n",
 113 /*043*/ "character constant exceeds range for packed string\n",
 114 /*044*/ "positional parameters must precede all named parameters\n",
 115 /*045*/ "too many function arguments\n",
 116 /*046*/ "unknown array size (variable \"%s\")\n",
 117 /*047*/ "array sizes must match\n",
 118 /*048*/ "array dimensions must match\n",
 119 /*049*/ "invalid line continuation\n",
 120 /*050*/ "invalid range\n",
 121 /*051*/ "invalid subscript, use \"[ ]\" operators on major dimensions\n",
 122 /*052*/ "only the last dimension may be variable length\n",
 123 /*053*/ "exceeding maximum number of dimensions\n",
 124 /*054*/ "unmatched closing brace\n",
 125 /*055*/ "start of function body without function header\n",
 126 /*056*/
 127       "arrays, local variables and function arguments cannot be public (variable \"%s\")\n",
 128 /*057*/ "unfinished expression before compiler directive\n",
 129 /*058*/ "duplicate argument; same argument is passed twice\n",
 130 /*059*/ "function argument may not have a default value (variable \"%s\")\n",
 131 /*060*/ "multiple \"#else\" directives between \"#if ... #endif\"\n",
 132 /*061*/ "operator cannot be redefined\n",
 133 /*062*/ "number of operands does not fit the operator\n",
 134 /*063*/ "function result tag of operator \"%s\" must be \"%s\"\n",
 135 /*064*/ "cannot change predefined operators\n",
 136 /*065*/ "function argument may only have a single tag (argument %d)\n",
 137 /*066*/
 138       "function argument may not be a reference argument or an array (argument \"%s\")\n",
 139 /*067*/
 140       "variable cannot be both a reference and an array (variable \"%s\")\n",
 141 /*068*/ "invalid rational number precision in #pragma\n",
 142 /*069*/ "rational number format already defined\n",
 143 /*070*/ "rational number support was not enabled\n",
 144 /*071*/
 145       "user-defined operator must be declared before use (function \"%s\")\n",
 146 /*072*/ "\"sizeof\" operator is invalid on \"function\" symbols\n",
 147 /*073*/ "function argument must be an array (argument \"%s\")\n",
 148 /*074*/ "#define pattern must start with an alphabetic character\n",
 149 /*075*/ "input line too long (after substitutions)\n"
 150 #else
 151    "\261pe\224\227\315k\210:\253\360bu\201fo\214\205\217\012",
 152    "\202l\221\254s\203g\366\234\213\370\201(\306\350\206) \357 f\260\324w ea\252 \042c\256e\042\012",
 153    "\237cl\204\213\225\307\254\324c\334\314\300appe\204 \374\254\353m\340\214\205\232ock\012",
 154    "\257\217 \274\241impl\370t\270\012",
 155    "\257\317\221\241\322\367\246t\304",
 156    "\335\372gn\227\315 \375\264y\012",
 157    "\256s\207t\225fail\270\012",
 158    "\335\254\332\344\350\206; \256\343m\227z\207o\012",
 159    "\255\275\320\200(neg\213i\367\306z\207o\235",
 160    "\255\257\306\237cl\204\327\012",
 161    "\255out\231d\200\244\206\304",
 162    "\255\257c\212l\360\241\254\251add\223s\304",
 163    "\226 \210tr\221\340\203\201(\226 pu\232\337 \244\206s\235",
 164    "\255\234\213\370t; \241\374sw\266\252\012",
 165    "\042\310a\364t\316c\256\200\335\363\200l\256\201c\256\200\374sw\266\252 \234\213\370\356",
 166    "m\364tip\366\310a\364t\211\374\042sw\266\252\042\012",
 167    "\214\326\227\301\321",
 168    "\203\266i\212iz\213\225d\213\254\261ce\270\211\237cl\204\227\320\303",
 169    "\241\254la\352l\336",
 170    "\255\301 nam\200\217\012",
 171    "\301 \212\223ad\221\326\270\336",
 172    "\335l\365\200(n\202-\332\222t\235",
 173    "\275\372gn\220\201\335\231mp\366\372gn\220\356",
 174    "\042b\223ak\316\306\042\312t\203ue\316\274ou\201\307\312t\261\356",
 175    "\257head\362\323ff\207\211from pro\315typ\303",
 176    "\226 \361\362\042#if...\042\012",
 177    "\255\252\371\263\332\222\356",
 178    "\255\343bscrip\201(\241\375\275\306\315o m\222\221\343bscripts\235",
 179    "\255\350\206\360\256\343m\227z\207o\012",
 180    "\353m\340\214\205\234\213\370\201\241c\324s\227a\201\363\200\210\205\307fil\303",
 181    "\214k\226w\373\323\223\224iv\303",
 182    "\275\203\237x ou\201\307bo\214d\211(\314\333",
 183    "\275\335\203\237x\227(\314\333",
 184    "\267do\331\241\322\367\254\310a\364\201\365\200(\267%d\235",
 185    "\267typ\200mis\361 (\267%d\235",
 186    "empt\221\234\213\370\356",
 187    "\255\234r\362(\340s\231\232\221n\202-t\207m\203\213\227\234r\203g\235",
 188    "\261t\247 \252\371\207\211\202 l\203\303",
 189    "\332\344\301 \322\211\226 \320\303",
 190    "dupl\337\213\200\042c\256e\316la\352l (\365\200%d\235",
 191    "\255ellip\231s\360\275\320\200\274\241k\226wn\012",
 192    "\255\353\236\203\213\225\307cl\256\211specifi\207\304",
 193    "\252\371\263\332\344\261ce\270\211r\222g\200f\306pack\227\234r\203g\012",
 194    "\340\231t\206\334p\351met\207\211\300\305c\270\200\212l nam\227p\351met\207\304",
 195    "\315o m\222\221\257\246t\304",
 196    "\214k\226w\373\275\320\200(\314\333",
 197    "\275\320\331\300\361\012",
 198    "\275\323\220s\206\211\300\361\012",
 199    "\255l\203\200\312t\203u\327\012",
 200    "\255r\222g\303",
 201    "\255\343bscript\360\240\200\042[ ]\316\354\233\211\202 \317j\306\323\220s\206\304",
 202    "\202l\221\363\200l\256\201\323\220s\225\317\221\271\314l\210g\363\012",
 203    "\261ce\270\362\317ximum \346\307\323\220s\206\304",
 204    "\214\361\227c\324s\362b\247c\303",
 205    "\234\204\201\307\257bod\221w\266hou\201\257head\207\012",
 206    "\264ys\360\324c\334\311\262\331\222\205\257\246t\211\376\271pu\232\337 (\314\333",
 207    "\214f\203ish\227\350\225\352f\233\200\353mpil\263\323\223\224iv\303",
 208    "dupl\337\213\200\246t; sam\200\267\274p\256s\227tw\337\303",
 209    "\257\267\317\221\241\322\367\254\310a\364\201\365\200(\314\333",
 210    "m\364tip\366\042#else\316\323\223\224iv\331\352twe\210 \042#if ... #\210\323f\042\012",
 211    "\354\306\376\271\223\326\270\012",
 212    "\346\307\330\222d\211do\331\241fi\201\363\200\354\233\012",
 213    "\257\223\343l\201ta\313\307\354\233\253 \335\217\012",
 214    "\376\252\222g\200\305\326\227\354\233\304",
 215    "\257\267\317\221\202l\221\322\367\254s\203g\366ta\313(\267%d\235",
 216    "\257\267\317\221\241\271\254\223f\207\210c\200\267\306\375\275(\267\333",
 217    "\314\376\271bo\363 \254\223f\207\210c\200\222\205\375\275(\314\333",
 218    "\255r\327\334\346\305cis\225\374#p\247g\317\012",
 219    "r\327\334\346f\233\317\201\212\223ad\221\326\270\012",
 220    "r\327\334\346\343pp\233\201wa\211\241\210\262\270\012",
 221    "\240\207-\326\227\354\306\335\237cl\204\227\352f\233\200\240\200(\257\333",
 222    "\042\320e\265\316\354\306\274\255\202 \042\244\206\316\301\304",
 223    "\257\267\335\375\275(\267\333",
 224    "#\326\200p\213t\207\373\300\234\204\201w\266h \375\212p\322\352t\337 \252\371\207\012",
 225    "\203pu\201l\203\200\315o l\202\313(aft\263\343b\234\266ut\206s\235"
 226 #endif
 227 };
 228
 229 static char        *fatalmsg[] = {
 230 #ifdef SCPACK
 231 /*100*/ "cannot read from file: \"%s\"\n",
 232 /*101*/ "cannot write to file: \"%s\"\n",
 233 /*102*/ "table overflow: \"%s\"\n",
 234    /* table can be: loop table
 235     *               literal table
 236     *               staging buffer
 237     *               parser stack (recursive include?)
 238     *               option table (response file)
 239     *               peephole optimizer table
 240     */
 241 /*103*/ "insufficient memory\n",
 242 /*104*/ "invalid assembler instruction \"%s\"\n",
 243 /*105*/ "numeric overflow, exceeding capacity\n",
 244 /*106*/ "compaction buffer overflow\n",
 245 /*107*/ "too many error messages on one line\n"
 246 #else
 247    "\376\223a\205from file\336",
 248    "\376wr\266\200\315 file\336",
 249    "t\272ov\207f\324w\336",
 250    "\203\343ff\337i\210\201mem\233y\012",
 251    "\255\256sem\232\263\203\234ru\224\225\217\012",
 252    "\342m\207\337 ov\207f\324w\360\261ce\270\362capac\266y\012",
 253    "\353mpa\224\225buff\263ov\207f\324w\012",
 254    "\315o m\222\221\207r\306me\341ag\331\202 \202\200l\203\303"
 255 #endif
 256 };
 257
 258 static char        *warnmsg[] = {
 259 #ifdef SCPACK
 260 /*200*/ "symbol \"%s\" is truncated to %d characters\n",
 261 /*201*/ "redefinition of constant/macro (symbol \"%s\")\n",
 262 /*202*/ "number of arguments does not match definition\n",
 263 /*203*/ "symbol is never used: \"%s\"\n",
 264 /*204*/ "symbol is assigned a value that is never used: \"%s\"\n",
 265 /*205*/ "redundant code: constant expression is zero\n",
 266 /*206*/ "redundant test: constant expression is non-zero\n",
 267 /*207*/ "unknown #pragma\n",
 268 /*208*/ "function uses both \"return;\" and \"return <value>;\"\n",
 269 /*209*/ "function \"%s\" should return a value\n",
 270 /*210*/ "possible use of symbol before initialization: \"%s\"\n",
 271 /*211*/ "possibly unintended assignment\n",
 272 /*212*/ "possibly unintended bitwise operation\n",
 273 /*213*/ "tag mismatch\n",
 274 /*214*/ "possibly a \"const\" array argument was intended: \"%s\"\n",
 275 /*215*/ "expression has no effect\n",
 276 /*216*/ "nested comment\n",
 277 /*217*/ "loose indentation\n",
 278 /*218*/ "old style prototypes used with optional semicolumns\n",
 279 /*219*/ "local variable \"%s\" shadows a variable at a preceding level\n",
 280 /*220*/ "exported or native symbol \"%s\" is truncated to %d characters\n",
 281 /*221*/ "label name \"%s\" shadows tag name\n",
 282 /*222*/ "number of digits exceeds rational number precision\n",
 283 /*223*/ "redundant \"sizeof\": argument size is always 1 (symbol \"%s\")\n",
 284 /*224*/
 285       "indeterminate array size in \"sizeof\" expression (symbol \"%s\")\n",
 286 /*225*/ "unreachable code\n",
 287 /*226*/ "a variable is assigned to itself (symbol \"%s\")\n"
 288 #else
 289    "\301\253 \274tr\214c\213\227\315 %\205\252\371\207\304",
 290    "\223\326\266\225\307\332\222t/\317cro (\301\253\235",
 291    "\346\307\246t\211do\331\241\361 \326\266\206\012",
 292    "\301 \274nev\263\240\270\336",
 293    "\301 \274\372gn\227\254\365\200t\322\201\274nev\263\240\270\336",
 294    "\223d\214d\344\353\237: \332\344\350\225\274z\207o\012",
 295    "\223d\214d\344te\234: \332\344\350\225\274n\202-z\207o\012",
 296    "\214k\226w\373#p\247g\317\012",
 297    "\257\240\331bo\363 \042\223turn;\316\222\205\042\223tur\373<\365e>;\042\012",
 298    "\257\217 sho\364\205\223tur\373\254\365\303",
 299    "\340s\231\232\200\240\200\307\301 \352f\233\200\203\266i\212iz\327\336",
 300    "\340s\231\232\221\214\203t\210d\227\372gn\220\356",
 301    "\340s\231\232\221\214\203t\210d\227b\266wis\200\330\327\012",
 302    "ta\313mis\361\012",
 303    "\340s\231\232\221\254\042\332\316\275\267wa\211\203t\210\237d\336",
 304    "\350\225\322\211\226 effe\224\012",
 305    "ne\234\227\353m\220\356",
 306    "\324os\200\203d\210t\327\012",
 307    "\260\205\234y\366pro\315typ\331\240\227w\266h \325t\206\334sem\337\260umn\304",
 308    "\324c\334\314\217 s\322dow\211\254\314a\201\254\305c\270\362level\012",
 309    "\261p\233t\227\306n\213i\367\301\253 \274tr\214c\213\227\315 %\205\252\371\207\304",
 310    "la\352l nam\200\217 s\322dow\211ta\313nam\303",
 311    "\346\307\323g\266\211\261ce\270\211r\327\334\346\305cis\206\012",
 312    "\223d\214d\344\042\320e\265\042: \267\320\200\274\212way\2111 (\301\253\235",
 313    "\203\237t\207m\203\213\200\275\320\200\374\042\320e\265\316\350\225(\301\253\235",
 314    "\214\223a\252\272\353\237\012",
 315    "\254\314\274\372gn\227\315 \266self (\301\253\235"
 316 #endif
 317 };