--- Leopold Toetsch <[EMAIL PROTECTED]> wrote:
> Joshua Gatcomb <[EMAIL PROTECTED]> wrote:
> > ... This is
> > the result of running 'make testj'.
>
> > Failed Test Stat Wstat Total Fail Failed List
> of
> > Failed
> >
>
------------------------------------------------------------------
> > t/op/trans.t 6 1536 19 6 31.58% 9-12
> 17-18
>
> Strange. Can you run the failing tests standalone
> and compare results?
$ parrot arithmetics_26.pasm
ok 1
ok 2
ok 3
ok 4
$ parrot -j arithmetics_26.pasm
ok 1
ok 2
ok 3
ok 4
Illegal instruction (core dumped)
$ for i in 9 10 11 12 17 18
> do
> echo "parrot trans_$i.pasm"
> parrot trans_$i.pasm
> echo "parrot -j trans_$i.pasm"
> parrot -j trans_$i.pasm
> done
parrot trans_9.pasm
ok 1
ok 2
parrot -j trans_9.pasm
ok 1
not ok 2
parrot trans_10.pasm
ok 1
ok 2
parrot -j trans_10.pasm
not ok 1
not ok 2
parrot trans_11.pasm
ok 1
ok 2
parrot -j trans_11.pasm
not ok 1
not ok 2
parrot trans_12.pasm
ok 1
ok 2
parrot -j trans_12.pasm
ok 1
not ok 2
parrot trans_17.pasm
ok 1
ok 2
parrot -j trans_17.pasm
ok 1
not ok 2
parrot trans_18.pasm
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
ok 11
ok 12
ok 13
ok 14
ok 15
ok 16
parrot -j trans_18.pasm
not ok 1
not ok 2
not ok 3
not ok 4
not ok 5
not ok 6
ok 7
ok 8
ok 9
ok 10
not ok 11
not ok 12
ok 13
not ok 14
not ok 15
ok 16
> It would also be great if you can debug JIT directly
> by following the
> hints in:
>
> $ perldoc -F docs/jit.pod
> /debugging
>
> I hope that works for Cygwin too.
I couldn't figure out how to copy/paste from a Cygwin
X window to a Window window, so I did it by hand. Is
this what you mean?
$ gdb parrot
GNU gdb 2003-09-20-cvs (cygwin-special)
Copyright 2003 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General
Public License, and you are
welcome to change it and/or distribute copies of it
under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB. Type "show
warranty" for details.
This GDB was configured as "i686-pc-cygwin"...
(gdb) b runops_jit
Breakpoint 1 at 0x466bf6: file src/interpreter.c, line
548.
(gdb) r -d -j arithmetics_26.pasm
Starting program: /perl/parrot/parrot.exe -d -j
arithmetics_26.pasm
Program received signal SIGSEGV, Segmentation fault.
0x77e75a3d in KERNEL32!IsBadWritePtr () from
/cygdrive/c/WINDOWS/system32/kernel32.dll
(gdb) continue
Continuing.
Program received signal SIGSEGV, Segmentation fault.
0x77e75a3f in KERNEL32!IsBadWritePtr () from
/cygdrive/c/WINDOWS/system32/kernel32.dll
(gdb) continue
Continuing.
Program received signal SIGSEGV, Segmentation fault.
0x77e75a3d in KERNEL32!IsBadWritePtr () from
/cygdrive/c/WINDOWS/system32/kernel32.dll
(gdb) continue
Continuing.
*** Parrot VM: Setting stack top. ***
*** Parrot VM: JIT core ***
*** Parrot VM: Setting up ARGV array in P5. Current
argc: 1 ***
0: arithmetics_26.pasm
Breakpoint 1, runops_jit (interpreter=0x100d1d80,
pc=0x1029d938) at src/interpreter.c:548
548 jit_f jit_code = (jit_f)
D2FPTR(init_jit(interpreter, pc));
(gdb) n
549 (jit_code) (interpreter, pc);
(gdb) add-symbol-file arithmetics_26.o 0
add symbol table from file "arithmetics_26.o" at
.text_addr = 0x0
(y or n) y
Reading symbols from arithmetics_26.o...done.
(gdb) s
jit_func () at arithmetics_26.pasm:1
1 set I0, 130
(gdb) n
2 set I1, -35
(gdb) n
3 gcd I7, I0, I1
(gdb) n
6 gcd I2, I3, I4, I0, I1
(gdb) n
7 mul I5, I3, I0
(gdb) n
8 mul I6, I4, I1
(gdb) n
9 add I5, I5, I6
(gdb) n
10 ne I2, I5, NOK1
(gdb) n
11 eq I2, I7, OK1
(gdb) n
14 OK1: print "ok 1\n"
(gdb) n
ok 1
17 neg I0
(gdb) n
18 gcd I2, I3, I4, I0, I1
(gdb) n
19 mul I5, I3, I0
(gdb) n
20 mul I6, I4, I1
(gdb) n
21 add I5, I5, I6
(gdb) n
22 ne I2, I5, NOK2
(gdb) n
23 eq I2, I7, OK2
(gdb) n
26 OK2: print "ok 2\n"
(gdb) n
ok 2
29 neg I1
(gdb) n
30 gcd I2, I3, I4, I0, I1
(gdb) n
31 mul I5, I3, I0
(gdb) n
32 mul I6, I4, I1
(gdb) n
33 add I5, I5, I6
(gdb) n
34 ne I2, I5, NOK3
(gdb) n
35 eq I2, I7, OK3
(gdb) n
38 OK3: print "ok 3\n"
(gdb) n
ok 3
41 neg I0
(gdb) n
42 gcd I2, I3, I4, I0, I1
(gdb) n
43 mul I5, I3, I0
(gdb) n
44 mul I6, I4, I1
(gdb) n
45 add I5, I5, I6
(gdb) n
46 ne I2, I5, NOK4
(gdb) n
47 eq I2, I7, OK4
(gdb) n
50 OK4: print "ok 4\n"
(gdb) n
ok 4
Program received signal SIGSEGV, Segmentation fault.
0x102b2ec5 in ?? ()
> leo
Cheers
Joshua Gatcomb
a.k.a. Limbic~Region
__________________________________
Do you Yahoo!?
Yahoo! Movies - Buy advance tickets for 'Shrek 2'
http://movies.yahoo.com/showtimes/movie?mid=1808405861
