github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-28 01:15:51 +00:00
Code Issues Projects Releases Wiki Activity

Cleans up releasingvmempage implementation

Browse Source 
Uses consistent naming (_np) for native pointer equivalents of Lisp
    addresses
This commit is contained in:
Nick Briggs
2025-07-19 22:44:27 -07:00
parent c58336f813
commit 0e2cda2328
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/gcfinal.c
View File

@@ -164,13 +164,13 @@ static LispPTR findptrsbuffer(LispPTR ptr) {
/************************************************************************/
LispPTR releasingvmempage(LispPTR ptr) {
struct buf *bptr;
LispPTR bufferptr = findptrsbuffer(ptr);
LispPTR buffer = findptrsbuffer(ptr);
struct buf *buffer_np;
if (bufferptr == NIL) return (NIL); /* Not in use, OK to reclaim it */
if (buffer == NIL) return (NIL); /* Not in use, OK to reclaim it */
bptr = (struct buf *)NativeAligned4FromLAddr(bufferptr);
bptr->noreference = T; /* Mark the buffer free to use ?? */
buffer_np = (struct buf *)NativeAligned4FromLAddr(buffer);
buffer_np->noreference = T; /* Mark the buffer free to use ?? */
return (ATOM_T);
}