mirror of
https://github.com/Interlisp/maiko.git
synced 2026-02-04 15:43:04 +00:00
31fcfb36ca
Procedure can be static as it is only used within this file
Uses consistent naming (_np) for native pointer equivalents of Lisp
addresses, and better matches Lisp implementation naming of variables.
Improve readability by reducing if/else nesting with early outs in
exceptional cases. Still equivalent to the original Lisp version.
Adds comments with a little explanation of what the code is doing.
16 lines
514 B
C
16 lines
514 B
C
#ifndef GCFINALDEFS_H
|
|
#define GCFINALDEFS_H 1
|
|
#include "lispemul.h" /* for LispPTR, DLword */
|
|
void printarrayblock(LispPTR base);
|
|
LispPTR releasingvmempage(LispPTR ptr);
|
|
LispPTR checkarrayblock(LispPTR base, LispPTR free, LispPTR onfreelist);
|
|
LispPTR makefreearrayblock(LispPTR block, DLword length);
|
|
LispPTR arrayblockmerger(LispPTR base, LispPTR nbase);
|
|
LispPTR mergebackward(LispPTR base);
|
|
LispPTR mergeforward(LispPTR base);
|
|
LispPTR reclaimarrayblock(LispPTR ptr);
|
|
LispPTR reclaimstackp(LispPTR ptr);
|
|
#endif
|
|
|
|
|