/[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.12 by camm, Sat Jul 24 13:14:29 2004 UTC revision 1.13 by camm, Sat Nov 27 22:19:35 2004 UTC
# Line 382  getd(str) Line 382  getd(str)
382  #define MASK ~(~0 << 8)  #define MASK ~(~0 << 8)
383  #define WRITE_BYTEI(x,i)  putc((((x) >> (i*SIZE_BYTE)) & MASK),fas_stream)  #define WRITE_BYTEI(x,i)  putc((((x) >> (i*SIZE_BYTE)) & MASK),fas_stream)
384    
385    #define PUTFIX(v_) Join(PUT,SIZEOF_LONG)(v_)
386    #define GETFIX(v_) Join(GET,SIZEOF_LONG)(v_)
387    
388  #define PUT8(varx ) \  #define PUT8(varx ) \
389   do{unsigned long var= varx ; \   do{unsigned long var= varx ; \
390       DPRINTF("{8byte:varx= %ld}", var); \       DPRINTF("{8byte:varx= %ld}", var); \
# Line 665  FFN(close_fasd)(object ar) Line 668  FFN(close_fasd)(object ar)
668    
669  static void  static void
670  write_fasd(object obj)  write_fasd(object obj)
671  {  int j,leng;  {  fixnum j,leng;
672    
673     /* hook for writing other data in fasd file */     /* hook for writing other data in fasd file */
674    
# Line 778  write_fasd(object obj) Line 781  write_fasd(object obj)
781         else         else
782           {PUT_OP(d_fixnum);           {PUT_OP(d_fixnum);
783            j=leng;            j=leng;
784            PUT4(j);}            PUTFIX(j);}
785         break;         break;
786       case DP(t_character:)       case DP(t_character:)
787         PUT_OP(d_standard_character);         PUT_OP(d_standard_character);
# Line 1264  read_fasd1(int i, object *loc) Line 1267  read_fasd1(int i, object *loc)
1267           return;}           return;}
1268            
1269        case DP(d_fixnum:)        case DP(d_fixnum:)
1270          {int j;          {fixnum j;
1271           GET4(j);           GETFIX(j);
1272           *loc=make_fixnum(j);                 *loc=make_fixnum(j);      
1273           return;}           return;}
1274        case DP( d_bignum:)        case DP( d_bignum:)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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