mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-20 11:33:09 -08:00
Code Issues Projects Releases Wiki Activity

Add mps_arena_has_addr for configura.

Browse source 
Copied from Perforce
 Change: 24143
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Nick Barnes 2001-11-23 11:24:42 +00:00
parent ab1124eed0
commit 35651f3b1d
4 changed files with 28 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
mps/src/arena.c
View file

@ -1379,6 +1379,17 @@ Res ArenaFinalize(Arena arena, Ref obj)
}
/* Has Addr */
Bool ArenaHasAddr(Arena arena, Addr addr)
{
Seg seg;
AVERT(Arena, arena);
return SegOfAddr(&seg, arena, addr);
}
/* Peek / Poke */
Ref ArenaPeek(Arena arena, Addr addr)

1
mps/src/mpm.h
View file

@ -657,6 +657,7 @@ extern void ArenaClamp(Arena arena);
extern void ArenaRelease(Arena arena);
extern void ArenaPark(Arena arena);
extern Res ArenaCollect(Arena arena);
extern Bool ArenaHasAddr(Arena arena, Addr addr);
extern Res ControlAlloc(void **baseReturn, Arena arena, size_t size,
Bool withReservoirPermit);

2
mps/src/mps.h
View file

@ -263,6 +263,8 @@ extern size_t mps_arena_spare_commit_limit(mps_arena_t);
extern size_t mps_space_reserved(mps_space_t);
extern size_t mps_space_committed(mps_space_t);
extern mps_bool_t mps_arena_has_addr(mps_arena_t, mps_addr_t);
/* Client memory arenas */
extern mps_res_t mps_arena_extend(mps_arena_t, mps_addr_t, size_t);
extern mps_res_t mps_arena_retract(mps_arena_t, mps_addr_t, size_t);

14
mps/src/mpsi.c
View file

@ -442,6 +442,20 @@ void mps_space_destroy(mps_space_t mps_space)
}
#endif
/* mps_arena_has_addr -- is this address managed by this arena? */
mps_bool_t mps_arena_has_addr(mps_arena_t mps_arena, mps_addr_t p)
{
Bool b;
Arena arena = (Arena)mps_arena;
ArenaEnter(arena);
AVERT(Arena, arena);
b = ArenaHasAddr(arena, (Addr)p);
ArenaLeave(arena);
return b;
}
/* mps_fmt_create_A -- create an object format of variant A
*