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
uniform vectors.
** The `long_long' C type, deprecated in 1.8, has been removed.
** And of course, the usual collection of bugfixes.
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
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
** 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_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 ("/* These are always defined. */\n");
pf ("typedef %s scm_t_int8;\n", SCM_I_GSC_T_INT8);