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

fix a bug preventing scripts from running

Browse source 
FossilOrigin-Name: f1204d50477fb3e99da37d39dff379b558d40c8a7792c3db257017d8bfacc2bf
This commit is contained in:
crc 2019-09-27 10:37:54 +00:00
parent 18a86419d0
commit ec71c4bd69
2 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
source/interfaces/retro-image.c
View file

@ -2,8 +2,8 @@
#ifndef CELL #ifndef CELL
#define CELL int32_t #define CELL int32_t
#endif #endif
CELL ngaImageCells = 17301; CELL ngaImageCells = 17228;
CELL ngaImage[] = { 1793,17047,17278,17300,201909,0,10,1,10,2,10,3,10,4,10,5,10,6,10, CELL ngaImage[] = { 1793,17047,17185,17227,201909,0,10,1,10,2,10,3,10,4,10,5,10,6,10,
7,10,8,10,9,10,10,10,11,10,12,10,13,10,14,10,15,10,16,10, 7,10,8,10,9,10,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, 17,10,18,10,19,10,20,10,21,10,22,10,23,10,24,10,25,10,68223234,1,
2575,85000450,1,656912,140,139,268505089,64,63,135205121,64,10,101384453,0,9,10,2049,57,25,459011, 2575,85000450,1,656912,140,139,268505089,64,63,135205121,64,10,101384453,0,9,10,2049,57,25,459011,
@ -55,7 +55,7 @@ CELL ngaImage[] = { 1793,17047,17278,17300,201909,0,10,1,10,2,10,3,10,4,10,5,10,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,105,109,97,103,101,58,115,97,118,101,0,103,101,0, 0,0,0,0,0,0,105,109,97,103,101,58,115,97,118,101,0,103,101,0,
108,0,48,55,46,114,101,116,114,111,0,0,110,0,78,68,0,100,0,0, 49,57,48,55,46,114,101,116,114,111,0,0,110,0,78,68,0,100,0,0,
72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,0, 72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
@ -864,8 +864,4 @@ CELL ngaImage[] = { 1793,17047,17278,17300,201909,0,10,1,10,2,10,3,10,4,10,5,10,
102,116,0,2,2049,1847,2049,4662,1793,17174,2049,10285,2049,10259,10,1,17169,1793,17180,3, 102,116,0,2,2049,1847,2049,4662,1793,17174,2049,10285,2049,10259,10,1,17169,1793,17180,3,
10,1,17178,2049,65,10,17091,17211,145,100,58,119,111,114,100,115,45,98,101,103, 10,1,17178,2049,65,10,17091,17211,145,100,58,119,111,114,100,115,45,98,101,103,
105,110,110,105,110,103,45,119,105,116,104,0,2049,1847,2049,4746,1793,17222,2049,163, 105,110,110,105,110,103,45,119,105,116,104,0,2049,1847,2049,4746,1793,17222,2049,163,
2049,17162,10,1,17217,2049,6966,10,17185,17241,145,117,110,105,120,58,119,114,105,116, 2049,17162,10,1,17217,2049,6966,10,0 };
101,0,1793,17247,2,2049,80,10,1,17243,2049,2076,1,12,2049,13473,10,17227,17273,145,
117,110,105,120,58,105,111,58,110,58,112,117,116,0,1,17,2049,13473,10,17256,
17295,145,117,110,105,120,58,105,111,58,115,58,112,117,116,0,1,18,2049,13473,
10,0 };

1
source/interfaces/retro-unix.c
View file

@ -530,6 +530,7 @@ int main(int argc, char **argv) {
sys_argv = argv; /* argv to the actual ones */ sys_argv = argv; /* argv to the actual ones */
if (argc >= 2 && argv[1][0] != '-') { if (argc >= 2 && argv[1][0] != '-') {
update_rx();
include_file(argv[1], 0); /* If no flags were passed, */ include_file(argv[1], 0); /* If no flags were passed, */
if (sp >= 1) dump_stack(); /* load the file specified, */ if (sp >= 1) dump_stack(); /* load the file specified, */
exit(0); /* and exit */ exit(0); /* and exit */