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

Diff of /stack/stack.c

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

revision 1.59 by teddy, Fri Feb 8 04:58:23 2002 UTC revision 1.60 by teddy, Fri Feb 8 05:12:37 2002 UTC
# Line 961  extern void sx_2b(environment *env) { Line 961  extern void sx_2b(environment *env) {
961    push_int(&(env->head), a+b);    push_int(&(env->head), a+b);
962  }  }
963    
964    /* - */
965    extern void sx_2d(environment *env) {
966      int a;
967    
968      if((env->head)==NULL || env->head->next==NULL) {
969        printerr("Too Few Arguments");
970        env->err=1;
971        return;
972      }
973      
974      if(env->head->item->type!=integer
975         || env->head->next->item->type!=integer) {
976        printerr("Bad Argument Type");
977        env->err=2;
978        return;
979      }
980      a=env->head->item->content.val;
981      toss(env);
982      if(env->err) return;
983      env->head->item->content.val -= a;
984    }
985    
986  /* Return copy of a value */  /* Return copy of a value */
987  value *copy_val(value *old_value){  value *copy_val(value *old_value){
988    stackitem *old_item, *new_item, *prev_item;    stackitem *old_item, *new_item, *prev_item;
Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26