crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

warning now includes filename, pointer to unu summary

Browse source 
FossilOrigin-Name: 15f610550d574d339ca76bab118d95e1cbe10caa1ab43fb016fc53ad649dd699
This commit is contained in:
crc 2021-11-02 10:36:48 +00:00
parent 07e40ca9fd
commit bedfd55316
2 changed files with 25 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
vm/nga-c/image.c
View file

@ -10,8 +10,8 @@
#define CELL_MAX LLONG_MAX - 1
#endif
#endif
CELL ngaImageCells = 17167;
CELL ngaImage[] = { 1793,16828,17123,17166,202111,405,377,1150,1535,0,10,1,10,2,10,3,10,4,10,
CELL ngaImageCells = 17459;
CELL ngaImage[] = { 1793,16828,17415,17458,202111,405,377,1150,1535,0,10,1,10,2,10,3,10,4,10,
5,10,6,10,7,10,8,10,11,10,12,10,13,10,14,10,15,10,16,10,
17,10,18,10,19,10,20,10,21,10,22,10,23,10,24,10,25,68223234,1,2575,
85000450,1,656912,161,178,268505089,63,62,285281281,0,63,2063,10,101384453,0,9,10,68485378,255,18350338,
@ -20,7 +20,7 @@ CELL ngaImage[] = { 1793,16828,17123,17166,202111,405,377,1150,1535,0,10,1,10,2,
101777669,1,17565186,107,524545,111,64,167838467,-1,134287105,3,59,659457,3,459023,128,2049,56,25,2049,
128,1793,135,2049,135,117506307,0,128,0,524545,26,133,168820993,0,147,1642241,147,134283523,11,133,
1793,128,524545,2049,128,1793,128,16846593,147,161,178,1793,64,16846593,147,133,178,1793,64,7,
10,659713,1,659713,2,659713,3,659713,4,1793,16876,17108737,3,2,524559,128,2049,128,2049,128,
10,659713,1,659713,2,659713,3,659713,4,1793,17168,17108737,3,2,524559,128,2049,128,2049,128,
524545,0,128,2049,142,168820998,2,16091,1150,167841793,206,9,17826049,0,206,2,15,25,524546,186,
134287105,207,116,2305,208,459023,216,134287361,207,211,659201,206,10,659969,7,2049,56,25,17694978,58,
232,9,84152833,48,319750404,231,117507601,234,184618754,45,25,16974851,-1,168886532,1,134284289,1,247,134284289,0,
@ -171,7 +171,7 @@ CELL ngaImage[] = { 1793,16828,17123,17166,202111,405,377,1150,1535,0,10,1,10,2,
0,659713,1,10,3130,3153,166,15347,110,58,100,101,99,0,659969,1,10,3143,3171,166,
15347,110,58,98,101,116,119,101,101,110,63,0,67503109,1793,3179,67503109,67503109,2049,3122,10,
1,3174,2049,2203,11,10,3156,3199,166,15347,83,99,111,112,101,76,105,115,116,0,
16977,17055,10,3185,3209,166,15347,123,123,0,2049,1573,2,1,3199,2049,59,16,10,3202,
17269,17347,10,3185,3209,166,15347,123,123,0,2049,1573,2,1,3199,2049,59,16,10,3202,
3235,166,15347,45,45,45,114,101,118,101,97,108,45,45,45,0,2049,1573,1,3199,
2049,3140,16,10,3218,3250,166,15347,125,125,0,1,3199,2049,56,4,15,11,1793,3264,
3841,3199,4097,2,10,1,3259,1793,3290,3841,3199,1793,3285,1,2,983567,1,3199,2049,3140,
@ -227,7 +227,7 @@ CELL ngaImage[] = { 1793,16828,17123,17166,202111,405,377,1150,1535,0,10,1,10,2,
83,116,114,105,110,103,115,0,32,4251,4286,154,15347,84,101,109,112,83,116,114,
105,110,103,77,97,120,0,512,4268,4299,166,15347,83,84,82,73,78,71,83,0,
2049,1544,3841,4267,3841,4286,19,18,10,4287,4320,154,0,67,117,114,114,101,110,116,
0,8,10,4308,4336,166,0,115,58,112,111,105,110,116,101,114,0,3841,4320,3841,
0,20,10,4308,4336,166,0,115,58,112,111,105,110,116,101,114,0,3841,4320,3841,
4286,19,2049,4299,17,10,4322,4356,166,0,115,58,110,101,120,116,0,1,4320,2049,
3854,3841,4320,3841,4267,11,1793,4372,1,0,4097,4320,10,1,4367,9,10,4287,4387,166,
15347,115,58,116,101,109,112,0,2,2049,102,2049,3140,2049,4336,4,2049,4000,2049,4336,
@ -869,4 +869,18 @@ CELL ngaImage[] = { 1793,16828,17123,17166,202111,405,377,1150,1535,0,10,1,10,2,
105,99,116,45,119,111,114,100,115,45,108,105,115,116,105,110,103,46,102,111,
114,116,104,0,16977,17150,166,17098,100,58,119,111,114,100,115,45,98,101,103,105,
110,110,105,110,103,45,119,105,116,104,0,2049,1953,2049,5499,1793,17161,2049,186,2049,
17075,10,1,17156,2049,8517,10,0 };
17075,10,1,17156,2049,8517,10,1793,17191,2049,15193,2049,4461,1793,17181,1,188,1,2,17,
8,10,1,17174,2049,2192,2049,1573,2049,184,16,10,1,17168,100,105,99,116,45,119,
111,114,100,115,45,108,105,115,116,105,110,103,46,102,111,114,116,104,0,17123,
17230,166,17193,100,58,119,111,114,100,115,0,1793,17239,2049,186,2049,10641,2049,10613,10,
1,17232,2049,8517,10,100,105,99,116,45,119,111,114,100,115,45,108,105,115,116,
105,110,103,46,102,111,114,116,104,0,17218,17286,166,17244,100,58,119,111,114,100,
115,45,119,105,116,104,0,2049,1953,2049,5499,1793,17317,2049,186,2,2049,1953,2049,5002,
1793,17306,2049,10641,2049,10613,10,1,17301,1793,17312,3,10,1,17310,2049,64,10,1,17292,
2049,8517,10,100,105,99,116,45,119,111,114,100,115,45,108,105,115,116,105,110,
103,46,102,111,114,116,104,0,17269,17367,166,17322,100,105,115,112,108,97,121,45,
105,102,45,108,101,102,116,0,2,2049,1953,2049,5447,1793,17379,2049,10641,2049,10613,10,
1,17374,1793,17385,3,10,1,17383,2049,64,10,100,105,99,116,45,119,111,114,100,
115,45,108,105,115,116,105,110,103,46,102,111,114,116,104,0,17269,17442,166,17390,
100,58,119,111,114,100,115,45,98,101,103,105,110,110,105,110,103,45,119,105,
116,104,0,2049,1953,2049,5499,1793,17453,2049,186,2049,17367,10,1,17448,2049,8517,10,0 };

6
vm/nga-c/retro.c
View file

@ -1728,9 +1728,13 @@ void include_file(char *fname, int run_tests) {
cpu[active].rp = arp;
cpu[active].ip = aip;
if (codeBlocks == 0)
if (codeBlocks == 0) {
printf("warning: no code blocks found!\n");
printf(" filename: %s\n", fname);
printf(" see http://forth.works/share/f6b106a370683fd91bbafd1e804de645\n");
printf(" for a brief summary of the unu code format used by retro\n");
}
codeBlocks = priorBlocks;
}