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

Reformat all C source files with Clang-format in Google style w/ 100 col width.

Browse Source
This commit is contained in:
Nick Briggs
2017-05-28 18:08:18 -07:00
parent 691645d048
commit 156c3292f8
167 changed files with 40520 additions and 48069 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
src/gc.c Executable file → Normal file
View File

@@ -1,8 +1,6 @@
/* $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. */
@@ -17,7 +15,6 @@ static char *id = "$Id: gc.c,v 1.3 1999/05/31 23:35:29 sybalsky Exp $ Copyright
#include "version.h"
#include <stdio.h>
#include "lispemul.h"
#include "lspglob.h"
@@ -26,27 +23,25 @@ static char *id = "$Id: gc.c,v 1.3 1999/05/31 23:35:29 sybalsky Exp $ Copyright
#include "gc.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.
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;
}
void OP_gcref(void) {
#ifdef TRACE
printPC();
printf("TRACE:OP_gcref()\n");
#endif
GCLOOKUPV(TopOfStack, Get_code_BYTE(PC + 1), TopOfStack);
PC += 2;
return;
}