nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix to PUSHFUNCTION now correctly at tf->marked

Browse Source
This commit is contained in:
Luiz Henrique de Figueiredo
1996-02-24 00:46:57 -03:00
parent 5c1bd89a1c
commit b3c10c8c41
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
undump.c
View File

@@ -3,7 +3,7 @@
** load bytecodes from files ** load bytecodes from files
*/ */
char *rcs_undump="$Id: undump.c,v 1.1 1996/02/23 19:04:38 lhf Exp lhf $"; char *rcs_undump="$Id: undump.c,v 1.2 1996/02/23 22:00:26 lhf Exp lhf $";
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
@@ -69,7 +69,7 @@ static void LoadFunction(FILE *D)
else /* fix PUSHFUNCTION */ else /* fix PUSHFUNCTION */
{ {
CodeCode c; CodeCode c;
Byte *p=Main->code; Byte *p=Main->code+tf->marked; /* TODO: tf->marked=? */
c.tf=tf; c.tf=tf;
*p++=c.m.c1; *p++=c.m.c2; *p++=c.m.c3; *p++=c.m.c4; *p++=c.m.c1; *p++=c.m.c2; *p++=c.m.c3; *p++=c.m.c4;
} }
@@ -92,6 +92,7 @@ static void LoadFunction(FILE *D)
} }
else else
{ {
printf("tf=%p\n",tf);
PrintFunction(tf); /* TODO: remove */ PrintFunction(tf); /* TODO: remove */
ungetc(c,D); ungetc(c,D);
return; return;
@@ -121,7 +122,7 @@ static void LoadChunk(FILE *D)
int c=getc(D); int c=getc(D);
if (c=='F') LoadFunction(D); else { ungetc(c,D); break; } if (c=='F') LoadFunction(D); else { ungetc(c,D); break; }
} }
/* TODO: run Main */ PrintFunction(Main); /* TODO: run Main */
} }
void Undump(FILE *D) void Undump(FILE *D)