X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FAssembler.c;h=fa0984adc780cd1a7423e5d4bd8faf6656568092;hb=22bc4dd169cc1e4d22bf8bcacebb95dc621ef808;hp=76878e9ef08736934045a2be558acfc0bf0bc806;hpb=cd6a73a7be93ffdaaefbd4b47b78425dcec4fc02;p=ghc-hetmet.git

diff --git a/ghc/rts/Assembler.c b/ghc/rts/Assembler.c
index 76878e9..fa0984a 100644
--- a/ghc/rts/Assembler.c
+++ b/ghc/rts/Assembler.c
@@ -5,8 +5,8 @@
  * Copyright (c) 1994-1998.
  *
  * $RCSfile: Assembler.c,v $
- * $Revision: 1.28 $
- * $Date: 2000/05/09 10:00:35 $
+ * $Revision: 1.29 $
+ * $Date: 2000/05/10 09:00:20 $
  *
  * This module provides functions to construct BCOs and other closures
  * required by the bytecode compiler.
@@ -368,14 +368,6 @@ void asmCopyAndLink ( void )
 }
 
 
-#if 0
-void asmMarkObject ( AsmObject obj )
-{
-    ASSERT(obj->num_unresolved == 0 && obj->closure);
-    obj->closure = MarkRoot(obj->closure);
-}
-#endif
-
 /* --------------------------------------------------------------------------
  * Keeping track of the simulated stack pointer
  * ------------------------------------------------------------------------*/