nga-c: fix ctrl+d

FossilOrigin-Name: e826f4f156fe17efe11589405e614bffb8db97e804a16f0685949ff7ecb1583d
crcx · Jan 23, 2021 · 11446a2 · 11446a2
1 parent 3290bca
commit 11446a2
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 6 deletions.
diff --git a/vm/nga-c/retro-image.c b/vm/nga-c/retro-image.c
@@ -2,8 +2,8 @@
 #ifndef CELL
 #define CELL int32_t
 #endif
-CELL ngaImageCells = 15152;
-CELL ngaImage[] = { 1793,14411,15109,15151,202101,0,10,1,10,2,10,3,10,4,10,5,10,6,10,
+CELL ngaImageCells = 15313;
+CELL ngaImage[] = { 1793,14411,15270,15312,202101,0,10,1,10,2,10,3,10,4,10,5,10,6,10,
                        7,10,8,10,9,10,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,10,68223234,1,2575,
                        85000450,1,656912,141,140,268505089,63,62,285281281,0,63,2063,10,101384453,0,9,10,2049,56,25,
@@ -160,7 +160,7 @@ CELL ngaImage[] = { 1793,14411,15109,15151,202101,0,10,1,10,2,10,3,10,4,10,5,10,
                        983556,1793,3087,1,21,2049,2100,10,1,3082,2049,2100,4100,10,3065,3105,146,118,58,117,
                        112,100,97,116,101,0,4,1793,3112,15,4,8,10,1,3108,2049,2110,16,10,3093,
                        3126,146,99,111,112,121,0,1793,3135,285278725,1,33951492,268767489,1,6,10,1,3128,2049,2275,
-                       771,10,3118,3154,146,83,99,111,112,101,76,105,115,116,0,15015,15067,10,3141,3163,
+                       771,10,3118,3154,146,83,99,111,112,101,76,105,115,116,0,15176,15228,10,3141,3163,
                        146,123,123,0,2049,1570,2,1,3154,2049,59,16,10,3157,3188,146,45,45,45,114,
                        101,118,101,97,108,45,45,45,0,2049,1570,1,3154,2049,2890,16,10,3172,3202,146,
                        125,125,0,1,3154,2049,56,4,15,11,1793,3216,3841,3154,4097,2,10,1,3211,1793,
@@ -179,7 +179,7 @@ CELL ngaImage[] = { 1793,14411,15109,15151,202101,0,10,1,10,2,10,3,10,4,10,5,10,
                        21,2049,2100,4097,3256,10,1,3458,2049,2100,4097,3265,10,3433,3487,133,84,101,109,112,
                        83,116,114,105,110,103,115,0,32,3472,3505,133,84,101,109,112,83,116,114,105,
                        110,103,77,97,120,0,512,3488,3517,146,83,84,82,73,78,71,83,0,2049,1543,
-                       3841,3487,3841,3505,19,18,10,3506,3537,133,67,117,114,114,101,110,116,0,23,10,
+                       3841,3487,3841,3505,19,18,10,3506,3537,133,67,117,114,114,101,110,116,0,31,10,
                        3526,3552,146,115,58,112,111,105,110,116,101,114,0,3841,3537,3841,3505,19,2049,3517,
                        17,10,3539,3571,146,115,58,110,101,120,116,0,1,3537,2049,2988,3841,3537,3841,3487,
                        11,1793,3587,1,0,4097,3537,10,1,3582,9,10,3506,3601,146,115,58,116,101,109,
@@ -760,4 +760,12 @@ CELL ngaImage[] = { 1793,14411,15109,15151,202101,0,10,1,10,2,10,3,10,4,10,5,10,
                        102,45,108,101,102,116,0,2,2049,1874,2049,4598,1793,15098,2049,9248,2049,9222,10,1,
                        15093,1793,15104,3,10,1,15102,2049,64,10,15015,15135,146,100,58,119,111,114,100,115,
                        45,98,101,103,105,110,110,105,110,103,45,119,105,116,104,0,2049,1874,2049,4648,
-                       1793,15146,2049,164,2049,15086,10,1,15141,2049,7454,10,0 };
+                       1793,15146,2049,164,2049,15086,10,1,15141,2049,7454,10,15109,15162,146,100,58,119,111,114,
+                       100,115,0,1793,15171,2049,164,2049,9248,2049,9222,10,1,15164,2049,7454,10,15151,15192,146,
+                       100,58,119,111,114,100,115,45,119,105,116,104,0,2049,1874,2049,4648,1793,15223,2049,
+                       164,2,2049,1874,2049,4162,1793,15212,2049,9248,2049,9222,10,1,15207,1793,15218,3,10,1,
+                       15216,2049,64,10,1,15198,2049,7454,10,15176,15247,146,100,105,115,112,108,97,121,45,
+                       105,102,45,108,101,102,116,0,2,2049,1874,2049,4598,1793,15259,2049,9248,2049,9222,10,
+                       1,15254,1793,15265,3,10,1,15263,2049,64,10,15176,15296,146,100,58,119,111,114,100,
+                       115,45,98,101,103,105,110,110,105,110,103,45,119,105,116,104,0,2049,1874,2049,
+                       4648,1793,15307,2049,164,2049,15247,10,1,15302,2049,7454,10,0 };
diff --git a/vm/nga-c/retro-unix.c b/vm/nga-c/retro-unix.c
@@ -325,6 +325,7 @@ void execute(CELL cell, int silent) {
       if (rp < 0 || rp > ADDRESSES) {
         printf("\nERROR (nga/execute): Address Stack Limits Exceeded!\n");
         printf("At %lld, opcode %lld. rp = %lld\n", (long long)ip, (long long)opcode, (long long)rp);
+        exit(1);
       }
 #endif
       ip++;
@@ -680,7 +681,7 @@ int main(int argc, char **argv) {
 
   /* Run the Listener (if interactive mode was set) */
   if (modes[FLAG_INTERACTIVE] == 1) {
-    while (1) execute(0, -1);
+    execute(0, -1);
   }
 
   if (modes[FLAG_RUN] == 1) {