|
1 The guile gh_scm2ulong() and scm_to_ulong() routines should really |
|
2 return an unsigned long otherwise the generation of the getdefs |
|
3 opts.[h,c] files from the opts.def file fails for 32-bit SPARC. |
|
4 |
|
5 This problem has been reported upstream, and the fix is in autogen-5.17.5pre2 |
|
6 |
|
7 --- autogen-5.16.2/agen5/guile-iface.h.orig 2013-05-31 09:59:18.924928189 -0700 |
|
8 +++ autogen-5.16.2/agen5/guile-iface.h 2013-05-31 10:00:51.274085992 -0700 |
|
9 @@ -32,7 +32,7 @@ |
|
10 # define AG_SCM_SYM_P(_s) SCM_SYMBOLP(_s) |
|
11 # define AG_SCM_TO_INT(_i) gh_scm2int(_i) |
|
12 # define AG_SCM_TO_LONG(_v) gh_scm2long(_v) |
|
13 -# define AG_SCM_TO_ULONG(_v) gh_scm2ulong(_v) |
|
14 +# define AG_SCM_TO_ULONG(_v) ((unsigned long)gh_scm2ulong(_v)) |
|
15 # define AG_SCM_VEC_P(_v) SCM_VECTORP(_v) |
|
16 |
|
17 #elif GUILE_VERSION < 200000 |
|
18 @@ -58,7 +58,7 @@ |
|
19 # define AG_SCM_SYM_P(_s) scm_is_symbol(_s) |
|
20 # define AG_SCM_TO_INT(_i) scm_to_int(_i) |
|
21 # define AG_SCM_TO_LONG(_v) scm_to_long(_v) |
|
22 -# define AG_SCM_TO_ULONG(_v) scm_to_ulong(_v) |
|
23 +# define AG_SCM_TO_ULONG(_v) ((unsigned long)scm_to_ulong(_v)) |
|
24 # define AG_SCM_VEC_P(_v) scm_is_vector(_v) |
|
25 |
|
26 #elif GUILE_VERSION < 201000 |
|
27 @@ -84,7 +84,7 @@ |
|
28 # define AG_SCM_SYM_P(_s) scm_is_symbol(_s) |
|
29 # define AG_SCM_TO_INT(_i) scm_to_int(_i) |
|
30 # define AG_SCM_TO_LONG(_v) scm_to_long(_v) |
|
31 -# define AG_SCM_TO_ULONG(_v) scm_to_ulong(_v) |
|
32 +# define AG_SCM_TO_ULONG(_v) ((unsigned long)scm_to_ulong(_v)) |
|
33 # define AG_SCM_VEC_P(_v) scm_is_vector(_v) |
|
34 |
|
35 #else |