From 975b3c32636987bb13c858cc6c9e5b99b8deb7e1 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 29 Jan 2002 16:54:41 +0000
Subject: [PATCH] [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.

---
 ghc/compiler/nativeGen/MachCode.lhs |   12 ------------
 1 file changed, 12 deletions(-)

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 ->
-- 
1.7.10.4