aboutsummaryrefslogtreecommitdiffstats
path: root/mps/code/arena.c
diff options
context:
space:
mode:
Diffstat (limited to 'mps/code/arena.c')
-rw-r--r--mps/code/arena.c12
1 files changed, 1 insertions, 11 deletions
diff --git a/mps/code/arena.c b/mps/code/arena.c
index 189503b348e..a77a72f590c 100644
--- a/mps/code/arena.c
+++ b/mps/code/arena.c
@@ -46,16 +46,6 @@ static Res ArenaTrivDescribe(Arena arena, mps_lib_FILE *stream)
46} 46}
47 47
48 48
49/* ArenaTrivVarargs -- ignore obsolete varargs for future arena classes */
50
51static void ArenaTrivVarargs(ArgStruct args[MPS_ARGS_MAX], va_list varargs)
52{
53 UNUSED(varargs);
54 args[0].key = MPS_KEY_ARGS_END;
55 AVER(ArgListCheck(args));
56}
57
58
59/* AbstractArenaClass -- The abstract arena class definition 49/* AbstractArenaClass -- The abstract arena class definition
60 * 50 *
61 * .null: Most abstract class methods are set to NULL. See 51 * .null: Most abstract class methods are set to NULL. See
@@ -69,7 +59,7 @@ DEFINE_CLASS(AbstractArenaClass, class)
69 class->name = "ABSARENA"; 59 class->name = "ABSARENA";
70 class->size = 0; 60 class->size = 0;
71 class->offset = 0; 61 class->offset = 0;
72 class->varargs = ArenaTrivVarargs; 62 class->varargs = ArgTrivVarargs;
73 class->init = NULL; 63 class->init = NULL;
74 class->finish = NULL; 64 class->finish = NULL;
75 class->reserved = NULL; 65 class->reserved = NULL;