mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-17 00:22:59 +00:00
3d9f090e70
Remove unused #define PERCENT_OF_SCREEN in MyWindow.h Move structures for dir.c to dirdefs.h where they are used Resolve S_CHAR vs S_CHARACTER in favor of S_CHARACTER and cleanup #defines Fix = vs == bug in FSDEBUG code in dir.c Eliminate duplicate/unused constant definitions in gcr.c Declare static internal function bytecmp in mkatom.c Update many source and include files to include headers for what they use
43 lines
1.3 KiB
C
43 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 */
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "version.h"
|
|
|
|
#include <stdio.h> // for printf
|
|
#include "emlglob.h"
|
|
#include "gcdata.h" // for GCLOOKUPV
|
|
#include "gcdefs.h" // for OP_gcref
|
|
#include "lspglob.h"
|
|
#include "lsptypes.h" // for state, ByteCode, PC, TopOfStack, Get_code_...
|
|
#include "testtooldefs.h" // for printPC
|
|
|
|
/************************************************************
|
|
|
|
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;
|
|
}
|