mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

Remove the long_long' and ulong_long' types.

Browse source 
* libguile/gen-scmconfig.c (main): Don't emit typedefs for `long_long'
  and `ulong_long'.  This was already deprecated in 1.8 and known to
  cause conflicts with other libraries such as HDF5, as reported by Mark
  Patterson <mpatterson@physics.queensu.ca>
  (http://lists.gnu.org/archive/html/bug-guile/2009-02/msg00003.html).
This commit is contained in:
Ludovic Courtès 2009-07-15 00:32:05 +02:00
parent 19fef497f0
commit ba4c43dc3b
2 changed files with 4 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

4
NEWS
View file

@ -70,6 +70,8 @@ from 8-bit integers to 64-bit floating-point values.
In the next release, we hope to extend this speedup to other kinds of In the next release, we hope to extend this speedup to other kinds of
uniform vectors. uniform vectors.
** The `long_long' C type, deprecated in 1.8, has been removed.
** And of course, the usual collection of bugfixes. ** And of course, the usual collection of bugfixes.
Interested users should see the ChangeLog for more information. Interested users should see the ChangeLog for more information.
@ -593,6 +595,8 @@ This procedure corresponds to Scheme's `module-public-interface'.
Previously they would use the `off_t' type, which is fragile since its Previously they would use the `off_t' type, which is fragile since its
definition depends on the application's value for `_FILE_OFFSET_BITS'. definition depends on the application's value for `_FILE_OFFSET_BITS'.
** The `long_long' C type, deprecated in 1.8, has been removed
* Changes to the distribution * Changes to the distribution
** Guile's license is now LGPLv3+ ** Guile's license is now LGPLv3+

15
libguile/gen-scmconfig.c
View file

@ -279,21 +279,6 @@ main (int argc, char *argv[])
pf ("#define SCM_SIZEOF_LONG_LONG %d\n", SIZEOF_LONG_LONG); pf ("#define SCM_SIZEOF_LONG_LONG %d\n", SIZEOF_LONG_LONG);
pf ("#define SCM_SIZEOF_UNSIGNED_LONG_LONG %d\n", SIZEOF_UNSIGNED_LONG_LONG); pf ("#define SCM_SIZEOF_UNSIGNED_LONG_LONG %d\n", SIZEOF_UNSIGNED_LONG_LONG);
pf("\n");
pf("/* handling for the deprecated long_long and ulong_long types */\n");
pf("/* If anything suitable is available, it'll be defined here. */\n");
pf("#if (SCM_ENABLE_DEPRECATED == 1)\n");
if (SIZEOF_LONG_LONG != 0)
pf ("typedef long long long_long;\n");
else if (SIZEOF___INT64 != 0)
pf ("typedef __int64 long_long;\n");
if (SIZEOF_UNSIGNED_LONG_LONG != 0)
pf ("typedef unsigned long long ulong_long;\n");
else if (SIZEOF_UNSIGNED___INT64 != 0)
pf ("typedef unsigned __int64 ulong_long;\n");
pf("#endif /* SCM_ENABLE_DEPRECATED == 1 */\n");
pf ("\n"); pf ("\n");
pf ("/* These are always defined. */\n"); pf ("/* These are always defined. */\n");
pf ("typedef %s scm_t_int8;\n", SCM_I_GSC_T_INT8); pf ("typedef %s scm_t_int8;\n", SCM_I_GSC_T_INT8);