make new code work in 32 bit Linux.

This commit is contained in:
ubu32
2011-03-07 08:34:20 -08:00
parent bef041a268
commit e98ba46ccb
7 changed files with 45 additions and 27 deletions

View File

@@ -196,7 +196,7 @@ CpFloatUnaligned(CELL *ptr)
#if SIZEOF_DOUBLE == 2*SIZEOF_LONG_INT
inline EXTERN void STD_PROTO (AlignGlobalForDouble, (void));
inline EXTERN void STD_PROTO (AlignGlobalForDouble, ( USES_REGS1 ));
#define DOUBLE_ALIGNED(ADDR) ((CELL)(ADDR) & 0x4)
@@ -229,7 +229,8 @@ inline EXTERN Term MkFloatTerm (Float);
inline EXTERN Term
MkFloatTerm (Float dbl)
{
return (Term) ((AlignGlobalForDouble (), H[0] =
CACHE_REGS
return (Term) ((AlignGlobalForDouble ( PASS_REGS1 ), H[0] =
(CELL) FunctorDouble, *(Float *) (H + 1) = dbl, H[3] =
EndSpecials, H +=
4, AbsAppl (H - 4)));