mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-15 15:57:13 +00:00
cfc0046675
Remove duplicate external function definitions from gcdata.h renamed: inc/gc.h -> inc/gcdata.h modified: src/array2.c modified: src/array4.c modified: src/array6.c modified: src/asmbbt.c modified: src/asmbitblt.c modified: src/bbtsub.c modified: src/car-cdr.c modified: src/conspage.c modified: src/fvar.c modified: src/gc.c modified: src/gcarray.c modified: src/gccode.c modified: src/gcfinal.c modified: src/gchtfind.c modified: src/gcmain3.c modified: src/gcoflow.c modified: src/gcr.c modified: src/gcrcell.c modified: src/gcscan.c modified: src/gvar2.c modified: src/initsout.c modified: src/loopsops.c modified: src/mkcell.c modified: src/rplcons.c modified: src/storage.c modified: src/xc.c modified: src/z2.c
46 lines
1.3 KiB
C
46 lines
1.3 KiB
C
/* $Id: gc.c,v 1.3 1999/05/31 23:35:29 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
static char *id = "$Id: gc.c,v 1.3 1999/05/31 23:35:29 sybalsky Exp $ Copyright (C) Venue";
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
#include <stdio.h>
|
|
#include "lispemul.h"
|
|
#include "lspglob.h"
|
|
#include "lsptypes.h"
|
|
#include "emlglob.h"
|
|
#include "gcdata.h"
|
|
|
|
#include "gcdefs.h"
|
|
#include "gchtfinddefs.h"
|
|
|
|
/************************************************************
|
|
|
|
entry OP_gcref OPCODE[025]
|
|
|
|
1. alpha is ADDREF or DELREF, STKREF.
|
|
TopOfStack is argued slot address.
|
|
2. call gclookup with alpha and TopOfStack.
|
|
3. if stk=0 and refcnt=0 of entry of HashMainTable,
|
|
TopOfStack left alone.
|
|
else replace TopOfStack with 0.
|
|
4. increment PC by 2.
|
|
|
|
***********************************************************/
|
|
|
|
void OP_gcref(void) {
|
|
#ifdef TRACE
|
|
printPC();
|
|
printf("TRACE:OP_gcref()\n");
|
|
#endif
|
|
GCLOOKUPV(TopOfStack, Get_code_BYTE(PC + 1), TopOfStack);
|
|
PC += 2;
|
|
return;
|
|
}
|