mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* numbers.h (SCM_SRS, SCM_INUM): Corrected SCM_ASSCM/ASWORD fixes.

Browse source
This commit is contained in:
Mikael Djurfeldt 2000-03-12 16:10:02 +00:00
parent 8dee1541be
commit 7a58e59f51
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
libguile/numbers.h
View file

@ -2,7 +2,7 @@
#ifndef NUMBERSH
#define NUMBERSH
/* Copyright (C) 1995, 1996, 1998 Free Software Foundation, Inc.
/* Copyright (C) 1995, 1996, 1998, 2000 Free Software Foundation, Inc.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
@ -83,15 +83,16 @@
* It is believed to be fixed in Turbo C++ v1.01
*/
#if (-1==(((-1)<<2)+2)>>2) && (__TURBOC__ != 0x295)
# define SCM_SRS(x, y) (SCM_ASWORD (x)>>y)
# define SCM_SRS(x, y) ((x) >> y)
# ifdef __TURBOC__
# define SCM_INUM(x) ((SCM_ASWORD(x) >>1) >>1)
# define SCM_INUM(x) ((SCM_ASWORD (x) >>1) >>1)
# else
# define SCM_INUM(x) SCM_SRS(x, 2)
# define SCM_INUM(x) SCM_SRS (SCM_ASWORD (x), 2)
# endif /* def __TURBOC__ */
#else
# define SCM_SRS(x, y) ((SCM_ASWORD(x) < 0) ? ~( (~SCM_ASWORD(x)) >>y) : (SCM_ASWORD (x)>>y))
# define SCM_INUM(x) SCM_SRS(x, 2)
# define SCM_SRS(x, y)\
((SCM_ASWORD (x) < 0) ? ~( (~SCM_ASWORD (x)) >> y) : (SCM_ASWORD (x) >> y))
# define SCM_INUM(x) SCM_SRS (SCM_ASWORD (x), 2)
#endif /* (-1==(((-1)<<2)+2)>>2) && (__TURBOC__ != 0x295) */