Fix off-by-one error when constructing a PAP in generic stack apply

alexanderkjeldaas · Apr 8, 2016 · 689c775 · 689c775
1 parent 7aa7bae
commit 689c775
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Gen2/RtsApply.hs b/src/Gen2/RtsApply.hs
@@ -156,7 +156,7 @@ genericStackApply dflags s =
             var p = h$paps[myRegs];
             var dat = [`R1`,(((`arity` >> 8)-myRegs))*256+ar-myAr];
             for(var i=0;i<myRegs;i++) {
-               dat.push(`Stack`[`Sp`-i-1]);
+               dat.push(`Stack`[`Sp`-i-2]);
             }
             `Sp` = `Sp` - myRegs - 2;
             `R1` = `initClosure dflags p dat jCurrentCCS`;