From 5248496621bd23d3d42f8e0929278e110797d1c1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 2 May 2002 09:09:18 +0000
Subject: [PATCH] [project @ 2002-05-02 09:09:18 by simonmar] ptext => ftext

---
 ghc/compiler/nativeGen/MachCode.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index fe8bc67..1c00641 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -2888,8 +2888,8 @@ genCCall fn cconv kind args
      -- ToDo:needed (WDP 96/03) ???
      fn_static = unLeft fn
      fn__2 = case (headFS fn_static) of
-	        '.' -> ImmLit (ptext fn_static)
-	        _   -> ImmLab False (ptext fn_static)
+	        '.' -> ImmLit (ftext fn_static)
+	        _   -> ImmLab False (ftext fn_static)
 
      -- move args from the integer vregs into which they have been 
      -- marshalled, into %o0 .. %o5, and the rest onto the stack.
-- 
1.7.10.4