From c11b62bf763e6495eee53c73721db40ebd3a6a8d Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Mon, 29 Apr 2002 17:47:02 +0000
Subject: [PATCH] [project @ 2002-04-29 17:47:02 by panne] Sync with latest
 (F)SLIT changes

---
 ghc/utils/genprimopcode/Main.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/utils/genprimopcode/Main.hs b/ghc/utils/genprimopcode/Main.hs
index eedcb72..f9306fb 100644
--- a/ghc/utils/genprimopcode/Main.hs
+++ b/ghc/utils/genprimopcode/Main.hs
@@ -352,7 +352,7 @@ mkPOI_RHS_text i
                       ++ listify (map ppType argTys) ++ " "
                       ++ "(" ++ ppType resTy ++ ")"
             
-sl_name i = "SLIT(\"" ++ name i ++ "\") "
+sl_name i = "FSLIT(\"" ++ name i ++ "\") "
 
 ppTyVar "a" = "alphaTyVar"
 ppTyVar "b" = "betaTyVar"
-- 
1.7.10.4