diff options
| author | naur@post11.tele.dk <unknown> | 2010-04-03 18:16:56 +0000 |
|---|---|---|
| committer | naur@post11.tele.dk <unknown> | 2010-04-03 18:16:56 +0000 |
| commit | c970ab42e9abaf91c35e167acf1b8fe0e9e61dbd (patch) | |
| tree | 2d2019cd714df7ac4554944c6f4fa471277580a4 | |
| parent | 02408fe887ac085c4617ecbd9cc22c96bec23abe (diff) | |
| download | haskell-c970ab42e9abaf91c35e167acf1b8fe0e9e61dbd.tar.gz | |
Fix error compiling AsmCodeGen.lhs for PPC Mac (mkRtsCodeLabel)
The error messages eliminated are:
> compiler/nativeGen/AsmCodeGen.lhs:875:31:
> Not in scope: `mkRtsCodeLabel'
> compiler/nativeGen/AsmCodeGen.lhs:879:31:
> Not in scope: `mkRtsCodeLabel'
> compiler/nativeGen/AsmCodeGen.lhs:883:31:
> Not in scope: `mkRtsCodeLabel'
| -rw-r--r-- | compiler/nativeGen/AsmCodeGen.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs index 615cc0c7ba..30af913b29 100644 --- a/compiler/nativeGen/AsmCodeGen.lhs +++ b/compiler/nativeGen/AsmCodeGen.lhs @@ -872,15 +872,15 @@ cmmExprConFold referenceKind expr CmmReg (CmmGlobal EagerBlackholeInfo) | not opt_PIC -> cmmExprConFold referenceKind $ - CmmLit (CmmLabel (mkRtsCodeLabel (sLit "__stg_EAGER_BLACKHOLE_INFO"))) + CmmLit (CmmLabel (mkCmmCodeLabel rtsPackageId (fsLit "__stg_EAGER_BLACKHOLE_INFO"))) CmmReg (CmmGlobal GCEnter1) | not opt_PIC -> cmmExprConFold referenceKind $ - CmmLit (CmmLabel (mkRtsCodeLabel (sLit "__stg_gc_enter_1"))) + CmmLit (CmmLabel (mkCmmCodeLabel rtsPackageId (fsLit "__stg_gc_enter_1"))) CmmReg (CmmGlobal GCFun) | not opt_PIC -> cmmExprConFold referenceKind $ - CmmLit (CmmLabel (mkRtsCodeLabel (sLit "__stg_gc_fun"))) + CmmLit (CmmLabel (mkCmmCodeLabel rtsPackageId (fsLit "__stg_gc_fun"))) #endif CmmReg (CmmGlobal mid) |