Skip to content

Commit 0e2cda2

Browse files
committed
Cleans up releasingvmempage implementation
Uses consistent naming (_np) for native pointer equivalents of Lisp addresses
1 parent c58336f commit 0e2cda2

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

src/gcfinal.c

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -164,13 +164,13 @@ static LispPTR findptrsbuffer(LispPTR ptr) {
164164
/************************************************************************/
165165

166166
LispPTR releasingvmempage(LispPTR ptr) {
167-
struct buf *bptr;
168-
LispPTR bufferptr = findptrsbuffer(ptr);
167+
LispPTR buffer = findptrsbuffer(ptr);
168+
struct buf *buffer_np;
169169

170-
if (bufferptr == NIL) return (NIL); /* Not in use, OK to reclaim it */
170+
if (buffer == NIL) return (NIL); /* Not in use, OK to reclaim it */
171171

172-
bptr = (struct buf *)NativeAligned4FromLAddr(bufferptr);
173-
bptr->noreference = T; /* Mark the buffer free to use ?? */
172+
buffer_np = (struct buf *)NativeAligned4FromLAddr(buffer);
173+
buffer_np->noreference = T; /* Mark the buffer free to use ?? */
174174
return (ATOM_T);
175175
}
176176

0 commit comments

Comments
 (0)