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

* inline.h (scm_double_cell): prevent reordering of statements

Browse source 
with any following code (for GCC 3 strict-aliasing).
	* numbers.c (scm_make_real), num2float.i.c (FLOAT2NUM): removed
	the earlier version of the reordering prevention.
This commit is contained in:
Gary Houston 2002-09-24 22:21:01 +00:00
parent c15030bebf
commit 3553e1d1f0
4 changed files with 30 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/num2float.i.c
View file

@ -31,12 +31,8 @@ NUM2FLOAT (SCM num, unsigned long int pos, const char *s_caller)
SCM
FLOAT2NUM (FTYPE n)
{
SCM z;
z = scm_double_cell (scm_tc16_real, 0, 0, 0);
/*
See scm_make_real().
*/
scm_remember_upto_here_1 (z);
SCM z = scm_double_cell (scm_tc16_real, 0, 0, 0);
SCM_REAL_VALUE (z) = n;
return z;
}