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

Diff of /gcl/o/fasdump.c

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

revision 1.4 by camm, Thu Jul 25 22:52:56 2002 UTC revision 1.5 by camm, Mon Jul 29 23:33:41 2002 UTC
# Line 801  write_fasd(object obj) Line 801  write_fasd(object obj)
801       /* if (sizeof(mp_limb_t) != 4) { FEerror("fix for gmp",0);} */       /* if (sizeof(mp_limb_t) != 4) { FEerror("fix for gmp",0);} */
802       PUT4(l);       PUT4(l);
803       while (-- m >=0) {       while (-- m >=0) {
804         if (sizeof(unsigned long)==8)  #if MP_LIMB_BYTES == 8
805           PUT8(*u);           PUT8(*u);
806         else if (sizeof(unsigned long)==4)  #elif MP_LIMB_BYTES == 4
807           PUT4(*u);           PUT4(*u);
808         else  #else
809           FEerror("Fix for gmp",0);  #error Bad MP_LIMB_BYTES
810    #endif
811         u++;         u++;
812       }       }
813       break;}       break;}
# Line 1285  read_fasd1(int i, object *loc) Line 1286  read_fasd1(int i, object *loc)
1286                    
1287  #endif    #endif  
1288          while ( --j >=0) {          while ( --j >=0) {
1289            if (sizeof(unsigned long)==8)  #if MP_LIMB_BYTES == 8
1290              GET8(*u);              GET8(*u);
1291            else if (sizeof(unsigned long)==4)  #elif MP_LIMB_BYTES == 4
1292              GET4(*u);              GET4(*u);
1293            else  #else
1294              FEerror("Bad sizeof(unsigned long)",0);  #error Bad MP_LIMB_BYTES
1295    #endif
1296            u++;            u++;
1297          }          }
1298          *loc=tem; return;}          *loc=tem; return;}

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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