[perl #34416] bug

[via RT]

# New Ticket Created by  [EMAIL PROTECTED] 
# Please include the string:  [perl #34416]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/rt3/Ticket/Display.html?id=34416 >


Hi!

I found two bugs while trying to compile 0.1.2

I solved the first one.

I had to change parrot-0.1.2\config\init\hints\mswin32.pl

this part:
    elsif( $is_mingw ) {
        $libs='' if $libs =~ /\.lib\s/i;
        Configure::Data->set(
            link      => 'gcc',
            libs      => $libs,
            slash     => '/',
            ar        => 'ar',
            o => '.o'
        );

I added     o => '.o'.
Otherwise, perl perl configure.pl fails becuse it says...
test.obj not found....
This forces the configure to look for .o

The second bug is:


I have windows xp, mingw 3.2.3, icu 2.8 v6 , activestate perl 5.6
my method:
set path=%path%;c:\mingw3\bin;D:\extracted\icu\icu\bin
d:
cd D:\extracted\parrot-0.1.2
perl configure.pl --cc=gcc --cxx=gcc --link=gcc --libs="" 
--linkflags=-machine:x86 --ccflags="-O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE 
-DNO_STRICT" --verbose 
--icushared="D:\extracted\icu2\icu\lib\icudata.lib 
D:\extracted\icu2\icu\lib\icuuc.lib" 
--icuheaders="D:\extracted\icu2\icu\include"

then:
mingw32-make

then

I am stuck with the error.
gcc -O1 -MD -DNDEBUG -DWIN32 -D_CONSOLE -DNO_STRICT -g -Wall 
-Wstrict-prototypes
-Wmissing-prototypes -Winline -Wshadow -Wpointer-arith -Wcast-qual 
-Wcast-align
-Wwrite-strings -Waggregate-return -Winline -W -Wno-unused 
-Wsign-compare -Wfor
mat-nonliteral -Wformat-security -Wpacked -Wdisabled-optimization 
-mno-accumulat
e-outgoing-args -Wno-shadow -falign-functions=16 -I./include 
-ID:\extracted\icu2
\icu\include -DHAS_JIT -DI386 -DHAVE_COMPUTED_GOTO -I. -o xx.o -c xx.c
ops/core_ops_switch.c
ops/experimental.ops: In function `switch_core':
ops/experimental.ops:263: unable to find a register to spill in class 
`DIREG'
ops/experimental.ops:263: this is the insn:
(insn 8102 41009 8103 (parallel[
           (set (reg:SI 2 ecx [2389])
               (unspec:SI[
                       (mem:BLK (reg/f:SI 3 ebx [2391]) [0 A8])
                       (reg:QI 1 dl [2393])
                       (const_int 1 [0x1])
                       (reg:SI 2 ecx [2392])
                   ]  0))
           (use (reg:SI 19 dirflag))
           (clobber (reg/f:SI 3 ebx [2391]))
           (clobber (reg:CC 17 flags))
       ] ) 611 {strlenqi_1} (insn_list 8098 (insn_list 8099 (insn_list 
8100 (in
sn_list 8101 (nil)))))
   (expr_list:REG_DEAD (reg:SI 19 dirflag)
       (expr_list:REG_DEAD (reg:SI 2 ecx [2392])
           (expr_list:REG_DEAD (reg:QI 1 dl [2393])
               (expr_list:REG_DEAD (reg/f:SI 3 ebx [2391])
                   (expr_list:REG_UNUSED (reg/f:SI 3 ebx [2391])
                       (expr_list:REG_UNUSED (reg:CC 17 flags)
                           (nil))))))))
ops/experimental.ops:263: confused by earlier errors, bailing out
mingw32-make: *** [ops/core_ops_switch.o] Error 1

Regards

MÃrton
Papp