From: sewardj <unknown>
Date: Tue, 29 Jan 2002 16:54:41 +0000 (+0000)
Subject: [project @ 2002-01-29 16:54:41 by sewardj]
X-Git-Tag: Approximately_9120_patches~232
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=975b3c32636987bb13c858cc6c9e5b99b8deb7e1;p=ghc-hetmet.git

[project @ 2002-01-29 16:54:41 by sewardj]
x86 only: remove special ccall support for calling PerformGC_wrapper
using dodgy-looking calling convention.  PerformGC_wrapper was last
seen alive in GHC 3.X, AFAIK.
---

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 023225c..8c3937f 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -2703,18 +2703,6 @@ genCCall fn cconv kind args
 
 #if i386_TARGET_ARCH
 
-genCCall fn cconv ret_rep [StInt i]
-  | isLeft fn && unLeft fn == SLIT ("PerformGC_wrapper")
-  = let call = toOL [
-                  MOV L (OpImm (ImmInt (fromInteger i))) (OpReg eax),
-	          CALL (Left (ImmLit (ptext (if   underscorePrefix 
-                                       then (SLIT ("_PerformGC_wrapper"))
-                                       else (SLIT ("PerformGC_wrapper"))))))
-               ]
-    in
-    returnNat call
-
-
 genCCall fn cconv ret_rep args
   = mapNat push_arg
            (reverse args)  	`thenNat` \ sizes_n_codes ->