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

Diff of /gcl/o/usig2.c

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

revision 1.11 by camm, Sat Mar 1 22:37:37 2003 UTC revision 1.11.4.1 by camm, Wed Jul 16 02:02:51 2003 UTC
# Line 253  before_interrupt(struct save_for_interru Line 253  before_interrupt(struct save_for_interru
253   SS1(p->ihs_topVAL,*ihs_top);   SS1(p->ihs_topVAL,*ihs_top);
254   { void **pp = p->save_objects;   { void **pp = p->save_objects;
255  #undef XS  #undef XS
256   /* #define XS(a) *pp++ = (void *) (a); */  #undef XSI
257  #define XS(a) *pp++ =  * (void **) (&a);  #define XS(a) *pp++ = (void *) (a);
258    #define XSI(a) XS(a)
259    /* #define XS(a) *pp++ =  * (void **) (&a);  */
260  #include "usig2_aux.c"  #include "usig2_aux.c"
261     if ((pp - (&(p->save_objects)[0])) >= (sizeof(p->save_objects)/sizeof(void *)))     if ((pp - (&(p->save_objects)[0])) >= (sizeof(p->save_objects)/sizeof(void *)))
262       abort();       abort();
# Line 309  after_interrupt(struct save_for_interrup Line 311  after_interrupt(struct save_for_interrup
311    RS1(p->ihs_topVAL,*ihs_top);    RS1(p->ihs_topVAL,*ihs_top);
312   { void **pp = p->save_objects;   { void **pp = p->save_objects;
313  #undef XS  #undef XS
314    #undef XSI
315    
316   /*  #define XS(a) a = (void *)(*pp++)   /*  #define XS(a) a = (void *)(*pp++)
317       We store back in the location 'a' the value we have saved.       We store back in the location 'a' the value we have saved.
318    */    */
319    
320  #define XS(a) do { void **_p = (void **)(&a); *_p = (void *)(*pp++);}while(0)  /* #define XS(a) do { void **_p = (void **)(&a); *_p = (void *)(*pp++);}while(0) */
321    #define XS(a) a = (void *)(*pp++)
322    #define XSI(a) {union {void *v;long l;}u; u.v=*pp++; a = u.l;}
323  #include "usig2_aux.c"  #include "usig2_aux.c"
324   }   }
325    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.11.4.1

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