diff options
| author | simonmar <unknown> | 2005-04-07 12:39:56 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-04-07 12:39:56 +0000 |
| commit | 886e3d665236fd3a81afa410aa96f8dc9fd6b6f1 (patch) | |
| tree | f800d5916002729beea6cd0d049a76f38c136420 /ghc/compiler/codeGen | |
| parent | c73d0b413690188231f921f290603bad88d2c710 (diff) | |
| download | haskell-886e3d665236fd3a81afa410aa96f8dc9fd6b6f1.tar.gz | |
[project @ 2005-04-07 12:39:56 by simonmar]
The arg to suspendThread should have a "ptr" hint
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgForeignCall.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/codeGen/CgForeignCall.hs b/ghc/compiler/codeGen/CgForeignCall.hs index 572a3876f5..6c7fc044b0 100644 --- a/ghc/compiler/codeGen/CgForeignCall.hs +++ b/ghc/compiler/codeGen/CgForeignCall.hs @@ -79,7 +79,7 @@ emitForeignCall results (CCall (CCallSpec target cconv safety)) args live id <- newTemp wordRep emitSaveThreadState stmtC (CmmCall (CmmForeignCall suspendThread CCallConv) [(id,NoHint)] - [ (CmmReg (CmmGlobal BaseReg), NoHint) ] + [ (CmmReg (CmmGlobal BaseReg), PtrHint) ] Nothing{-save all; ToDo-} ) stmtC (the_call vols) |