/[cvs]/stack/stack.c
ViewVC logotype

Diff of /stack/stack.c

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

revision 1.11 by masse, Tue Jan 8 18:06:19 2002 UTC revision 1.12 by masse, Tue Jan 8 18:58:27 2002 UTC
# Line 329  extern void eq(stackitem** stack_head) Line 329  extern void eq(stackitem** stack_head)
329      return;      return;
330    
331    left= (*stack_head)->content.ptr;    left= (*stack_head)->content.ptr;
332    right= (*stack_head)->next->content.ptr;    swap(stack_head);
333      right= (*stack_head)->content.ptr;
334    result= (left==right);    result= (left==right);
335        
336    toss(stack_head); toss(stack_head);    toss(stack_head); toss(stack_head);
# Line 354  extern void neq(stackitem** stack_head) Line 355  extern void neq(stackitem** stack_head)
355    not(stack_head);    not(stack_head);
356  }  }
357    
358    extern void def(stackitem** stack_head)
359    {
360      stackitem *temp, *value;
361    
362      if(*stack_head==NULL || (*stack_head)->next==NULL
363         || (*stack_head)->type!=ref)
364        return;
365    
366      temp= (*stack_head)->content.ptr;
367      value= (*stack_head)->next;
368      temp->content= value->content;
369      value->content.ptr=NULL;
370      temp->type= value->type;
371    
372      toss(stack_head); toss(stack_head);
373    }
374    
375  extern void quit()  extern void quit()
376  {  {
377    exit(EXIT_SUCCESS);    exit(EXIT_SUCCESS);
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26