mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-17 00:22:59 +00:00
6fb4b9a189
* Remove static char *id = from all source files. The same information is included in a comment in each source file. * Remove unused template file 'id'
73 lines
1.9 KiB
C
73 lines
1.9 KiB
C
/* $Id: gc2.c,v 1.3 1999/05/31 23:35:30 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
/**********************************************************************/
|
|
/*
|
|
File Name: gc2.c
|
|
Desc: implement opcode SCAN1,SCAN2,GCRECLAIMCELL
|
|
|
|
|
|
Including : OP_scan1
|
|
OP_scan2
|
|
OP_gcreccell
|
|
|
|
*/
|
|
/**********************************************************************/
|
|
|
|
#include "lispemul.h"
|
|
#include "lispmap.h"
|
|
#include "lsptypes.h"
|
|
#include "lspglob.h"
|
|
#include "emlglob.h"
|
|
#include "address.h"
|
|
#include "adr68k.h"
|
|
|
|
#include "gc2defs.h"
|
|
#include "gcscandefs.h"
|
|
|
|
#ifdef GCC386
|
|
#include "inlnPS2.h"
|
|
#endif /* GCC386 */
|
|
|
|
/**********************************************************************/
|
|
/*
|
|
Func Name : OP_gcscan1
|
|
*/
|
|
/**********************************************************************/
|
|
|
|
void OP_gcscan1(void) {
|
|
|
|
#ifdef TRACE
|
|
printPC();
|
|
printf("TRACE: OP_gcscan1()\n");
|
|
#endif
|
|
if ((TopOfStack & SEGMASK) == S_POSITIVE) { TopOfStack = gcscan1(LOLOC(TopOfStack)); }
|
|
if (TopOfStack != NIL) TopOfStack |= S_POSITIVE;
|
|
PC++;
|
|
} /* OP_gcscan1 end */
|
|
|
|
/**********************************************************************/
|
|
/*
|
|
Func Name : OP_gcscan2
|
|
*/
|
|
/**********************************************************************/
|
|
|
|
void OP_gcscan2(void) {
|
|
|
|
#ifdef TRACE
|
|
printPC();
|
|
printf("TRACE: OP_gcscan2()\n");
|
|
#endif
|
|
if ((TopOfStack & SEGMASK) == S_POSITIVE) { TopOfStack = gcscan2(LOLOC(TopOfStack)); }
|
|
if (TopOfStack != NIL) TopOfStack |= S_POSITIVE;
|
|
PC++;
|
|
} /* OP_gcscan2 end */
|