clisp-devel

Re: attempt with mingw

[Michael K. <mic...@gm...>]

On 08/10/2011 03:13 PM, Sam Steingold wrote:

> so, what should be included on your system?

I have almost the same setup:
MINGW32_NT-6.0 MICHAEL-PC 1.0.17(0.48/3/2) 2011-04-24 23:39 i686 Msys
GCC 4.5.2

I don't have winternl.h and ntstatus.h. I assume configure checks for
them because they are needed on cygwin.

Only ddk/ntifs.h is needed for NtQueryInformationFile (instead of
ddk/winddk.h and/or ddk/ntddk.h).

With the attached diffs boot/lisp.exe compiles, but not base. (same
error as reported by Angel Popov on cygwin). I tried to investigate but
didn't make any progress... How is this last linker command constructed?
Is it correct to define DLL_EXPORT and PIC?

Thanks & Regards
Michael



configure: ** Regexp (Done)
make[1]: Entering directory `/c/users/michael/repo/clisp/build.test/regexp'
/c/users/michael/repo/clisp/build.test/clisp -K boot  -E UTF-8 -Emisc
1:1 -Epathname 1:1 -norc -q -c
/c/users/michael/repo/clisp/modules/regexp/regexp.lisp -o ./
;; Compiling file C:\users\michael\repo\clisp\modules\regexp\regexp.lisp
...
;; Wrote file C:\Users\Michael\repo\clisp\build.test\regexp\regexp.fas
Folgende Funktionen wurden verwendet, aber nicht definiert:
   REGEXP:REGEXP-COMPILE REGEXP:REGEXP-EXEC
0 Errors, 0 Warnungen
/c/users/michael/repo/clisp/build.test/clisp -K boot  -E UTF-8 -Emisc
1:1 -Epathname 1:1 -norc -q -C
C:\\Users\\Michael\\repo\\clisp\\build.test\\linkkit/modprep
/c/users/michael/repo/clisp/modules/regexp/regexi.c ./
;; MODPREP: "c:/users/michael/repo/clisp/modules/regexp/regexi.c" -->
#P"C:regexi.m.c"
;; MODPREP: reading
"c:/users/michael/repo/clisp/modules/regexp/regexi.c": 5,332 bytes, 141
lines
;; MODPREP: 11 objects, 3 DEFUNs
;; packages: ("REGEXP")
MODPREP: wrote C:regexi.m.c (9,732 bytes)
gcc -I/usr/local/include -I/c/users/michael/repo/clisp/src
-I/c/users/michael/repo/clisp/build.test/gllib
-I/c/users/michael/repo/clisp/src/gllib
-I/c/users/michael/repo/clisp/build.test/gllib
-I/c/users/michael/repo/clisp/src/gllib -g -O2 -W -Wswitch -Wcomment
-Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations
-Wno-sign-compare -Wno-format-nonliteral -O2 -fexpensive-optimizations
-falign-functions=4 -D_WIN32 -DENABLE_UNICODE -DNO_TERMCAP_NCURSES
-DDYNAMIC_MODULES  -DDLL_EXPORT -DPIC
-IC:\\Users\\Michael\\repo\\clisp\\build.test\\linkkit \
		-c regexi.m.c -o regexi.o
ln /c/users/michael/repo/clisp/modules/regexp/preload.lisp .
make[1]: Leaving directory `/c/users/michael/repo/clisp/build.test/regexp'
rm -rf base
MAKE=make CLISP="/c/users/michael/repo/clisp/build.test/clisp -K boot
-E UTF-8 -Emisc 1:1 -Epathname 1:1 -norc" with_dynamic_modules=no
./clisp-link add boot base i18n syscalls regexp || (rm -rf base ; exit 1)
make[1]: Entering directory `/c/users/michael/repo/clisp/build.test/i18n'
make[1]: Nothing to be done for `clisp-module'.
make[1]: Leaving directory `/c/users/michael/repo/clisp/build.test/i18n'
make[1]: Entering directory
`/c/users/michael/repo/clisp/build.test/syscalls'
make[1]: Nothing to be done for `clisp-module'.
make[1]: Leaving directory `/c/users/michael/repo/clisp/build.test/syscalls'
make[1]: Entering directory `/c/users/michael/repo/clisp/build.test/regexp'
make[1]: Nothing to be done for `clisp-module'.
make[1]: Leaving directory `/c/users/michael/repo/clisp/build.test/regexp'
gcc -I/usr/local/include -I/c/users/michael/repo/clisp/src
-I/c/users/michael/repo/clisp/build.test/gllib
-I/c/users/michael/repo/clisp/src/gllib -g -O2 -W -Wswitch -Wcomment
-Wpointer-arith -Wimplicit -Wreturn-type -Wmissing-declarations
-Wno-sign-compare -Wno-format-nonliteral -O2 -fexpensive-optimizations
-falign-functions=4 -D_WIN32 -DENABLE_UNICODE -DNO_TERMCAP_NCURSES
-DDYNAMIC_MODULES -DDLL_EXPORT -DPIC
-I/c/users/michael/repo/clisp/build.test/linkkit -c modules.c
modules.c:16:14: warning: 'module_count' redeclared without dllimport
attribute: previous dllimport ignored
gcc -g -O2 -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit
-Wreturn-type -Wmissing-declarations -Wno-sign-compare
-Wno-format-nonliteral -O2 -fexpensive-optimizations -falign-functions=4
-D_WIN32 -DENABLE_UNICODE -DNO_TERMCAP_NCURSES -DDYNAMIC_MODULES
-DDLL_EXPORT -DPIC -Wl,--export-all-symbols modules.o regexi.o calls.o
bogomips.o -luser32 -lole32 -loleaut32 -luuid gettext.o lisp.a lisp.def
-lintl -luser32 -lole32 -loleaut32 -luuid -liconv -L/usr/local/lib
-lsigsegv libgnu.a -lws2_32 -o lisp.exe
libgnu.a(regex.o): In function `rpl_regerror':
c:\users\michael\repo\clisp\build.test\gllib/../../src/gllib/regcomp.c:559:
undefined reference to `libintl_gettext'
libgnu.a(regex.o): In function `rpl_re_compile_pattern':
c:\users\michael\repo\clisp\build.test\gllib/../../src/gllib/regcomp.c:238:
undefined reference to `libintl_gettext'
collect2: ld returned 1 exit status
./clisp-link: failed in /c/users/michael/repo/clisp/build.test/base
make: *** [base] Error 1

Re: attempt with mingw

[Sam S. <sd...@gn...>]

> * Michael Kappert <zvp...@tz...> [2011-08-17 22:10:51 +0200]:
>
> Is it correct to define DLL_EXPORT and PIC?

I don't think these are relevant.

> libgnu.a(regex.o): In function `rpl_regerror':
> c:\users\michael\repo\clisp\build.test\gllib/../../src/gllib/regcomp.c:559:
> undefined reference to `libintl_gettext'
> libgnu.a(regex.o): In function `rpl_re_compile_pattern':
> c:\users\michael\repo\clisp\build.test\gllib/../../src/gllib/regcomp.c:238:
> undefined reference to `libintl_gettext'
> collect2: ld returned 1 exit status
> ./clisp-link: failed in /c/users/michael/repo/clisp/build.test/base
> make: *** [base] Error 1

please report this to bug...@gn....

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://ffii.org http://memri.org http://openvotingconsortium.org
http://www.memritv.org http://thereligionofpeace.com http://iris.org.il
You won't get smarter by calling me a fool.

Re: attempt with mingw

[Sam S. <sd...@gn...>]

> * Michael Kappert <zvp...@tz...> [2011-08-17 22:10:51 +0200]:
>
> gcc -g -O2 -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit
> -Wreturn-type -Wmissing-declarations -Wno-sign-compare
> -Wno-format-nonliteral -O2 -fexpensive-optimizations -falign-functions=4
> -D_WIN32 -DENABLE_UNICODE -DNO_TERMCAP_NCURSES -DDYNAMIC_MODULES
> -DDLL_EXPORT -DPIC -Wl,--export-all-symbols modules.o regexi.o calls.o
> bogomips.o -luser32 -lole32 -loleaut32 -luuid gettext.o lisp.a lisp.def
> -lintl -luser32 -lole32 -loleaut32 -luuid -liconv -L/usr/local/lib
> -lsigsegv libgnu.a -lws2_32 -o lisp.exe
> libgnu.a(regex.o): In function `rpl_regerror':
> c:\users\michael\repo\clisp\build.test\gllib/../../src/gllib/regcomp.c:559:
> undefined reference to `libintl_gettext'
> libgnu.a(regex.o): In function `rpl_re_compile_pattern':
> c:\users\michael\repo\clisp\build.test\gllib/../../src/gllib/regcomp.c:238:
> undefined reference to `libintl_gettext'
> collect2: ld returned 1 exit status

Bruno, note that there is an "-lintl" in the link command line.
Michael, could you please try the command line above but with libgnu,a
__before__ all the -l* arguments?

Thanks.

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://openvotingconsortium.org http://mideasttruth.com http://jihadwatch.org
http://honestreporting.com http://camera.org
My plan for 'after work' is to retire.

Re: attempt with mingw

[Sam S. <sd...@gn...>]

> * Sam Steingold <fq...@ta...> [2011-08-18 11:48:04 -0400]:
>
>> * Michael Kappert <zvp...@tz...> [2011-08-17 22:10:51 +0200]:
>>
>> gcc -g -O2 -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit
>> -Wreturn-type -Wmissing-declarations -Wno-sign-compare
>> -Wno-format-nonliteral -O2 -fexpensive-optimizations -falign-functions=4
>> -D_WIN32 -DENABLE_UNICODE -DNO_TERMCAP_NCURSES -DDYNAMIC_MODULES
>> -DDLL_EXPORT -DPIC -Wl,--export-all-symbols modules.o regexi.o calls.o
>> bogomips.o -luser32 -lole32 -loleaut32 -luuid gettext.o lisp.a lisp.def
>> -lintl -luser32 -lole32 -loleaut32 -luuid -liconv -L/usr/local/lib
>> -lsigsegv libgnu.a -lws2_32 -o lisp.exe
>> libgnu.a(regex.o): In function `rpl_regerror':
>> c:\users\michael\repo\clisp\build.test\gllib/../../src/gllib/regcomp.c:559:
>> undefined reference to `libintl_gettext'
>> libgnu.a(regex.o): In function `rpl_re_compile_pattern':
>> c:\users\michael\repo\clisp\build.test\gllib/../../src/gllib/regcomp.c:238:
>> undefined reference to `libintl_gettext'
>> collect2: ld returned 1 exit status
>
> Michael, could you please try the command line above but with libgnu,a
> __before__ all the -l* arguments?

you might find this patch helpful in this endeavor, but, if it does not,
please keep trying to reorder the command line by hand.
thanks.

--- a/src/makemake.in	Wed Aug 17 17:33:28 2011 -0400
+++ b/src/makemake.in	Thu Aug 18 11:52:33 2011 -0400
@@ -1508,8 +1508,8 @@ test "${with_dynamic_ffi}" != no && XCFL
 test "${with_dynamic_modules}" != no && XCFLAGS="$XCFLAGS -DDYNAMIC_MODULES"
 
 GLLIB_A=libgnu.a
-# libgnu.a must come _before_ -lws2_32
-LIBS="${LIBS} ${GLLIB_A} ${LIBSOCKET}"
+# libgnu.a must come _before_ -lws2_32 -lintl &c
+LIBS="${GLLIB_A} ${LIBS} ${LIBSOCKET}"
 FILES="${GLLIB_A} "${FILES}
 
 if [ "${with_readline}" = no ]; then


-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://iris.org.il http://openvotingconsortium.org
http://palestinefacts.org http://truepeace.org http://honestreporting.com
XML is like violence. If it doesn't solve the problem, use more.

Re: attempt with mingw

[Michael K. <mic...@gm...>]

On 08/18/2011 05:48 PM, Sam Steingold wrote:
> Michael, could you please try the command line above but with 
> libgnu,a__before__ all the -l* arguments?
>
I already tried that, but invoked it in the wrong directory/wrong 
environment - it complained about missing object files.
Where and how do I need to run the command? (This is why I asked how the 
command is contructed - my idea was to change the corresponding Makefile 
or script).

Michael

Re: attempt with mingw

[Michael K. <mic...@gm...>]

On 08/18/2011 05:55 PM, Sam Steingold wrote:
> you might find this patch helpful in this endeavor, but, if it does not,

This didn't work, unless I did something wrong.

My <build>/Makefile now has
LIBS = -lintl libgnu.a  -luser32 -lole32 -loleaut32 -luuid -liconv 
-L/usr/local/lib -lsigsegv -lws2_32
but the command line still failed (seemed to be unchanged).

Michael

> please keep trying to reorder the command line by hand.
> thanks.
>
> --- a/src/makemake.in	Wed Aug 17 17:33:28 2011 -0400
> +++ b/src/makemake.in	Thu Aug 18 11:52:33 2011 -0400
> @@ -1508,8 +1508,8 @@ test "${with_dynamic_ffi}" != no&&  XCFL
>   test "${with_dynamic_modules}" != no&&  XCFLAGS="$XCFLAGS -DDYNAMIC_MODULES"
>
>   GLLIB_A=libgnu.a
> -# libgnu.a must come _before_ -lws2_32
> -LIBS="${LIBS} ${GLLIB_A} ${LIBSOCKET}"
> +# libgnu.a must come _before_ -lws2_32 -lintl&c
> +LIBS="${GLLIB_A} ${LIBS} ${LIBSOCKET}"
>   FILES="${GLLIB_A} "${FILES}
>
>   if [ "${with_readline}" = no ]; then
>
>

Re: attempt with mingw

[Sam S. <sd...@gn...>]

> * Michael Kappert <zvp...@tz...> [2011-08-18 17:56:47 +0200]:
>
> On 08/18/2011 05:48 PM, Sam Steingold wrote:
>> Michael, could you please try the command line above but with 
>> libgnu,a__before__ all the -l* arguments?
>>
> I already tried that, but invoked it in the wrong directory/wrong 
> environment - it complained about missing object files.
> Where and how do I need to run the command? (This is why I asked how the 
> command is contructed - my idea was to change the corresponding Makefile 
> or script).

it is called from clisp-link.
you need to edit Makefile and remove "rm -rf base" on failure so that
even when clisp-link fails, base/ is preserved.
then you copy/paste the command from the screen and edit it.


-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://ffii.org http://www.memritv.org http://jihadwatch.org
http://mideasttruth.com http://memri.org http://thereligionofpeace.com
There are 10 kinds of people: those who count in binary and those who do not.

Re: attempt with mingw

[Michael K. <mic...@gm...>]

On 08/18/2011 06:44 PM, Sam Steingold wrote:
>> * Michael Kappert<zvp...@tz...>  [2011-08-18 17:56:47 +0200]:
>>
>> On 08/18/2011 05:48 PM, Sam Steingold wrote:
>>> Michael, could you please try the command line above but with
>>> libgnu,a__before__ all the -l* arguments?
>>>
>> I already tried that, but invoked it in the wrong directory/wrong
>> environment - it complained about missing object files.
>> Where and how do I need to run the command? (This is why I asked how the
>> command is contructed - my idea was to change the corresponding Makefile
>> or script).
>
> it is called from clisp-link.
> you need to edit Makefile and remove "rm -rf base" on failure so that
> even when clisp-link fails, base/ is preserved.
> then you copy/paste the command from the screen and edit it.
>
>

Ok!
libgnu.a must come directly after lisp.a. This command works:

gcc -g -O2 -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit 
-Wreturn-type -Wmissing-declarations -Wno-sign-compare 
-Wno-format-nonliteral -O2 -fexpensive-optimizations -falign-functions=4 
-D_WIN32 -DENABLE_UNICODE -DNO_TERMCAP_NCURSES -DDYNAMIC_MODULES 
-DDLL_EXPORT -DPIC -Wl,--export-all-symbols modules.o regexi.o calls.o 
bogomips.o -luser32 -lole32 -loleaut32 -luuid gettext.o lisp.a libgnu.a 
lisp.def -lintl -luser32 -lole32 -loleaut32 -luuid -liconv 
-L/usr/local/lib -lsigsegv -lws2_32 -o lisp.exe

Michael

Re: attempt with mingw

[Sam S. <sd...@gn...>]

> * Michael Kappert <zvp...@tz...> [2011-08-18 19:10:47 +0200]:
>
> On 08/18/2011 05:55 PM, Sam Steingold wrote:
>> you might find this patch helpful in this endeavor, but, if it does not,
>
> This didn't work, unless I did something wrong.

my bad. please try instead this:

--- a/src/makemake.in	Wed Aug 17 17:33:28 2011 -0400
+++ b/src/makemake.in	Thu Aug 18 15:27:01 2011 -0400
@@ -1507,11 +1507,6 @@ test "${with_dynamic_ffi}" != no && XCFL
 
 test "${with_dynamic_modules}" != no && XCFLAGS="$XCFLAGS -DDYNAMIC_MODULES"
 
-GLLIB_A=libgnu.a
-# libgnu.a must come _before_ -lws2_32
-LIBS="${LIBS} ${GLLIB_A} ${LIBSOCKET}"
-FILES="${GLLIB_A} "${FILES}
-
 if [ "${with_readline}" = no ]; then
   # --without-readline was supplied
   XCFLAGS=$XCFLAGS' -DNO_READLINE'
@@ -1537,6 +1532,11 @@ else
   XCL_GETTEXTLIB=$XCL_GETTEXTLIB' locale'
 fi
 
+GLLIB_A=libgnu.a
+# libgnu.a must come _before_ -lws2_32 -lintl &c
+LIBS="${GLLIB_A} ${LIBS} ${LIBSOCKET}"
+FILES="${GLLIB_A} "${FILES}
+
 FILES='lisp.a '$FILES
 
 CPARTS='        spvw spvwtabf spvwtabs spvwtabo'



-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://palestinefacts.org http://camera.org http://www.memritv.org
http://pmw.org.il http://honestreporting.com http://thereligionofpeace.com
A number problem "solved" with floats turns into 1.9999999999999998 problems.

Re: attempt with mingw

[Michael K. <mic...@gm...>]

On 08/18/2011 09:29 PM, Sam Steingold wrote:
>> * Michael Kappert<zvp...@tz...>  [2011-08-18 19:10:47 +0200]:
>>
>> On 08/18/2011 05:55 PM, Sam Steingold wrote:
>>> you might find this patch helpful in this endeavor, but, if it does not,
>>
>> This didn't work, unless I did something wrong.
>
> my bad. please try instead this:

Yes, this works. CLISP built successfully on MinGW.

Michael

Re: attempt with mingw

[Sam S. <sd...@gn...>]

> * Michael Kappert <zvp...@tz...> [2011-08-17 22:10:51 +0200]:
>
> On 08/10/2011 03:13 PM, Sam Steingold wrote:
>
>> so, what should be included on your system?
>
> I have almost the same setup:
> MINGW32_NT-6.0 MICHAEL-PC 1.0.17(0.48/3/2) 2011-04-24 23:39 i686 Msys
> GCC 4.5.2
>
> I don't have winternl.h and ntstatus.h. I assume configure checks for
> them because they are needed on cygwin.
>
> Only ddk/ntifs.h is needed for NtQueryInformationFile (instead of
> ddk/winddk.h and/or ddk/ntddk.h).

my cygwin system has ddk/ntifs.h too but I cannot use it, see
<http://article.gmane.org/gmane.os.cygwin:128137>

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://mideasttruth.com http://www.PetitionOnline.com/tap12009/
http://camera.org http://palestinefacts.org http://memri.org
I may be getting older, but I refuse to grow up!

Re: attempt with mingw

[Michael K. <mic...@gm...>]

On 08/18/2011 11:52 PM, Sam Steingold wrote:
>> * Michael Kappert<zvp...@tz...>  [2011-08-17 22:10:51 +0200]:
>>
>> On 08/10/2011 03:13 PM, Sam Steingold wrote:
>>
>>> so, what should be included on your system?
>>
>> I have almost the same setup:
>> MINGW32_NT-6.0 MICHAEL-PC 1.0.17(0.48/3/2) 2011-04-24 23:39 i686 Msys
>> GCC 4.5.2
>>
>> I don't have winternl.h and ntstatus.h. I assume configure checks for
>> them because they are needed on cygwin.
>>
>> Only ddk/ntifs.h is needed for NtQueryInformationFile (instead of
>> ddk/winddk.h and/or ddk/ntddk.h).
>
> my cygwin system has ddk/ntifs.h too but I cannot use it, see
> <http://article.gmane.org/gmane.os.cygwin:128137>
>

FTR, I don't use cygwin at all, I use MinGW+MSYS.

ddk/ntifs.h is the only place that defines FILE_ACCESS_INFORMATION on my 
installation (current MinGW installed 5 days ago).
This version has
	#include "ntddk.h"
which is correct. It does not include wdm.h.

Looks like you need to include different headers in unix.d (cygwin) and 
win32.d (MinGW) ?

Michael

Re: attempt with mingw

[Sam S. <sd...@gn...>]

> * Michael Kappert <zvp...@tz...> [2011-08-19 00:21:14 +0200]:
>
> FTR, I don't use cygwin at all, I use MinGW+MSYS.
>
> ddk/ntifs.h is the only place that defines FILE_ACCESS_INFORMATION on my 
> installation (current MinGW installed 5 days ago).
> This version has
> 	#include "ntddk.h"
> which is correct. It does not include wdm.h.

where is ntddk? is it in include or include/ddk?

> Looks like you need to include different headers in unix.d (cygwin) and 
> win32.d (MinGW) ?

I build native win32 executables using cygwin/mingw.
it includes win32, not unix (unlike pure cygwin which includes unix)

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://pmw.org.il http://mideasttruth.com http://jihadwatch.org
http://dhimmi.com http://memri.org http://openvotingconsortium.org
Lisp suffers from being twenty or thirty years ahead of time.

Re: attempt with mingw

[Michael K. <mic...@gm...>]

> Von: Sam Steingold <sd...@gn...>
> > * Michael Kappert <zvp...@tz...> [2011-08-19 00:21:14 +0200]:
> > ddk/ntifs.h is the only place that defines FILE_ACCESS_INFORMATION on my
> > installation (current MinGW installed 5 days ago).
> > This version has
> > 	#include "ntddk.h"
> > which is correct. It does not include wdm.h.
> 
> where is ntddk? is it in include or include/ddk?

All these header (ntifs, ntstatus, ntddk, winddk) belong to the the Device Driver Kit and are in include/ddk. Same on my old cygwin and cygwin-1.7.

> I build native win32 executables using cygwin/mingw.
> it includes win32, not unix (unlike pure cygwin which includes unix)

Ok. Are you using cygwin with the MinGW-w64 GCC?

Michael
-- 
Empfehlen Sie GMX DSL Ihren Freunden und Bekannten und wir
belohnen Sie mit bis zu 50,- Euro! https://freundschaftswerbung.gmx.de

Re: attempt with mingw

[Sam S. <sd...@gn...>]

> * Michael Kappert <zvp...@tz...> [2011-08-19 14:00:51 +0200]:
>
>> Von: Sam Steingold <sd...@gn...>
>> > * Michael Kappert <zvp...@tz...> [2011-08-19 00:21:14 +0200]:
>> > ddk/ntifs.h is the only place that defines FILE_ACCESS_INFORMATION on my
>> > installation (current MinGW installed 5 days ago).
>> > This version has
>> > 	#include "ntddk.h"
>> > which is correct. It does not include wdm.h.
>> 
>> where is ntddk? is it in include or include/ddk?
>
> All these header (ntifs, ntstatus, ntddk, winddk) belong to the the
> Device Driver Kit and are in include/ddk. Same on my old cygwin and
> cygwin-1.7.

so how does gcc find them if they are in include/ddk?


>> I build native win32 executables using cygwin/mingw.
>> it includes win32, not unix (unlike pure cygwin which includes unix)
>
> Ok. Are you using cygwin with the MinGW-w64 GCC?

yes.

btw, could you please try the current tip?
what does (socket-connect 0) print for you?
I get 
*** - OS-ERROR(10049) : Cannot assign requested address
even though I should see EADDRNOTAVAIL instead of 10049.
this is because find_name(NULL,"errno_to_symbol_a") fails even though
$ nm base/lisp.exe |grep errno_to_symbol_
00413078 T _errno_to_symbol_a
00412d38 T _errno_to_symbol_w
$
any ideas why?

-- 
Sam Steingold (http://sds.podval.org/) on CentOS release 5.6 (Final) X 11.0.60900031
http://camera.org http://www.memritv.org http://ffii.org
http://mideasttruth.com http://jihadwatch.org http://thereligionofpeace.com
Lisp is a language for doing what you've been told is impossible. - Kent Pitman

MinGW: socket error

[Michael K. <mic...@gm...>]

On 08/19/2011 10:44 PM, Michael Kappert wrote:
> (DEFPARAMETER *SOCKET-1* (SHOW (SOCKET-CONNECT (SOCKET-SERVER-PORT *SERVER*) "lo
> calhost" :TIMEOUT 0)))
> [OS-ERROR]: OS-ERROR(22) : Invalid argument

In the debugger I see

create_client_socket (hostname=0x277cb0 "localhost", port=49566,
     timeout=0x277d38) at ../src/socket.d:886
886     }
(gdb)
C_socket_connect () at ../src/stream.d:14251
14251     if (handle == INVALID_SOCKET) { ANSIC_error(); }
(gdb)

*** - OS-ERROR(NIL) : No error


Michael

Re: MinGW: socket error

[Michael K. <mic...@gm...>]

On 08/19/2011 11:46 PM, Michael Kappert wrote:
> On 08/19/2011 10:44 PM, Michael Kappert wrote:
>> (DEFPARAMETER *SOCKET-1* (SHOW (SOCKET-CONNECT (SOCKET-SERVER-PORT *SERVER*) "lo
>> calhost" :TIMEOUT 0)))
>> [OS-ERROR]: OS-ERROR(22) : Invalid argument
>
> In the debugger I see
>
> create_client_socket (hostname=0x277cb0 "localhost", port=49566,
>       timeout=0x277d38) at ../src/socket.d:886
> 886     }
> (gdb)
> C_socket_connect () at ../src/stream.d:14251
> 14251     if (handle == INVALID_SOCKET) { ANSIC_error(); }
> (gdb)
>
> *** - OS-ERROR(NIL) : No error

I don't understand this.
The problem seems to be caused by ioctl() returning -1 in socket.d:831, 
but subsequently errcode being 0.

gdb won't step into ioctl() --why??
Looking at gllib/ioctl.c, execute_all_ioctl_hooks should be called, but 
the breakpoint in this function was not hit.
gdb tells me primary_ioctl() is not defined ?!

config.h:
/* Define to 1 when the gnulib module ioctl should be tested. */
#define GNULIB_TEST_IOCTL 1
/* Define to 1 if you have the `ioctl' function. */
/* #undef HAVE_IOCTL */
/* Define if WSAStartup is needed. */
#define WINDOWS_SOCKETS 1

Any suggestions?

Michael

Re: MinGW: socket error

[Sam S. <sd...@gn...>]

> * Michael Kappert <zvp...@tz...> [2011-08-19 23:46:58 +0200]:
>
> On 08/19/2011 10:44 PM, Michael Kappert wrote:
>> (DEFPARAMETER *SOCKET-1* (SHOW (SOCKET-CONNECT (SOCKET-SERVER-PORT *SERVER*) "lo
>> calhost" :TIMEOUT 0)))
>> [OS-ERROR]: OS-ERROR(22) : Invalid argument
>
> In the debugger I see
>
> create_client_socket (hostname=0x277cb0 "localhost", port=49566,
>      timeout=0x277d38) at ../src/socket.d:886
> 886     }
> (gdb)
> C_socket_connect () at ../src/stream.d:14251
> 14251     if (handle == INVALID_SOCKET) { ANSIC_error(); }
> (gdb)
>
> *** - OS-ERROR(NIL) : No error

http://lists.gnu.org/archive/html/bug-gnulib/2011-08/msg00103.html


PS. Please tell you MUA to respect the "Mail-Copies-To: never" header.
IOW, please do not CC me the clisp messages; I read them on gmane. thanks.

-- 
Sam Steingold (http://sds.podval.org/) on Ubuntu 11.04 (natty) X 11.0.11001000
http://pmw.org.il http://mideasttruth.com http://honestreporting.com
http://truepeace.org http://ffii.org http://openvotingconsortium.org
.ACMD setaloiv siht gnidaeR

Re: attempt with mingw

[Michael K. <mic...@gm...>]

> Von: Sam Steingold 
> > * Michael Kappert 
> >
> >> Von: Sam Steingold <sd...@gn...>
> >> > * Michael Kappert <zvp...@tz...> [2011-08-19 00:21:14
> +0200]:
> >> > ddk/ntifs.h is the only place that defines FILE_ACCESS_INFORMATION on
> my
> >> > installation (current MinGW installed 5 days ago).
> >> > This version has
> >> > 	#include "ntddk.h"
> >> > which is correct. It does not include wdm.h.
> >> 
> >> where is ntddk? is it in include or include/ddk?
> >
> > All these header (ntifs, ntstatus, ntddk, winddk) belong to the the
> > Device Driver Kit and are in include/ddk. Same on my old cygwin and
> > cygwin-1.7.
> 
> so how does gcc find them if they are in include/ddk?

Because #include "..." searches in the directory containing the current file first. The cygwin ddk headers use #include <...>.

> btw, could you please try the current tip?

I have
$ hg tip
changeset:   15525:aa741a45b817
(make check crashed with socket errors before this. Unfortunately it also crashed my windows session, so I didn't make any progress debugging.)

> what does (socket-connect 0) print for you?
> I get 
> *** - OS-ERROR(10049) : Cannot assign requested address
> even though I should see EADDRNOTAVAIL instead of 10049.

Sorry, not reproduced. I get
[1]> (socket-connect 0)

*** - OS-ERROR(EADDRNOTAVAIL) : Cannot assign requested address
Mögliche Optionen:
ABORT          :R1      Abort main loop
Break 1 [2]>


I re-ran make check but it still hangs:

(MULTIPLE-VALUE-LIST (SOCKET-STATUS *SERVER* 0))
EQUAL-OK: (NIL 0)
(DEFPARAMETER *SOCKET-1* (SHOW (SOCKET-CONNECT (SOCKET-SERVER-PORT *SERVER*) "lo
calhost" :TIMEOUT 0)))
[OS-ERROR]: OS-ERROR(22) : Invalid argument
ERROR!! ERROR should be *SOCKET-1* !
(DEFPARAMETER *STATUS-ARG* (LIST (LIST *SERVER*) (LIST *SOCKET-1* :IO)))
[SIMPLE-UNBOUND-VARIABLE]: LET: variable *SOCKET-1* has no value

ERROR!! ERROR should be *STATUS-ARG* !
(EQ (SOCKET-STATUS *STATUS-ARG* 0) *STATUS-ARG*)
[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *STATUS-ARG* has no value

ERROR!! ERROR should be T !
(CDR (ASSOC *SERVER* *STATUS-ARG*))
[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *STATUS-ARG* has no value

ERROR!! ERROR should be T !
(CDDR (ASSOC *SOCKET-1* *STATUS-ARG*))
[SIMPLE-UNBOUND-VARIABLE]: EVAL: variable *SOCKET-1* has no value

ERROR!! ERROR should be :OUTPUT !
(DEFPARAMETER *SOCKET-2* (SHOW (SOCKET-ACCEPT *SERVER*)))
-> CLISP hangs. 

Michael



-- 
NEU: FreePhone - 0ct/min Handyspartarif mit Geld-zurück-Garantie!		
Jetzt informieren: http://www.gmx.net/de/go/freephone