mirror of
https://github.com/Interlisp/maiko.git
synced 2026-02-15 04:06:19 +00:00
Release 201 corrections (#510)
* Fix compilation for maiko version 201 Version 201 does not have BIGVM, so SWA_FNHEAD requires swapx which is defined in byteswapdefs.h * Fix compilation for maiko version 201 Version 201 did not have NEWCDRCODING, so the implementation of N_OP_rplcons requires definitions from gcdata.h and address.h * Set up makeright etc. to allow for easier compilation of alternate versions The makeright script and the makefile-* slices it depends are modified to allow easily specifying the RELEASE version number of the Maiko emulator to be built. The default version remains 351, but can be changed with e.g. RELEASE=201 ./makeright x The object directories and executables are NOT named with the version. * Remove unnecessary include of gcdata.h from bbtsub.c * Users of gcdata.h should include gchtfinddefs.h explicitly if they use gcdata.h macros * Correct modify_big_reference_count entry parameter type to reflect dependence on GCENTRY size differences between releases * Add MAIKO_RELEASE to CMake options for building
This commit is contained in:
@@ -49,7 +49,6 @@
|
||||
#include "stack.h"
|
||||
#include "return.h"
|
||||
#include "cell.h"
|
||||
#include "gcdata.h"
|
||||
|
||||
#include "bbtsubdefs.h"
|
||||
#include "car-cdrdefs.h"
|
||||
|
||||
@@ -38,6 +38,7 @@
|
||||
#include "conspagedefs.h" // for next_conspage
|
||||
#include "emlglob.h"
|
||||
#include "gcdata.h" // for GCLOOKUP, ADDREF, DELREF
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "lispemul.h" // for ConsCell, LispPTR, DLword, NIL_PTR, state
|
||||
#include "lspglob.h" // for ListpDTD
|
||||
#include "lsptypes.h" // for Listp, dtd
|
||||
|
||||
@@ -23,6 +23,7 @@
|
||||
#include "commondefs.h" // for error
|
||||
#include "conspagedefs.h" // for N_OP_cons, cons, next_conspage
|
||||
#include "gcdata.h" // for GCLOOKUP, ADDREF, DELREF
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "lispemul.h" // for ConsCell, DLword, LispPTR, NIL_PTR, DLWORD...
|
||||
#include "lspglob.h"
|
||||
#include "lsptypes.h" // for dtd, Listp, TYPE_LISTP
|
||||
|
||||
@@ -15,6 +15,7 @@
|
||||
#include "emlglob.h"
|
||||
#include "fvardefs.h" // for N_OP_fvar_, N_OP_fvarn, N_OP_stkscan, nati...
|
||||
#include "gcdata.h" // for GCLOOKUP, ADDREF, DELREF
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "lispmap.h" // for ATOMS_HI, STK_HI
|
||||
#include "lspglob.h" // for Stackspace
|
||||
#include "lsptypes.h" // for DLword, LispPTR, GETBASEWORD, state, FRAME...
|
||||
|
||||
1
src/gc.c
1
src/gc.c
@@ -12,6 +12,7 @@
|
||||
#include <stdio.h> // for printf
|
||||
#include "emlglob.h"
|
||||
#include "gcdata.h" // for GCLOOKUPV
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "gcdefs.h" // for OP_gcref
|
||||
#include "lspglob.h"
|
||||
#include "lsptypes.h" // for state, ByteCode, PC, TopOfStack, Get_code_...
|
||||
|
||||
@@ -35,6 +35,7 @@
|
||||
#include "commondefs.h" // for error
|
||||
#include "gccodedefs.h" // for code_block_size, reclaimcodeblock
|
||||
#include "gcdata.h" // for REC_GCLOOKUP, DELREF, ADDREF
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "lspglob.h" // for Deleted_Implicit_Hash_Slot_word, UFNTable
|
||||
#include "lsptypes.h" // for LispPTR, NIL, UFN, Get_code_BYTE, POINTERMASK
|
||||
#include "stack.h" // for fnhead
|
||||
|
||||
@@ -49,6 +49,7 @@
|
||||
#include "commondefs.h" // for error
|
||||
#include "gccodedefs.h" // for reclaimcodeblock
|
||||
#include "gcdata.h" // for DELREF, REC_GCLOOKUP
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "gcfinaldefs.h" // for arrayblockmerger, checkarrayblock, deleteblock
|
||||
#include "lispemul.h" // for LispPTR, NIL, T, POINTERMASK, DLword, ATOM_T
|
||||
#include "llstkdefs.h" // for decusecount68k
|
||||
|
||||
@@ -253,7 +253,7 @@ void enter_big_reference_count(LispPTR ptr) {
|
||||
/* */
|
||||
/************************************************************************/
|
||||
|
||||
void modify_big_reference_count(LispPTR *entry, DLword casep, LispPTR ptr) {
|
||||
void modify_big_reference_count(GCENTRY *entry, DLword casep, LispPTR ptr) {
|
||||
struct gc_ovfl *oventry;
|
||||
LispPTR tmp;
|
||||
|
||||
|
||||
@@ -39,6 +39,7 @@
|
||||
#include "commondefs.h" // for error
|
||||
#include "emlglob.h"
|
||||
#include "gcdata.h" // for GCENTRY, REC_GCLOOKUP, STKREF, hashentry
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "gcmain3defs.h" // for gcmapscan, gcmapunscan, gcscanstack
|
||||
#include "gcrcelldefs.h" // for gcreccell
|
||||
#include "gcscandefs.h" // for gcscan1, gcscan2
|
||||
|
||||
@@ -31,6 +31,7 @@
|
||||
|
||||
#include "arith.h" // for GetSmalldata
|
||||
#include "gcdata.h" // for htoverflow, REC_GCLOOKUP
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "gcoflowdefs.h" // for gc_handleoverflow, gcmaptable
|
||||
#include "gcrdefs.h" // for doreclaim
|
||||
#include "lispemul.h" // for NIL, DLword, LispPTR
|
||||
|
||||
@@ -71,6 +71,7 @@
|
||||
#include "commondefs.h" // for error
|
||||
#include "gccodedefs.h" // for reclaimcodeblock
|
||||
#include "gcdata.h" // for DELREF, REC_GCLOOKUPV, ADDREF, REC_GCLOOKUP
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "gcfinaldefs.h" // for reclaimarrayblock, reclaimstackp, releasing...
|
||||
#include "gcrcelldefs.h" // for freelistcell, gcreccell
|
||||
#include "lispemul.h" // for LispPTR, ConsCell, NIL, POINTERMASK, DLword
|
||||
|
||||
@@ -15,6 +15,7 @@
|
||||
#include "dbprint.h" // for DEBUGGER
|
||||
#include "emlglob.h"
|
||||
#include "gcdata.h" // for FRPLPTR
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "gvar2defs.h" // for N_OP_gvar_, N_OP_rplptr
|
||||
#include "lispemul.h" // for LispPTR, DLword, NEWATOM_VALUE_OFFSET, NEWAT...
|
||||
#include "lspglob.h" // for AtomSpace
|
||||
|
||||
@@ -34,6 +34,7 @@
|
||||
#include "etherdefs.h" // for init_ifpage_ether
|
||||
#include "gcarraydefs.h" // for get_package_atom
|
||||
#include "gcdata.h" // for ADDREF, GCLOOKUP
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "ifpage.h" // for IFPAGE, MACHINETYPE_MAIKO
|
||||
#include "initsoutdefs.h" // for build_lisp_map, fixp_value, init_for_bitblt
|
||||
#include "iopage.h" // for IOPAGE
|
||||
|
||||
@@ -25,6 +25,7 @@
|
||||
#include "commondefs.h" // for error
|
||||
#include "gcarraydefs.h" // for get_package_atom
|
||||
#include "gcdata.h" // for FRPLPTR
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "lispemul.h" // for LispPTR, state, CurrentStackPTR, NIL_PTR, NIL
|
||||
#include "lispmap.h" // for S_POSITIVE
|
||||
#include "loopsopsdefs.h" // for lcfuncall, LCFetchMethod, LCFetchMethodOrHelp
|
||||
|
||||
@@ -32,6 +32,7 @@
|
||||
#include "commondefs.h" // for error
|
||||
#include "emlglob.h"
|
||||
#include "gcdata.h" // for DELREF, GCLOOKUP
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "lispemul.h" // for LispPTR, DLword, NIL, POINTERMASK, state
|
||||
#include "lispmap.h" // for S_POSITIVE
|
||||
#include "lspglob.h"
|
||||
|
||||
@@ -35,6 +35,7 @@
|
||||
#ifdef BIGVM
|
||||
#define SWA_FNHEAD
|
||||
#else
|
||||
#include "byteswapdefs.h" // for swapx
|
||||
#define SWA_FNHEAD swapx
|
||||
#endif /* BIGVM */
|
||||
|
||||
|
||||
@@ -29,6 +29,11 @@
|
||||
#include "lspglob.h"
|
||||
#include "lsptypes.h" // for Listp
|
||||
#include "rplconsdefs.h" // for N_OP_rplcons
|
||||
#ifndef NEWCDRCODING
|
||||
#include "gcdata.h"
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "address.h"
|
||||
#endif
|
||||
|
||||
/***************************************************/
|
||||
|
||||
|
||||
@@ -23,6 +23,7 @@
|
||||
#include "commondefs.h" // for error
|
||||
#include "conspagedefs.h" // for cons
|
||||
#include "gcdata.h" // for ADDREF, GCLOOKUP
|
||||
#include "gchtfinddefs.h" // for htfind, rec_htfind
|
||||
#include "gcfinaldefs.h" // for makefreearrayblock, mergebackward
|
||||
#include "ifpage.h" // for IFPAGE, MACHINETYPE_MAIKO
|
||||
#include "lispemul.h" // for LispPTR, NIL, GETFPTOVP, INTSTAT, ATOM_T
|
||||
|
||||
Reference in New Issue
Block a user