github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-27 12:22:24 +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

71
src/gc2.c Executable file → Normal file
View File

@@ -1,8 +1,6 @@
/* $Id: gc2.c,v 1.3 1999/05/31 23:35:30 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
static char *id = "$Id: gc2.c,v 1.3 1999/05/31 23:35:30 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
@@ -17,17 +15,16 @@ static char *id = "$Id: gc2.c,v 1.3 1999/05/31 23:35:30 sybalsky Exp $ Copyright
#include "version.h"
/**********************************************************************/
/*
File Name: gc2.c
Desc: implement opcode SCAN1,SCAN2,GCRECLAIMCELL
Including : OP_scan1
OP_scan2
OP_gcreccell
File Name: gc2.c
Desc: implement opcode SCAN1,SCAN2,GCRECLAIMCELL
Including : OP_scan1
OP_scan2
OP_gcreccell
*/
/**********************************************************************/
@@ -43,54 +40,38 @@ static char *id = "$Id: gc2.c,v 1.3 1999/05/31 23:35:30 sybalsky Exp $ Copyright
#include "inlnPS2.h"
#endif /* GCC386 */
/**********************************************************************/
/*
Func Name : OP_gcscan1
Func Name : OP_gcscan1
*/
/**********************************************************************/
void OP_gcscan1(void)
{
DLword gcscan1(register int probe);
void OP_gcscan1(void) {
DLword gcscan1(register int probe);
#ifdef TRACE
printPC();
printf("TRACE: OP_gcscan1()\n");
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 */
if ((TopOfStack & SEGMASK) == S_POSITIVE) { TopOfStack = gcscan1(LOLOC(TopOfStack)); }
if (TopOfStack != NIL) TopOfStack |= S_POSITIVE;
PC++;
} /* OP_gcscan1 end */
/**********************************************************************/
/*
Func Name : OP_gcscan2
Func Name : OP_gcscan2
*/
/**********************************************************************/
void OP_gcscan2(void)
{
DLword gcscan2(register int probe);
void OP_gcscan2(void) {
DLword gcscan2(register int probe);
#ifdef TRACE
printPC();
printf("TRACE: OP_gcscan2()\n");
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 */
if ((TopOfStack & SEGMASK) == S_POSITIVE) { TopOfStack = gcscan2(LOLOC(TopOfStack)); }
if (TopOfStack != NIL) TopOfStack |= S_POSITIVE;
PC++;
} /* OP_gcscan2 end */