# New Ticket Created by Dan Sugalski
# Please include the string: [perl #33129]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=33129 >
I'm finding that the N registers are getting messed up with some
function calls, though I can't pin down exactly which ones yet.
(Working on that) However, here's a trace of one of the cases where
they do get messed up:
167 set N5, N15 - N5=411.400000, N15=22253.000000
170 set I0, 1 - I0=1,
173 set I1, 0 - I1=0,
176 set I2, 0 - I2=0,
179 set I3, 0 - I3=0,
182 set I4, 1 - I4=0,
185 returncc
# Back in sub '_MAIN'
*** switching to BYTECODE_reports/sorep.imc
# Calling meth '__set_number_native'
# in file '(unknown file)' near line -1
# Calling sub '__set_number_native'
# in file '(unknown file)' near line -1
*** switching to BYTECODE_classes/Money8.imc
303 set N30, N5 - N30=219.000000, N5=-21841.600000
306 interpinfo P30, 16 - P30=PMCNULL,
309 classoffset I30, P30, "Money8" - I30=6,
P30=Object(Money8)=PMC(0x413da718),
313 getattribute P15, P30, I30 - P15=PMCNULL,
P30=Object(Money8)=PMC(0x413da718), I30=6
317 mul N30, N30, 100 - N30=-21841.600000, N30=-21841.600000,
321 floor N30, N30 - N30=-2184160.000000, N30=-2184160.000000
324 set P15, N30 - P15=Integer=PMC(0x413d99f8), N30=-2184160.000000
327 set I0, 1 - I0=1,
330 set I1, 0 - I1=0,
You'll note that N5 is set to 22253 when the returncc's done, but
after the return the value is -21814.6. Looks like something's
stomping the N registers.
--
Dan
--------------------------------------it's like this-------------------
Dan Sugalski even samurai
[EMAIL PROTECTED] have teddy bears and even
teddy bears get drunk
