[rt.cpan.org #55660] [PATCH] Partial win64 support for Win32::API

Wed May 05 06:42:21 2010: Request 55660 was acted upon.
Transaction: Correspondence added by ROBINS
       Queue: Win32-API
     Subject: [PATCH] Partial win64 support for Win32::API
   Broken in: (no value)
    Severity: (no value)
       Owner: COSIMO
  Requestors: [email protected]
      Status: open
 Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=55660 >


On Thu Apr 01 15:05:06 2010, COSIMO wrote:
> This is the commit with all the changes.
> 
>   http://github.com/cosimo/perl5-win32-api/
> commit/641b4fefc365e094ab13c6f4d86902eeb71deb77

I have just tested this commit on Strawberry Perl 5.12.0 x64. It fails.
I guess it was not expected to work, but I guess it should be mentioned
anyway.

C:\Users\robin\perl\perl5-win32-api>perl Makefile.PL
Checking if your kit is complete...
Looks good
Writing Makefile for Win32::API::Callback
Writing Makefile for Win32::API

C:\Users\robin\perl\perl5-win32-api>dmake
cp Type.pm blib\lib\Win32/API/Type.pm
cp Callback.pm blib\lib\Win32/API/Callback.pm
cp Test.pm blib\lib\Win32/API/Test.pm
cp Struct.pm blib\lib\Win32/API/Struct.pm
cp API.pm blib\lib\Win32/API.pm
C:\Programs\strawberry-perl\perl\bin\perl.exe
C:\Programs\strawberry-perl\perl\lib\ExtUtils\xsubpp  -typemap
C:\Programs\strawberry-perl\perl\lib\ExtUtils\typemap  Callback.xs >
Callback.xsc && C:\Programs\strawberry-perl\perl\bin\perl.exe
-MExtUtils::Command -e "mv" -- Callback.xsc Callback.c
gcc -c          -s -O2 -DWIN32 -DHAVE_DES_FCRYPT -DWIN64 -DCONSERVATIVE
-DUSE_SITECUSTOMIZE -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS
-fno-strict-aliasing -mms-bitfields -DPERL_MSVCRT_READFIX -s -O2     
-DVERSION=\"0.60_64\"     -DXS_VERSION=\"0.60_64\" 
"-IC:\Programs\strawberry-perl\perl\lib\CORE"   Callback.c
Callback.xs: In function 'CallbackMakeStruct':
Callback.xs:250: warning: cast from pointer to integer of different size
Callback.xs: In function 'CallbackTemplate':
Callback.xs:305: warning: cast to pointer from integer of different size
Callback.xs:313: warning: cast to pointer from integer of different size
Callback.xs: In function 'CallbackCreate':
Callback.xs:581: warning: cast from pointer to integer of different size
Callback.xs:596: warning: cast from pointer to integer of different size
Callback.xs:597: warning: cast from pointer to integer of different size
Callback.xs:637: warning: cast from pointer to integer of different size
Callback.xs:687: warning: cast from pointer to integer of different size
Callback.xs:738: warning: cast from pointer to integer of different size
Callback.xs: In function 'XS_Win32__API__Callback_CallbackCreate':
Callback.xs:868: warning: cast from pointer to integer of different size
Callback.xs: In function 'XS_Win32__API__Callback_PushSelf':
Callback.xs:896: warning: cast from pointer to integer of different size
Running Mkbootstrap for Win32::API::Callback ()
C:\Programs\strawberry-perl\perl\bin\perl.exe -MExtUtils::Command -e
"chmod" -- 644 Callback.bs
C:\Programs\strawberry-perl\perl\bin\perl.exe -MExtUtils::Mksymlists \
     -e "Mksymlists('NAME'=>\"Win32::API::Callback\", 'DLBASE' =>
'Callback', 'DL_FUNCS' => {  }, 'FUNCLIST' => [], 'IMPORTS' => {
}, 'DL_VARS' => []);"
dlltool --def Callback.def --output-exp dll.exp
g++ -o ..\blib\arch\auto\Win32\API\Callback\Callback.dll -Wl,--base-file
-Wl,dll.base -mdll -s -L"C:\Programs\strawberry-perl\perl\lib\CORE"
-L"C:\Programs\strawberry-perl\c\lib" Callback.o
-Wl,--image-base,0x21000000 
C:\Programs\strawberry-perl\perl\lib\CORE\libperl511.a -lmoldname
-lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32
-lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion
-lodbc32 -lodbccp32 -lcomctl32 dll.exp
dlltool --def Callback.def --base-file dll.base --output-exp dll.exp
g++ -o ..\blib\arch\auto\Win32\API\Callback\Callback.dll -mdll -s
-L"C:\Programs\strawberry-perl\perl\lib\CORE"
-L"C:\Programs\strawberry-perl\c\lib" Callback.o
-Wl,--image-base,0x21000000 
C:\Programs\strawberry-perl\perl\lib\CORE\libperl511.a -lmoldname
-lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32
-lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion
-lodbc32 -lodbccp32 -lcomctl32 dll.exp
C:\Programs\strawberry-perl\perl\bin\perl.exe -MExtUtils::Command -e
"chmod" -- 755 ..\blib\arch\auto\Win32\API\Callback\Callback.dll
C:\Programs\strawberry-perl\perl\bin\perl.exe -MExtUtils::Command -e
"cp" -- Callback.bs ..\blib\arch\auto\Win32\API\Callback\Callback.bs
C:\Programs\strawberry-perl\perl\bin\perl.exe -MExtUtils::Command -e
"chmod" -- 644 ..\blib\arch\auto\Win32\API\Callback\Callback.bs
C:\Programs\strawberry-perl\perl\bin\perl.exe
C:\Programs\strawberry-perl\perl\lib\ExtUtils\xsubpp  -typemap
C:\Programs\strawberry-perl\perl\lib\ExtUtils\typemap -typemap typemap 
API.xs > API.xsc && C:\Programs\strawberry-perl\perl\bin\perl.exe
-MExtUtils::Command -e "mv" -- API.xsc API.c
gcc -c          -s -O2 -DWIN32 -DHAVE_DES_FCRYPT -DWIN64 -DCONSERVATIVE
-DUSE_SITECUSTOMIZE -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS
-fno-strict-aliasing -mms-bitfields -DPERL_MSVCRT_READFIX -s -O2     
-DVERSION=\"0.60_64\"     -DXS_VERSION=\"0.60_64\" 
"-IC:\Programs\strawberry-perl\perl\lib\CORE"   API.c
In file included from API.xs:47:
call_x86_64.h: In function 'Call_asm':
call_x86_64.h:53: warning: assignment makes integer from pointer without
a cast
call_x86_64.h:73: warning: assignment makes integer from pointer without
a cast
call_x86_64.h:97: warning: assignment makes pointer from integer without
a cast
API.xs: In function 'XS_Win32__API_GetProcAddress':
API.xs:108: warning: cast from pointer to integer of different size
API.xs: In function 'XS_Win32__API_PointerTo':
API.xs:187: warning: cast from pointer to integer of different size
API.xs: In function 'XS_Win32__API_ReadMemory':
API.xs:204: warning: cast to pointer from integer of different size
Running Mkbootstrap for Win32::API ()
C:\Programs\strawberry-perl\perl\bin\perl.exe -MExtUtils::Command -e
"chmod" -- 644 API.bs
C:\Programs\strawberry-perl\perl\bin\perl.exe -MExtUtils::Mksymlists \
     -e "Mksymlists('NAME'=>\"Win32::API\", 'DLBASE' => 'API',
'DL_FUNCS' => {  }, 'FUNCLIST' => [], 'IMPORTS' => {  }, 'DL_VARS' => []);"
dlltool --def API.def --output-exp dll.exp
g++ -o blib\arch\auto\Win32\API\API.dll -Wl,--base-file -Wl,dll.base
-mdll -s -L"C:\Programs\strawberry-perl\perl\lib\CORE"
-L"C:\Programs\strawberry-perl\c\lib" API.o call_asm_x64_gnu.o
-Wl,--image-base,0x253c0000 
C:\Programs\strawberry-perl\perl\lib\CORE\libperl511.a -lmoldname
-lkernel32 -luser32 -lgdi32 -lwinspool -lcomdlg32 -ladvapi32 -lshell32
-lole32 -loleaut32 -lnetapi32 -luuid -lws2_32 -lmpr -lwinmm -lversion
-lodbc32 -lodbccp32 -lcomctl32 dll.exp
g++: call_asm_x64_gnu.o: No such file or directory
dmake:  Error code 129, while making 'blib\arch\auto\Win32\API\API.dll'