github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-20 01:35:05 +00:00
Code Issues Projects Releases Wiki Activity

Cast to (FX *) when pointer into stack is being passed into check_FX and is expected to be a frame extension.

Browse Source 
stdio.h is required if stack debugging is enabled, include it always.

	modified:   src/hardrtn.c
This commit is contained in:
Nick Briggs 2020-08-11 16:02:15 -07:00
parent 5d7e281aa6
commit 34cde1a373
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/hardrtn.c
View File

@ -28,6 +28,7 @@ static char *id = "$Id: hardrtn.c,v 1.4 2001/12/24 01:09:02 sybalsky Exp $ Copyr
*/
/********************************************************************/
#include <stdio.h>
#include "lispemul.h"
#include "lispmap.h"
#include "lsptypes.h"
@ -57,7 +58,7 @@ void incusecount68k(FX *fx68k), decusecount68k(register FX *frame68k);
RET VAL : If 0 success
If 1 NO STACK SPACE->uraid-> HARDRESET
NBriggs, Aug 11 2020: I see no return (1) case!
*/
/********************************************************************/
@ -246,7 +247,7 @@ FX *make_FXcopy(register FX *fx68k) {
decusecount68k(fx68k); /* if usecon==0 -> FSB */
SETACLINK(CURRENTFX, StkOffset_from_68K(new68k));
CHECK_FX(new68k);
CHECK_FX((FX *)new68k);
CHECK_FX(CURRENTFX);
#ifdef STACKCHECK
stack_check(0);
@ -292,7 +293,7 @@ void incusecount68k(FX *fx68k) {
scanptr68k = (StackWord *)(((DLword *)scanptr68k) + DLWORDSPER_CELL);
if (STKWORD(scanptr68k)->flags == STK_FX) {
CHECK_FX(scanptr68k);
CHECK_FX((FX *)scanptr68k);
SET_FASTP_NIL(scanptr68k);
}