[BACK]Return to alpha.h CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/Attic/alpha.h between versions 1.10 and 1.11

version 1.10, 1997/03/04 17:49:46 version 1.11, 1997/04/05 16:49:20
Line 121  typedef short Int16; Line 121  typedef short Int16;
 #define MAKE_CF(wa,ca)  ({ \  #define MAKE_CF(wa,ca)  ({ \
                              Int32 *_wa=(Int32 *)(wa); \                               Int32 *_wa=(Int32 *)(wa); \
                              Label _ca=(Label)(ca); \                               Label _ca=(Label)(ca); \
                              if (ca==_DOCOL_LABEL)  \                               if (_ca==_DOCOL_LABEL)  \
                                _wa[0]=(((0x1a<<26)|(31<<21)|(9<<16))| \                                 _wa[0]=(((0x1a<<26)|(31<<21)|(9<<16))| \
                                        (((((Cell)_ca)-((Cell)_wa)-4) & 0xffff)>>2)); \                                         (((((Cell)_ca)-((Cell)_wa)-4) & 0xffff)>>2)); \
                              else { \                               else { \
Removed from v.1.10  
changed lines
  Added in v.1.11

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>