From: panne <unknown>
Date: Mon, 29 Apr 2002 17:47:02 +0000 (+0000)
Subject: [project @ 2002-04-29 17:47:02 by panne]
X-Git-Tag: Approx_11550_changesets_converted~2089
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c11b62bf763e6495eee53c73721db40ebd3a6a8d;p=ghc-hetmet.git

[project @ 2002-04-29 17:47:02 by panne]
Sync with latest (F)SLIT changes
---

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"