FPICK does not work
Brought to you by:
jsadler
ok> .ver
Ficl version 4.0.31
ok> 1.e0 2.e0 f.s
[float stack has 2 entries, top at 0x00801818]
[0x00801818 0] 2.000000 (0x40000000)
[0x00801814 1] 1.000000 (0x3f800000)
[float stack base at 0x00801814]
ok> 0 fpick f.s
[float stack has 2 entries, top at 0x00801818]
[0x00801818 0] 2.000000 (0x40000000)
[0x00801814 1] 1.000000 (0x3f800000)
[float stack base at 0x00801814]
ok> 1 fpick f.s
[float stack has 2 entries, top at 0x00801818]
[0x00801818 0] 2.000000 (0x40000000)
[0x00801814 1] 1.000000 (0x3f800000)
[float stack base at 0x00801814]
In vm.c
at
---
case ficlInstructionFPick:
...
floatTop[1] = floatTop[- c.i];
---
appending
floatTop++;
to line 2031 seems to solve the problem.