github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-03 15:13:03 +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

77
src/gcscan.c Executable file → Normal file
View File

@@ -1,8 +1,7 @@
/* $Id: gcscan.c,v 1.3 1999/05/31 23:35:33 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
/* $Id: gcscan.c,v 1.3 1999/05/31 23:35:33 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved
*/
static char *id = "$Id: gcscan.c,v 1.3 1999/05/31 23:35:33 sybalsky Exp $ Copyright (C) Venue";
/************************************************************************/
/* */
/* (C) Copyright 1989-95 Venue. All Rights Reserved. */
@@ -17,7 +16,6 @@ static char *id = "$Id: gcscan.c,v 1.3 1999/05/31 23:35:33 sybalsky Exp $ Copyri
#include "version.h"
/*************************************************************************/
/* */
/* File Name : gcscan.c */
@@ -60,46 +58,41 @@ static char *id = "$Id: gcscan.c,v 1.3 1999/05/31 23:35:33 sybalsky Exp $ Copyri
#include "lsptypes.h"
#ifdef BIGVM
#define HTSTKBIT 0x10000 /* = 512 */
#define HTENDS ((struct hashentry *) htlptr)
#define GetStkCnt(entry1) (entry1 >> 16)
#define HTSTKBIT 0x10000 /* = 512 */
#define HTENDS ((struct hashentry *)htlptr)
#define GetStkCnt(entry1) (entry1 >> 16)
#else
#define HTSTKBIT 0x200 /* = 512 */
#define HTENDS ((struct hashentry *) htlptr)
#define GetStkCnt(entry1) (entry1 >> 9)
#define HTSTKBIT 0x200 /* = 512 */
#define HTENDS ((struct hashentry *)htlptr)
#define GetStkCnt(entry1) (entry1 >> 9)
#endif /* BIGVM */
DLword gcscan1 (register int probe)
/* probe is offset */
{ register struct htlinkptr *htlptr; /* overlay access method */
register int contents;
while (--probe >= 0) /* End of HTmain Table ? */
{
/* Start addr. of scanning */
htlptr = (struct htlinkptr *)(HTmain+probe);
contents = ((struct htlinkptr *)GCPTR(htlptr))->contents;
if (contents && (((struct hashentry *)GCPTR(HTENDS))->collision
|| (GetStkCnt(contents) == 0)))
return(probe);
}
return(NIL);
}
DLword gcscan2 (register int probe)
/* probe is offset */
DLword gcscan1(register int probe)
/* probe is offset */
{
register struct htlinkptr *htlptr; /* overlay access method */
register int contents;
while (--probe >= 0) /* End of HTmain Table ? */
{
register struct htlinkptr *htlptr; /* overlay access method */
while (--probe >= 0) /* End of HTmain Table ? */
{
htlptr = (struct htlinkptr *)(HTmain+probe);
/* Start addr. of scanning */
if (((HTSTKBIT | 1) & ((struct htlinkptr *)GCPTR(htlptr))->contents) != 0)
return(probe); /* stackref or collision ON */
}
return(NIL);
/* Start addr. of scanning */
htlptr = (struct htlinkptr *)(HTmain + probe);
contents = ((struct htlinkptr *)GCPTR(htlptr))->contents;
if (contents && (((struct hashentry *)GCPTR(HTENDS))->collision || (GetStkCnt(contents) == 0)))
return (probe);
}
return (NIL);
}
DLword gcscan2(register int probe)
/* probe is offset */
{
register struct htlinkptr *htlptr; /* overlay access method */
while (--probe >= 0) /* End of HTmain Table ? */
{
htlptr = (struct htlinkptr *)(HTmain + probe);
/* Start addr. of scanning */
if (((HTSTKBIT | 1) & ((struct htlinkptr *)GCPTR(htlptr))->contents) != 0)
return (probe); /* stackref or collision ON */
}
return (NIL);
}