From: rrt <unknown>
Date: Thu, 4 Oct 2001 14:19:26 +0000 (+0000)
Subject: [project @ 2001-10-04 14:19:26 by rrt]
X-Git-Tag: Approximately_9120_patches~858
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a662a986f468d5d123c404c231a86886a297c1fa;p=ghc-hetmet.git

[project @ 2001-10-04 14:19:26 by rrt]
Move PrelGHC.ilx.real to PrelGHC.ilx.pp, for consistency with other such
files. Actually, the "preprocessing" just consists of copying it to
PrelGHC.ilx; it's done because ILX files aren't precious, and we don't want
it being deleted.
---

diff --git a/ghc/lib/std/PrelGHC.ilx.real b/ghc/lib/std/PrelGHC.ilx.pp
similarity index 99%
rename from ghc/lib/std/PrelGHC.ilx.real
rename to ghc/lib/std/PrelGHC.ilx.pp
index 8e6e932..de1d7a2 100644
--- a/ghc/lib/std/PrelGHC.ilx.real
+++ b/ghc/lib/std/PrelGHC.ilx.pp
@@ -1,5 +1,8 @@
 // The ILX implementation of PrelGHC 
 
+// This file isn't really preprocessed, but it's kept as a .pp file
+// because .ilx files aren't precious, and may be deleted
+
 .module extern 'PrelBase.i_o'
 .classunion import [.module 'PrelBase.i_o']PrelBase_Bool {.alternative 'PrelBase_False' ()
 .alternative 'PrelBase_True' ()}
@@ -456,7 +459,7 @@ end:
    }
    .method public  static  
        class PrelGHC_Weakzh<!!1>
-           bake<any,any>(!!0,!!1 obj,thunk<(func () -> class [.module 'PrelBase.i_o']PrelBase_Z0T)> finalizer) {
+           bake<any,any>(!!0,!!1 obj,thunk<(func () --> class [.module 'PrelBase.i_o']PrelBase_Z0T)> finalizer) {
          ldarg obj 
          ldarg finalizer
          newobj void class 'PrelGHC_Weakzh'<!!1>::.ctor(!0 x, thunk<(func ( /* unit skipped */ ) --> class [.module 'PrelBase.i_o']PrelBase_Z0T)>)