/[gcl]/gcl/o/cmac.c
ViewVC logotype

Diff of /gcl/o/cmac.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by wfs, Sun May 6 15:59:23 2001 UTC revision 1.3.4.1 by camm, Fri Jun 7 22:14:45 2002 UTC
# Line 3  Line 3 
3  #include "include.h"  #include "include.h"
4  #endif  #endif
5    
6  #include "arith.h"    /*  #include "arith.h"   */
7    
8    
9    
# Line 26  object *gclModulus; Line 26  object *gclModulus;
26    
27    
28    
29  #define MYmake_fixnum(doto,x) \  /*  #define MYmake_fixnum(doto,x) \ */
30    {register int CMPt1; \  /*    {register int CMPt1; \ */
31     doto \  /*     doto \ */
32     ((((CMPt1=(x))+1024)&-2048)==0?small_fixnum(CMPt1):make_fixnum(CMPt1));}  /*     ((((CMPt1=(x))+1024)&-2048)==0?small_fixnum(CMPt1):make_fixnum(CMPt1));} */
33    
34    
35    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26