| author | Jesse Butler <jesse.butler@oracle.com> |
| Mon, 17 Oct 2016 16:13:44 -0700 | |
| changeset 7119 | 2f82d964b8be |
| parent 1325 | b76c7672b0eb |
| permissions | -rw-r--r-- |
|
1325
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
1 |
The guile gh_scm2ulong() and scm_to_ulong() routines should really |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
2 |
return an unsigned long otherwise the generation of the getdefs |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
3 |
opts.[h,c] files from the opts.def file fails for 32-bit SPARC. |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
4 |
|
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
5 |
This problem has been reported upstream, and the fix is in autogen-5.17.5pre2 |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
6 |
|
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
7 |
--- autogen-5.16.2/agen5/guile-iface.h.orig 2013-05-31 09:59:18.924928189 -0700 |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
8 |
+++ autogen-5.16.2/agen5/guile-iface.h 2013-05-31 10:00:51.274085992 -0700 |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
9 |
@@ -32,7 +32,7 @@ |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
10 |
# define AG_SCM_SYM_P(_s) SCM_SYMBOLP(_s) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
11 |
# define AG_SCM_TO_INT(_i) gh_scm2int(_i) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
12 |
# define AG_SCM_TO_LONG(_v) gh_scm2long(_v) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
13 |
-# define AG_SCM_TO_ULONG(_v) gh_scm2ulong(_v) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
14 |
+# define AG_SCM_TO_ULONG(_v) ((unsigned long)gh_scm2ulong(_v)) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
15 |
# define AG_SCM_VEC_P(_v) SCM_VECTORP(_v) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
16 |
|
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
17 |
#elif GUILE_VERSION < 200000 |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
18 |
@@ -58,7 +58,7 @@ |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
19 |
# define AG_SCM_SYM_P(_s) scm_is_symbol(_s) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
20 |
# define AG_SCM_TO_INT(_i) scm_to_int(_i) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
21 |
# define AG_SCM_TO_LONG(_v) scm_to_long(_v) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
22 |
-# define AG_SCM_TO_ULONG(_v) scm_to_ulong(_v) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
23 |
+# define AG_SCM_TO_ULONG(_v) ((unsigned long)scm_to_ulong(_v)) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
24 |
# define AG_SCM_VEC_P(_v) scm_is_vector(_v) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
25 |
|
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
26 |
#elif GUILE_VERSION < 201000 |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
27 |
@@ -84,7 +84,7 @@ |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
28 |
# define AG_SCM_SYM_P(_s) scm_is_symbol(_s) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
29 |
# define AG_SCM_TO_INT(_i) scm_to_int(_i) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
30 |
# define AG_SCM_TO_LONG(_v) scm_to_long(_v) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
31 |
-# define AG_SCM_TO_ULONG(_v) scm_to_ulong(_v) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
32 |
+# define AG_SCM_TO_ULONG(_v) ((unsigned long)scm_to_ulong(_v)) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
33 |
# define AG_SCM_VEC_P(_v) scm_is_vector(_v) |
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
34 |
|
|
b76c7672b0eb
16880260 Enable autogen autoopts self-tests
Rich Burridge <rich.burridge@oracle.com>
parents:
diff
changeset
|
35 |
#else |