/[gcl]/gcl/o/read.d
ViewVC logotype

Diff of /gcl/o/read.d

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

revision 1.14.4.1 by camm, Wed Jul 16 02:02:51 2003 UTC revision 1.14.4.1.2.1 by camm, Sat Jul 19 20:41:21 2003 UTC
# Line 2742  read_fasl_vector1(in) Line 2742  read_fasl_vector1(in)
2742  object in;  object in;
2743  {  {
2744          int dimcount, dim;          int dimcount, dim;
2745          object *vsp,vspo;                        VOL object *vsp;
2746            object vspo;
2747          VOL object x;          VOL object x;
2748          int i;          int i;
2749          bool e;          bool e;
# Line 2755  object in; Line 2756  object in;
2756                  old_sharp_eq_context[SHARP_EQ_CONTEXT_SIZE];                  old_sharp_eq_context[SHARP_EQ_CONTEXT_SIZE];
2757          int old_backq_level;          int old_backq_level;
2758    
2759            /* to prevent longjmp clobber */
2760            i=(int)&vsp;
2761          vsp=&vspo;          vsp=&vspo;
2762          old_READtable = READtable;          old_READtable = READtable;
2763          old_READdefault_float_format = READdefault_float_format;          old_READdefault_float_format = READdefault_float_format;
# Line 2829  L: Line 2832  L:
2832                  nlj_active = FALSE;                  nlj_active = FALSE;
2833                  unwind(nlj_fr, nlj_tag);                  unwind(nlj_fr, nlj_tag);
2834          }          }
2835          vs_top = vsp;          vs_top = (object *)vsp;
2836          return(x);          return(x);
2837  }  }

Legend:
Removed from v.1.14.4.1  
changed lines
  Added in v.1.14.4.1.2.1

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