# New Ticket Created by Jürgen Bömmels
# Please include the string: [perl #20839]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=20839 >
Hello,
imcc segfaults if you run
languages/imcc/imcc -a t/op/basic_12.pasm
The reason for this is a NULL FixupTable, which the appended Patch
checks.
Now the basic_12 doesn't fails with something like
inter_cs label 'I0' not found
but this is a completly diffrent problem already reported by Steve
Fink in
http://archive.develooper.com/perl6-internals%40perl.org/msg14896.html
Why on earth does imcc think I0 is an integer constant that needs
fixup and not a register.
bye
boe.
-- attachment 1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/50846/38982/dba294/pbc.diff
--- pbc.c.orig Tue Feb 11 11:23:28 2003
+++ pbc.c Tue Feb 11 11:24:26 2003
@@ -208,6 +208,8 @@
struct PackFile_FixupTable *ft = interpreter->code->fixup_table;
opcode_t i;
+ if (!ft) return -1;
+
for (i = 0; i < ft->fixup_count; i++) {
switch (ft->fixups[i]->type) {
case 0:
