From cb620cf755299a3c69de45be27fbdad06d45e2b5 Mon Sep 17 00:00:00 2001
From: Richard Brooksby <rb@ravenbrook.com>
Date: Tue, 19 Apr 2016 22:32:26 +0100
Subject: [PATCH] Removing a note about initialization order that no longer
 applies.

Copied from Perforce
 Change: 191305
 ServerID: perforce.ravenbrook.com
---
 mps/code/arena.c   | 10 +---------
 mps/code/arenacl.c |  2 +-
 mps/code/arenavm.c |  2 +-
 3 files changed, 3 insertions(+), 11 deletions(-)

diff --git a/mps/code/arena.c b/mps/code/arena.c
index 3ed4c7b5b5d..9597482a6eb 100644
--- a/mps/code/arena.c
+++ b/mps/code/arena.c
@@ -231,15 +231,7 @@ Bool ArenaCheck(Arena arena)
 }
 
 
-/* ArenaAbsInit -- initialize the generic part of the arena
- *
- * .init.caller: ArenaInit is called by class->init (which is called
- * by ArenaCreate). The initialization must proceed in this order, as
- * opposed to class->init being called by ArenaInit, which would
- * correspond to the initialization order for pools and other objects,
- * because the memory for the arena structure is not available until
- * it has been allocated by the arena class.
- */
+/* ArenaAbsInit -- initialize the generic part of the arena */
 
 static Res ArenaAbsInit(Arena arena, Size grainSize, ArgList args)
 {
diff --git a/mps/code/arenacl.c b/mps/code/arenacl.c
index 97b3b757929..bc139e23857 100644
--- a/mps/code/arenacl.c
+++ b/mps/code/arenacl.c
@@ -283,7 +283,7 @@ static Res ClientArenaCreate(Arena *arenaReturn, ArgList args)
     return ResMEMORY;
 
   arena = CouldBeA(AbstractArena, clientArena);
-  /* <code/arena.c#init.caller> */
+
   res = NextMethod(Arena, ClientArena, init)(arena, grainSize, args);
   if (res != ResOK)
     goto failSuperInit;
diff --git a/mps/code/arenavm.c b/mps/code/arenavm.c
index dfa54d457bd..663ac2dbdb5 100644
--- a/mps/code/arenavm.c
+++ b/mps/code/arenavm.c
@@ -553,7 +553,7 @@ static Res VMArenaCreate(Arena *arenaReturn, ArgList args)
   vmArena = (VMArena)VMBase(vm);
 
   arena = VMArena2Arena(vmArena);
-  /* <code/arena.c#init.caller> */
+
   res = NextMethod(Arena, VMArena, init)(arena, grainSize, args);
   if (res != ResOK)
     goto failArenaInit;