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

Diff of /gcl/o/assignment.c

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

revision 1.19 by camm, Thu Oct 6 20:30:08 2005 UTC revision 1.20 by camm, Wed Oct 12 03:12:57 2005 UTC
# Line 318  setf(object place, object form) Line 318  setf(object place, object form)
318          void (*f)();          void (*f)();
319          object args;          object args;
320          object x,result,y;          object x,result,y;
321          int i;          int i,nka=0;
322  /*      extern void siLaset(void); */  /*      extern void siLaset(void); */
323  /*      extern void siLsvset(void); */  /*      extern void siLsvset(void); */
324          extern void siLelt_set();          extern void siLelt_set();
# Line 354  setf(object place, object form) Line 354  setf(object place, object form)
354          if (fun == sLchar) { f = siLchar_set; goto EVAL; }          if (fun == sLchar) { f = siLchar_set; goto EVAL; }
355          if (fun == sLschar) { f = siLchar_set; goto EVAL; }          if (fun == sLschar) { f = siLchar_set; goto EVAL; }
356          if (fun == sLfill_pointer) { f = siLfill_pointer_set; goto EVAL; }          if (fun == sLfill_pointer) { f = siLfill_pointer_set; goto EVAL; }
357          if (fun == sLgethash) { f = siLhash_set; goto EVAL; }          if (fun == sLgethash) { f = siLhash_set; nka=2; goto EVAL; }
358          if (fun == sLcar) {          if (fun == sLcar) {
359                  x = Ieval(Mcar(args));                  x = Ieval(Mcar(args));
360                  result = Ieval(form);                  result = Ieval(form);
# Line 418  EVAL: Line 418  EVAL:
418                  eval_push(args->c.c_car);                  eval_push(args->c.c_car);
419          }          }
420          eval_push(form);          eval_push(form);
421            if (nka && vs_top-vs>nka) {
422              vs[nka]=vs_base[0];
423              vs_top=vs+nka+1;
424            }
425            nka=0;
426          vs_base = vs;          vs_base = vs;
427          (*f)();          (*f)();
428          return vs_base[0];          return vs_base[0];

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

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