|
@ -3,7 +3,7 @@ |
|
|
** TecCGraf - PUC-Rio |
|
|
** TecCGraf - PUC-Rio |
|
|
*/ |
|
|
*/ |
|
|
|
|
|
|
|
|
char *rcs_opcode="$Id: opcode.c,v 3.47 1995/10/25 13:05:51 roberto Exp roberto $"; |
|
|
char *rcs_opcode="$Id: opcode.c,v 3.48 1995/10/26 14:21:56 roberto Exp roberto $"; |
|
|
|
|
|
|
|
|
#include <setjmp.h> |
|
|
#include <setjmp.h> |
|
|
#include <stdlib.h> |
|
|
#include <stdlib.h> |
|
@ -178,11 +178,8 @@ static void adjust_top (StkId newtop) |
|
|
top = nt; /* top could be bigger than newtop */ |
|
|
top = nt; /* top could be bigger than newtop */ |
|
|
} |
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
#define adjustC(nParams) adjust_top(CBase+nParams) |
|
|
|
|
|
|
|
|
static void adjustC (int nParams) |
|
|
|
|
|
{ |
|
|
|
|
|
adjust_top(CBase+nParams); |
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
/*
|
|
|
** Open a hole below "nelems" from the top. |
|
|
** Open a hole below "nelems" from the top. |
|
|