From 9ce0905bf22b81a34269f5c24e496e9581b125e3 Mon Sep 17 00:00:00 2001 From: crc Date: Tue, 2 Nov 2021 11:35:46 +0000 Subject: [PATCH] update url for unu information in warning FossilOrigin-Name: f48cf697b656481796217926f04e7660aca715ac5ac3aa6d833057ee7cff9c32 --- vm/nga-c/image.c | 27 +++++++++++++++++++++------ vm/nga-c/retro.c | 4 ++-- 2 files changed, 23 insertions(+), 8 deletions(-) diff --git a/vm/nga-c/image.c b/vm/nga-c/image.c index 1310826..a415839 100644 --- a/vm/nga-c/image.c +++ b/vm/nga-c/image.c @@ -10,8 +10,8 @@ #define CELL_MAX LLONG_MAX - 1 #endif #endif -CELL ngaImageCells = 17459; -CELL ngaImage[] = { 1793,16828,17415,17458,202111,405,377,1150,1535,0,10,1,10,2,10,3,10,4,10, +CELL ngaImageCells = 17751; +CELL ngaImage[] = { 1793,16828,17707,17750,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,17415,17458,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,17168,17108737,3,2,524559,128,2049,128,2049,128, + 10,659713,1,659713,2,659713,3,659713,4,1793,17460,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,17415,17458,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, - 17269,17347,10,3185,3209,166,15347,123,123,0,2049,1573,2,1,3199,2049,59,16,10,3202, + 17561,17639,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,17415,17458,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,20,10,4308,4336,166,0,115,58,112,111,105,110,116,101,114,0,3841,4320,3841, + 0,0,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, @@ -883,4 +883,19 @@ CELL ngaImage[] = { 1793,16828,17415,17458,202111,405,377,1150,1535,0,10,1,10,2, 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 }; + 116,104,0,2049,1953,2049,5499,1793,17453,2049,186,2049,17367,10,1,17448,2049,8517,10,1793, + 17483,2049,15193,2049,4461,1793,17473,1,188,1,2,17,8,10,1,17466,2049,2192,2049,1573, + 2049,184,16,10,1,17460,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,17415,17522,166,17485,100,58,119,111,114, + 100,115,0,1793,17531,2049,186,2049,10641,2049,10613,10,1,17524,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,17510,17578,166,17536,100,58,119,111,114,100,115,45,119,105,116,104,0,2049, + 1953,2049,5499,1793,17609,2049,186,2,2049,1953,2049,5002,1793,17598,2049,10641,2049,10613,10,1, + 17593,1793,17604,3,10,1,17602,2049,64,10,1,17584,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, + 17561,17659,166,17614,100,105,115,112,108,97,121,45,105,102,45,108,101,102,116,0, + 2,2049,1953,2049,5447,1793,17671,2049,10641,2049,10613,10,1,17666,1793,17677,3,10,1,17675, + 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,17561,17734,166,17682,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, + 17745,2049,186,2049,17659,10,1,17740,2049,8517,10,0 }; diff --git a/vm/nga-c/retro.c b/vm/nga-c/retro.c index d461e7d..ab88af6 100644 --- a/vm/nga-c/retro.c +++ b/vm/nga-c/retro.c @@ -1731,8 +1731,8 @@ void include_file(char *fname, int run_tests) { 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"); + printf(" see http://unu.retroforth.org for a brief summary of\n"); + printf(" the unu code format used by retro\n"); } codeBlocks = priorBlocks;