From e51a2e2b16228ea0a19c74de4631428f7116c10a Mon Sep 17 00:00:00 2001 From: Nick Briggs Date: Sat, 5 Sep 2020 16:17:35 -0700 Subject: [PATCH] Remove temporary file that should not have been placed under version control. deleted: gc.h.save --- inc/gc.h.save | 265 -------------------------------------------------- 1 file changed, 265 deletions(-) delete mode 100755 inc/gc.h.save diff --git a/inc/gc.h.save b/inc/gc.h.save deleted file mode 100755 index d4df124..0000000 --- a/inc/gc.h.save +++ /dev/null @@ -1,265 +0,0 @@ -/* $Id: gc.h,v 1.2 1999/01/03 02:06:00 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */ - - - -/************************************************************************/ -/* */ -/* (C) Copyright 1989-94 Venue. All Rights Reserved. */ -/* Manufactured in the United States of America. */ -/* */ -/************************************************************************/ - -/**********************************************************************/ -/* - File Name : gc.h - - Define for garbage collector - -*/ -/**********************************************************************/ -#define ADDREF 0 /* for gclookup routine. */ -#define DELREF 1 /* for gclookup routine. */ -#define STKREF 2 /* for gclookup routine. */ -#define UNSTKREF 3 /* for htfind function. (T.T.) */ - - -#ifdef BIGVM - /* 32-bit HTmain, HTcoll, etc. entries */ -#define GETGC(x) *((LispPTR *) (x)) -#define GCENTRY LispPTR -#define GCPTR -#define MAX_GCCOUNT 0x7FFF /* = 32767 */ -#else - /* Old, 16-bit entries */ -#define GETGC GETWORD -#define GCENTRY DLword -#define GCPTR(x) WORDPTR(x) -#define MAX_GCCOUNT 0x3F /* = 63 */ -#endif /* BIGVM */ - - - - /* IncAllocCnt(n) decrements reclaim countdown by N - and signals interrupt if GC should happen soon */ - - /* IncAllocCnt is called only when *Reclaim_cnt_word != NIL */ - -#define IncAllocCnt(n) {\ - if ((*Reclaim_cnt_word -= n) <= S_POSITIVE) {\ - /* time for GC */\ - Irq_Stk_Check = Irq_Stk_End = 0;\ - *Reclaim_cnt_word = S_POSITIVE;\ - };\ -} - - /* DecAllocCnt only called when *Reclaim_cnt_word != NIL */ - -#define DecAllocCnt(n) { *Reclaim_cnt_word += n; } - -#define FreeLink(link) {\ - GETGC(link) = 0;\ - GETGC(link+1) = GETGC(HTcoll);\ - GETGC(HTcoll) = (link - HTcoll);\ -} - - - /* Given the contents of an HTMAIN or HTCOLL entry, - get the link pointer (i.e., turn off the low bit) */ -#define GetLinkptr(entry) (entry & 0x0fffffffe) - - -#define DelLink(link, prev, entry) { \ - if (prev != (GCENTRY *)0) \ - { \ - GETGC((GCENTRY *)prev + 1) = GETGC((GCENTRY *)link + 1); \ - } \ - else \ - { \ - GETGC((GCENTRY *)entry) = GETGC((GCENTRY *)link + 1) | 1; \ - } \ - FreeLink((GCENTRY *)link); \ - link = (GCENTRY *)(HTcoll + GetLinkptr(GETGC((GCENTRY *)entry))); \ - if (GETGC((GCENTRY *)link + 1) == 0) \ - { \ - GETGC((GCENTRY *)entry) = GETGC((GCENTRY *)link); \ - FreeLink((GCENTRY *)link); \ - } \ -} - -#define RefCntP(ptr) (!(GetTypeEntry((ptr)) & TT_NOREF) && \ - (*GcDisabled_word != ATOM_T)) - -#define GCLOOKUP(ptr, case) { \ - if (RefCntP(ptr)) { \ - if (*Reclaim_cnt_word != NIL) \ - htfind(ptr, case); \ - else \ - rec_htfind(ptr, case); \ - } \ -} - -#define GCLOOKUPV(ptr, case, val) { \ - if (RefCntP(ptr)) { \ - if (*Reclaim_cnt_word != NIL) \ - val = htfind(ptr, case); \ - else \ - val = rec_htfind(ptr, case); \ - } else val = NIL; \ -} - -#define REC_GCLOOKUP(ptr, case) { if (RefCntP(ptr)) rec_htfind(ptr, case); } -#define REC_GCLOOKUPV(ptr, case, val) { \ - if (RefCntP(ptr)) \ - val = rec_htfind(ptr, case); \ - else \ - val = NIL; \ -} - -#define FRPLPTR(old , new) { \ - GCLOOKUP(new, ADDREF); \ - GCLOOKUP(old, DELREF); \ - (old) = (new) ; } - - -#ifndef BYTESWAP - /********************************************************/ - /* Normal byte-order definitions, for e.g., 68020s */ - /********************************************************/ -#ifdef BIGVM -struct hashentry - { /* GC hastable entry */ - unsigned short count :15; - unsigned short stackref :1; - unsigned short segnum :15; - unsigned short collision :1; - }; - -struct htlinkptr - { /* overlay access method */ - LispPTR contents; - }; - -struct htcoll - { /* GC collision table entry */ - LispPTR free_ptr ; - LispPTR next_free ; - }; - -struct gc_ovfl - { - LispPTR ovfl_ptr ; - unsigned int ovfl_cnt ; - }; - -struct htoverflow - { /* July-23-1987 by TT */ - unsigned pcase :4; - unsigned ptr :28; - }; -#else -struct hashentry - { /* GC hastable entry */ - USHORT count :6; - USHORT stackref :1; - USHORT segnum :8; - USHORT collision :1; - }; - -struct htlinkptr - { /* overlay access method */ - DLword contents; - }; - -struct htcoll - { /* GC collision table entry */ - DLword free_ptr ; - DLword next_free ; - }; - -struct gc_ovfl - { - LispPTR ovfl_ptr ; - unsigned int ovfl_cnt ; - }; - -struct htoverflow - { /* July-23-1987 by TT */ - unsigned pcase :8; - unsigned ptr :24; - }; -#endif /* BIGVM */ - -#else - - /********************************************************/ - /* Byte-swapped definitions, for e.g., 80386s */ - /********************************************************/ -#ifdef BIGVM -struct hashentry - { /* GC hashtable entry */ - USHORT collision :1; - USHORT segnum :15; - USHORT stackref :1; - USHORT count :15; - }; - -struct htlinkptr - { /* overlay access method */ - LispPTR contents; - }; - -struct htcoll - { /* GC collision table entry */ - LispPTR free_ptr ; - LispPTR next_free ; - }; - -struct gc_ovfl - { - LispPTR ovfl_ptr ; - unsigned int ovfl_cnt ; - }; - -struct htoverflow - { /* July-23-1987 by TT */ - unsigned ptr :28; - unsigned pcase :4; - }; -#else -struct hashentry - { /* GC hashtable entry */ - USHORT collision :1; - USHORT segnum :8; - USHORT stackref :1; - USHORT count :6; - }; - -struct htlinkptr - { /* overlay access method */ - DLword contents; - }; - -struct htcoll - { /* GC collision table entry */ - DLword next_free ; - DLword free_ptr ; - }; - -struct gc_ovfl - { - LispPTR ovfl_ptr ; - unsigned int ovfl_cnt ; - }; - -struct htoverflow - { /* July-23-1987 by TT */ - unsigned ptr :24; - unsigned pcase :8; - }; -#endif /* BIGVM */ - -#endif /* BYTESWAP */ - - -extern LispPTR htfind(); -extern LispPTR rec_htfind();