summaryrefslogblamecommitdiff
path: root/src/bin/embryo/embryo_cc_sc5.scp
blob: bf0a606dc86b33e6e552606740a6a9dab4bc1e16 (plain) (tree)






















                                                                               
                                                                    
                                                               


                                                                    




































                                                                                 


                                                                  
                                
             














































































                                                                                            
     










































































                                                                                                     
      
  
 
                                  
             














                                                     
     







                                                                
      
  
 
                                 
             



























                                                                            
     


























                                                                                        
      
  
/*  Small compiler - Error message strings (plain and compressed formats)
 *
 *  Copyright (c) ITB CompuPhase, 2000-2003
 *
 *  This software is provided "as-is", without any express or implied warranty.
 *  In no event will the authors be held liable for any damages arising from
 *  the use of this software.
 *
 *  Permission is granted to anyone to use this software for any purpose,
 *  including commercial applications, and to alter it and redistribute it
 *  freely, subject to the following restrictions:
 *
 *  1.  The origin of this software must not be misrepresented; you must not
 *      claim that you wrote the original software. If you use this software in
 *      a product, an acknowledgment in the product documentation would be
 *      appreciated but is not required.
 *  2.  Altered source versions must be plainly marked as such, and must not be
 *      misrepresented as being the original software.
 *  3.  This notice may not be removed or altered from any source distribution.
 *
 *  Version: $Id$
 */

int         strexpand(char *dest, unsigned char *source, int maxlen,
			      unsigned char pairtable[128][2]);

#define SCPACK_TABLE errstr_table
/*-*SCPACK start of pair table, do not change or remove this line */
unsigned char       errstr_table[][2] = {
   {101, 32}, {116, 32}, {111, 110}, {105, 110}, {97, 114}, {100, 32}, {105,
									130},
      {101, 114}, {101, 110}, {115, 32}, {97, 108}, {97, 116}, {117, 110}, {115,
									    34},
      {37, 141}, {34, 142},
   {109, 136}, {121, 32}, {97, 110}, {114, 101}, {99, 116}, {134, 32}, {110,
									111},
      {101, 133}, {118, 138}, {115, 105}, {98, 108}, {111, 114}, {115, 116},
      {41, 10}, {109, 98}, {100, 101},
   {117, 115}, {150, 129}, {102, 140}, {117, 144}, {162, 148}, {103, 163}, {132,
									    165},
      {114, 97}, {105, 133}, {152, 168}, {99, 104}, {32, 143}, {97, 32}, {131,
									  169},
      {97, 115}, {164, 149},
   {111, 108}, {101, 120}, {97, 154}, {135, 32}, {132, 167}, {111, 102}, {105,
									  116},
      {166, 129}, {101, 100}, {98, 128}, {178, 128}, {160, 129}, {105, 137},
      {180, 145}, {121, 158}, {190, 176},
   {109, 187}, {115, 191}, {118, 132}, {101, 10}, {115, 10}, {112, 147}, {155,
									  32},
      {181, 32}, {159, 102}, {194, 105}, {99, 130}, {103, 32}, {201, 186}, {116,
									    111},
      {34, 32}, {109, 97},
   {153, 122}, {171, 10}, {104, 97}, {100, 105}, {108, 111}, {111, 112}, {200,
									  131},
      {139, 134}, {213, 135}, {101, 137}, {202, 156}, {143, 157}, {138, 32},
      {192, 185}, {58, 209}, {105, 99},
   {112, 111}, {115, 115}, {110, 117}, {115, 117}, {146, 129}, {226, 158}, {229,
									    179},
      {177, 197}, {231, 225}, {132, 97}, {98, 101}, {99, 111}, {216, 139}, {109,
									    139},
      {116, 10}, {99, 146},
   {44, 32}, {237, 170}, {131, 203}, {116, 104}, {117, 108}, {152, 117}, {108,
									  128},
      {118, 128}, {101, 144}, {233, 148}, {174, 153}, {110, 32}, {131, 32},
      {146, 32}, {239, 161}
};
/*-*SCPACK end of pair table, do not change or remove this line */

static char        *errmsg[] = {
#ifdef SCPACK
/*001*/ "expected token: \"%s\", but found \"%s\"\n",
/*002*/ "only a single statement (or expression) can follow each \"case\"\n",
/*003*/ "declaration of a local variable must appear in a compound block\n",
/*004*/ "function \"%s\" is not implemented\n",
/*005*/ "function may not have arguments\n",
/*006*/ "must be assigned to an array\n",
/*007*/ "assertion failed\n",
/*008*/ "must be a constant expression; assumed zero\n",
/*009*/ "invalid array size (negative or zero)\n",
/*010*/ "invalid function or declaration\n",
/*011*/ "invalid outside functions\n",
/*012*/ "invalid function call, not a valid address\n",
/*013*/ "no entry point (no public functions)\n",
/*014*/ "invalid statement; not in switch\n",
/*015*/ "\"default\" case must be the last case in switch statement\n",
/*016*/ "multiple defaults in \"switch\"\n",
/*017*/ "undefined symbol \"%s\"\n",
/*018*/ "initialization data exceeds declared size\n",
/*019*/ "not a label: \"%s\"\n",
/*020*/ "invalid symbol name \"%s\"\n",
/*021*/ "symbol already defined: \"%s\"\n",
/*022*/ "must be lvalue (non-constant)\n",
/*023*/ "array assignment must be simple assignment\n",
/*024*/ "\"break\" or \"continue\" is out of context\n",
/*025*/ "function heading differs from prototype\n",
/*026*/ "no matching \"#if...\"\n",
/*027*/ "invalid character constant\n",
/*028*/ "invalid subscript (not an array or too many subscripts)\n",
/*029*/ "invalid expression, assumed zero\n",
/*030*/ "compound statement not closed at the end of file\n",
/*031*/ "unknown directive\n",
/*032*/ "array index out of bounds (variable \"%s\")\n",
/*033*/ "array must be indexed (variable \"%s\")\n",
/*034*/ "argument does not have a default value (argument %d)\n",
/*035*/ "argument type mismatch (argument %d)\n",
/*036*/ "empty statement\n",
/*037*/ "invalid string (possibly non-terminated string)\n",
/*038*/ "extra characters on line\n",
/*039*/ "constant symbol has no size\n",
/*040*/ "duplicate \"case\" label (value %d)\n",
/*041*/ "invalid ellipsis, array size is not known\n",
/*042*/ "invalid combination of class specifiers\n",
/*043*/ "character constant exceeds range for packed string\n",
/*044*/ "positional parameters must precede all named parameters\n",
/*045*/ "too many function arguments\n",
/*046*/ "unknown array size (variable \"%s\")\n",
/*047*/ "array sizes must match\n",
/*048*/ "array dimensions must match\n",
/*049*/ "invalid line continuation\n",
/*050*/ "invalid range\n",
/*051*/ "invalid subscript, use \"[ ]\" operators on major dimensions\n",
/*052*/ "only the last dimension may be variable length\n",
/*053*/ "exceeding maximum number of dimensions\n",
/*054*/ "unmatched closing brace\n",
/*055*/ "start of function body without function header\n",
/*056*/
      "arrays, local variables and function arguments cannot be public (variable \"%s\")\n",
/*057*/ "unfinished expression before compiler directive\n",
/*058*/ "duplicate argument; same argument is passed twice\n",
/*059*/ "function argument may not have a default value (variable \"%s\")\n",
/*060*/ "multiple \"#else\" directives between \"#if ... #endif\"\n",
/*061*/ "operator cannot be redefined\n",
/*062*/ "number of operands does not fit the operator\n",
/*063*/ "function result tag of operator \"%s\" must be \"%s\"\n",
/*064*/ "cannot change predefined operators\n",
/*065*/ "function argument may only have a single tag (argument %d)\n",
/*066*/
      "function argument may not be a reference argument or an array (argument \"%s\")\n",
/*067*/
      "variable cannot be both a reference and an array (variable \"%s\")\n",
/*068*/ "invalid rational number precision in #pragma\n",
/*069*/ "rational number format already defined\n",
/*070*/ "rational number support was not enabled\n",
/*071*/
      "user-defined operator must be declared before use (function \"%s\")\n",
/*072*/ "\"sizeof\" operator is invalid on \"function\" symbols\n",
/*073*/ "function argument must be an array (argument \"%s\")\n",
/*074*/ "#define pattern must start with an alphabetic character\n",
/*075*/ "input line too long (after substitutions)\n"
#else
   "\261pe\224\227\315k\210:\253\360bu\201fo\214\205\217\012",
   "\202l\221\254s\203g\366\234\213\370\201(\306\350\206) \357 f\260\324w ea\252 \042c\256e\042\012",
   "\237cl\204\213\225\307\254\324c\334\314\300appe\204 \374\254\353m\340\214\205\232ock\012",
   "\257\217 \274\241impl\370t\270\012",
   "\257\317\221\241\322\367\246t\304",
   "\335\372gn\227\315 \375\264y\012",
   "\256s\207t\225fail\270\012",
   "\335\254\332\344\350\206; \256\343m\227z\207o\012",
   "\255\275\320\200(neg\213i\367\306z\207o\235",
   "\255\257\306\237cl\204\327\012",
   "\255out\231d\200\244\206\304",
   "\255\257c\212l\360\241\254\251add\223s\304",
   "\226 \210tr\221\340\203\201(\226 pu\232\337 \244\206s\235",
   "\255\234\213\370t; \241\374sw\266\252\012",
   "\042\310a\364t\316c\256\200\335\363\200l\256\201c\256\200\374sw\266\252 \234\213\370\356",
   "m\364tip\366\310a\364t\211\374\042sw\266\252\042\012",
   "\214\326\227\301\321",
   "\203\266i\212iz\213\225d\213\254\261ce\270\211\237cl\204\227\320\303",
   "\241\254la\352l\336",
   "\255\301 nam\200\217\012",
   "\301 \212\223ad\221\326\270\336",
   "\335l\365\200(n\202-\332\222t\235",
   "\275\372gn\220\201\335\231mp\366\372gn\220\356",
   "\042b\223ak\316\306\042\312t\203ue\316\274ou\201\307\312t\261\356",
   "\257head\362\323ff\207\211from pro\315typ\303",
   "\226 \361\362\042#if...\042\012",
   "\255\252\371\263\332\222\356",
   "\255\343bscrip\201(\241\375\275\306\315o m\222\221\343bscripts\235",
   "\255\350\206\360\256\343m\227z\207o\012",
   "\353m\340\214\205\234\213\370\201\241c\324s\227a\201\363\200\210\205\307fil\303",
   "\214k\226w\373\323\223\224iv\303",
   "\275\203\237x ou\201\307bo\214d\211(\314\333",
   "\275\335\203\237x\227(\314\333",
   "\267do\331\241\322\367\254\310a\364\201\365\200(\267%d\235",
   "\267typ\200mis\361 (\267%d\235",
   "empt\221\234\213\370\356",
   "\255\234r\362(\340s\231\232\221n\202-t\207m\203\213\227\234r\203g\235",
   "\261t\247 \252\371\207\211\202 l\203\303",
   "\332\344\301 \322\211\226 \320\303",
   "dupl\337\213\200\042c\256e\316la\352l (\365\200%d\235",
   "\255ellip\231s\360\275\320\200\274\241k\226wn\012",
   "\255\353\236\203\213\225\307cl\256\211specifi\207\304",
   "\252\371\263\332\344\261ce\270\211r\222g\200f\306pack\227\234r\203g\012",
   "\340\231t\206\334p\351met\207\211\300\305c\270\200\212l nam\227p\351met\207\304",
   "\315o m\222\221\257\246t\304",
   "\214k\226w\373\275\320\200(\314\333",
   "\275\320\331\300\361\012",
   "\275\323\220s\206\211\300\361\012",
   "\255l\203\200\312t\203u\327\012",
   "\255r\222g\303",
   "\255\343bscript\360\240\200\042[ ]\316\354\233\211\202 \317j\306\323\220s\206\304",
   "\202l\221\363\200l\256\201\323\220s\225\317\221\271\314l\210g\363\012",
   "\261ce\270\362\317ximum \346\307\323\220s\206\304",
   "\214\361\227c\324s\362b\247c\303",
   "\234\204\201\307\257bod\221w\266hou\201\257head\207\012",
   "\264ys\360\324c\334\311\262\331\222\205\257\246t\211\376\271pu\232\337 (\314\333",
   "\214f\203ish\227\350\225\352f\233\200\353mpil\263\323\223\224iv\303",
   "dupl\337\213\200\246t; sam\200\267\274p\256s\227tw\337\303",
   "\257\267\317\221\241\322\367\254\310a\364\201\365\200(\314\333",
   "m\364tip\366\042#else\316\323\223\224iv\331\352twe\210 \042#if ... #\210\323f\042\012",
   "\354\306\376\271\223\326\270\012",
   "\346\307\330\222d\211do\331\241fi\201\363\200\354\233\012",
   "\257\223\343l\201ta\313\307\354\233\253 \335\217\012",
   "\376\252\222g\200\305\326\227\354\233\304",
   "\257\267\317\221\202l\221\322\367\254s\203g\366ta\313(\267%d\235",
   "\257\267\317\221\241\271\254\223f\207\210c\200\267\306\375\275(\267\333",
   "\314\376\271bo\363 \254\223f\207\210c\200\222\205\375\275(\314\333",
   "\255r\327\334\346\305cis\225\374#p\247g\317\012",
   "r\327\334\346f\233\317\201\212\223ad\221\326\270\012",
   "r\327\334\346\343pp\233\201wa\211\241\210\262\270\012",
   "\240\207-\326\227\354\306\335\237cl\204\227\352f\233\200\240\200(\257\333",
   "\042\320e\265\316\354\306\274\255\202 \042\244\206\316\301\304",
   "\257\267\335\375\275(\267\333",
   "#\326\200p\213t\207\373\300\234\204\201w\266h \375\212p\322\352t\337 \252\371\207\012",
   "\203pu\201l\203\200\315o l\202\313(aft\263\343b\234\266ut\206s\235"
#endif
};

static char        *fatalmsg[] = {
#ifdef SCPACK
/*100*/ "cannot read from file: \"%s\"\n",
/*101*/ "cannot write to file: \"%s\"\n",
/*102*/ "table overflow: \"%s\"\n",
   /* table can be: loop table
    *               literal table
    *               staging buffer
    *               parser stack (recursive include?)
    *               option table (response file)
    *               peephole optimizer table
    */
/*103*/ "insufficient memory\n",
/*104*/ "invalid assembler instruction \"%s\"\n",
/*105*/ "numeric overflow, exceeding capacity\n",
/*106*/ "compaction buffer overflow\n",
/*107*/ "too many error messages on one line\n"
#else
   "\376\223a\205from file\336",
   "\376wr\266\200\315 file\336",
   "t\272ov\207f\324w\336",
   "\203\343ff\337i\210\201mem\233y\012",
   "\255\256sem\232\263\203\234ru\224\225\217\012",
   "\342m\207\337 ov\207f\324w\360\261ce\270\362capac\266y\012",
   "\353mpa\224\225buff\263ov\207f\324w\012",
   "\315o m\222\221\207r\306me\341ag\331\202 \202\200l\203\303"
#endif
};

static char        *warnmsg[] = {
#ifdef SCPACK
/*200*/ "symbol \"%s\" is truncated to %d characters\n",
/*201*/ "redefinition of constant/macro (symbol \"%s\")\n",
/*202*/ "number of arguments does not match definition\n",
/*203*/ "symbol is never used: \"%s\"\n",
/*204*/ "symbol is assigned a value that is never used: \"%s\"\n",
/*205*/ "redundant code: constant expression is zero\n",
/*206*/ "redundant test: constant expression is non-zero\n",
/*207*/ "unknown #pragma\n",
/*208*/ "function uses both \"return;\" and \"return <value>;\"\n",
/*209*/ "function \"%s\" should return a value\n",
/*210*/ "possible use of symbol before initialization: \"%s\"\n",
/*211*/ "possibly unintended assignment\n",
/*212*/ "possibly unintended bitwise operation\n",
/*213*/ "tag mismatch\n",
/*214*/ "possibly a \"const\" array argument was intended: \"%s\"\n",
/*215*/ "expression has no effect\n",
/*216*/ "nested comment\n",
/*217*/ "loose indentation\n",
/*218*/ "old style prototypes used with optional semicolumns\n",
/*219*/ "local variable \"%s\" shadows a variable at a preceding level\n",
/*220*/ "exported or native symbol \"%s\" is truncated to %d characters\n",
/*221*/ "label name \"%s\" shadows tag name\n",
/*222*/ "number of digits exceeds rational number precision\n",
/*223*/ "redundant \"sizeof\": argument size is always 1 (symbol \"%s\")\n",
/*224*/
      "indeterminate array size in \"sizeof\" expression (symbol \"%s\")\n",
/*225*/ "unreachable code\n",
/*226*/ "a variable is assigned to itself (symbol \"%s\")\n"
#else
   "\301\253 \274tr\214c\213\227\315 %\205\252\371\207\304",
   "\223\326\266\225\307\332\222t/\317cro (\301\253\235",
   "\346\307\246t\211do\331\241\361 \326\266\206\012",
   "\301 \274nev\263\240\270\336",
   "\301 \274\372gn\227\254\365\200t\322\201\274nev\263\240\270\336",
   "\223d\214d\344\353\237: \332\344\350\225\274z\207o\012",
   "\223d\214d\344te\234: \332\344\350\225\274n\202-z\207o\012",
   "\214k\226w\373#p\247g\317\012",
   "\257\240\331bo\363 \042\223turn;\316\222\205\042\223tur\373<\365e>;\042\012",
   "\257\217 sho\364\205\223tur\373\254\365\303",
   "\340s\231\232\200\240\200\307\301 \352f\233\200\203\266i\212iz\327\336",
   "\340s\231\232\221\214\203t\210d\227\372gn\220\356",
   "\340s\231\232\221\214\203t\210d\227b\266wis\200\330\327\012",
   "ta\313mis\361\012",
   "\340s\231\232\221\254\042\332\316\275\267wa\211\203t\210\237d\336",
   "\350\225\322\211\226 effe\224\012",
   "ne\234\227\353m\220\356",
   "\324os\200\203d\210t\327\012",
   "\260\205\234y\366pro\315typ\331\240\227w\266h \325t\206\334sem\337\260umn\304",
   "\324c\334\314\217 s\322dow\211\254\314a\201\254\305c\270\362level\012",
   "\261p\233t\227\306n\213i\367\301\253 \274tr\214c\213\227\315 %\205\252\371\207\304",
   "la\352l nam\200\217 s\322dow\211ta\313nam\303",
   "\346\307\323g\266\211\261ce\270\211r\327\334\346\305cis\206\012",
   "\223d\214d\344\042\320e\265\042: \267\320\200\274\212way\2111 (\301\253\235",
   "\203\237t\207m\203\213\200\275\320\200\374\042\320e\265\316\350\225(\301\253\235",
   "\214\223a\252\272\353\237\012",
   "\254\314\274\372gn\227\315 \266self (\301\253\235"
#endif
};