mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

Mps: enabling reg scanner for mpsicv on mactel.

Browse source 
Copied from Perforce
 Change: 161877
 ServerID: perforce.ravenbrook.com
This commit is contained in:
David Jones 2007-03-01 19:49:29 +00:00
parent b884cc07c6
commit b44f32fa08
1 changed files with 3 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

24
mps/code/mpsicv.c
View file

@ -12,11 +12,9 @@
#include "fmtdy.h"
#include "fmtdytst.h"
#include "mps.h"
#if !defined(CONFIG_PROD_EPCORE)
# include "mpstd.h"
# ifdef MPS_OS_W3
# include "mpsw3.h"
# endif
#include "mpstd.h"
#ifdef MPS_OS_W3
# include "mpsw3.h"
#endif
#include <stdlib.h>
#include <stdarg.h>
@ -450,24 +448,12 @@ static void *test(void *arg, size_t s)
#define TEST_ARENA_SIZE ((size_t)16<<20)
/* Hacky. Sorry.
* REG_ROOT is defined to 1 when we can use a register root.
* Otherwise it is defined to 0.
*/
#if !defined(CONFIG_PROD_EPCORE) && !defined(MPS_PF_XCI3GC)
#define REG_ROOT 1
#else
#define REG_ROOT 0
#endif
int main(int argc, char **argv)
{
mps_arena_t arena;
mps_thr_t thread;
#if REG_ROOT
mps_root_t reg_root;
#endif
void *r;
void *marker = &marker;
@ -477,19 +463,15 @@ int main(int argc, char **argv)
"arena_create");
die(mps_thread_reg(&thread, arena), "thread_reg");
#if REG_ROOT
die(mps_root_create_reg(&reg_root, arena,
MPS_RANK_AMBIG, (mps_rm_t)0,
thread, &mps_stack_scan_ambig,
marker, (size_t)0),
"root_create_reg");
#endif
(mps_tramp)(&r, test, arena, 0); /* non-inlined trampoline */
mps_tramp(&r, test, arena, 0);
#if REG_ROOT
mps_root_destroy(reg_root);
#endif
mps_thread_dereg(thread);
mps_arena_destroy(arena);