github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-03-05 10:44:07 +00:00
Code Issues Projects Releases Wiki Activity

Make local procedures map_code_pointers() and remimplicitkeyhash() static and remove from gccodedefs.h

Browse Source
This commit is contained in:
Nick Briggs
2023-01-07 17:01:03 -08:00
parent 26737f3cbf
commit dc893dda99
2 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
inc/gccodedefs.h
View File

@@ -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

6
src/gccode.c
View File

@@ -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);