From dc893dda999a46a45b7d9c18024d7563b66f2c45 Mon Sep 17 00:00:00 2001 From: Nick Briggs Date: Sat, 7 Jan 2023 17:01:03 -0800 Subject: [PATCH] Make local procedures map_code_pointers() and remimplicitkeyhash() static and remove from gccodedefs.h --- inc/gccodedefs.h | 2 -- src/gccode.c | 6 +++--- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/inc/gccodedefs.h b/inc/gccodedefs.h index 33fdd68..c1f1142 100644 --- a/inc/gccodedefs.h +++ b/inc/gccodedefs.h @@ -1,8 +1,6 @@ #ifndef GCCODEDEFS_H #define GCCODEDEFS_H 1 #include "lispemul.h" /* for LispPTR */ -LispPTR map_code_pointers(LispPTR codeblock, short int casep); -LispPTR remimplicitkeyhash(LispPTR item, LispPTR ik_hash_table); LispPTR reclaimcodeblock(LispPTR codebase); int code_block_size(long unsigned int codeblock68k); #endif diff --git a/src/gccode.c b/src/gccode.c index cad9f19..01ac2c3 100644 --- a/src/gccode.c +++ b/src/gccode.c @@ -33,7 +33,7 @@ #include "address.h" // for LOLOC, HILOC #include "adr68k.h" // for NativeAligned4FromLAddr #include "commondefs.h" // for error -#include "gccodedefs.h" // for code_block_size, map_code_pointers, reclaimc... +#include "gccodedefs.h" // for code_block_size, reclaimcodeblock #include "gcdata.h" // for REC_GCLOOKUP, DELREF, ADDREF #include "lspglob.h" // for Deleted_Implicit_Hash_Slot_word, UFNTable #include "lsptypes.h" // for LispPTR, NIL, UFN, Get_code_BYTE, POINTERMASK @@ -121,7 +121,7 @@ typedef ByteCode *InstPtr; /* */ /************************************************************************/ -LispPTR map_code_pointers(LispPTR codeblock, short int casep) { +static LispPTR map_code_pointers(LispPTR codeblock, short int casep) { InstPtr codeptr; unsigned int opnum; unsigned int len; @@ -180,7 +180,7 @@ LispPTR map_code_pointers(LispPTR codeblock, short int casep) { shouldn't be looked at */ #define getikkey(value) ((*(LispPTR *)NativeAligned4FromLAddr(value)) & POINTERMASK) -LispPTR remimplicitkeyhash(LispPTR item, LispPTR ik_hash_table) { +static LispPTR remimplicitkeyhash(LispPTR item, LispPTR ik_hash_table) { Ikhashtbl *ik_htable; LispPTR reprobe, bits, limits, index, base, value; ik_htable = (Ikhashtbl *)NativeAligned4FromLAddr(ik_hash_table);