projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ef5a6ca
)
[project @ 2002-05-02 09:09:18 by simonmar]
author
simonmar
<unknown>
Thu, 2 May 2002 09:09:18 +0000
(09:09 +0000)
committer
simonmar
<unknown>
Thu, 2 May 2002 09:09:18 +0000
(09:09 +0000)
ptext => ftext
ghc/compiler/nativeGen/MachCode.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/nativeGen/MachCode.lhs
b/ghc/compiler/nativeGen/MachCode.lhs
index
fe8bc67
..
1c00641
100644
(file)
--- 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.