boot
This commit is contained in:
@@ -163,6 +163,11 @@ static inline CELL *ArenaLimit(Term arena) {
|
||||
return arena_base + sz;
|
||||
}
|
||||
|
||||
/* pointer to top of an arena */
|
||||
CELL *Yap_ArenaLimit(Term arena) {
|
||||
return ArenaLimit(arena);
|
||||
}
|
||||
|
||||
/* pointer to top of an arena */
|
||||
static inline CELL *ArenaPt(Term arena) { return (CELL *)RepAppl(arena); }
|
||||
|
||||
|
||||
Reference in New Issue
Block a user