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

Diff of /stack/stack.c

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

revision 1.1 by masse, Mon Jan 7 23:09:01 2002 UTC revision 1.2 by teddy, Mon Jan 7 23:13:14 2002 UTC
# Line 147  void print_st(stackitem* stack_head, lon Line 147  void print_st(stackitem* stack_head, lon
147    if(stack_head->next != NULL)    if(stack_head->next != NULL)
148      print_st(stack_head->next, counter+1);      print_st(stack_head->next, counter+1);
149    
150    if(stack_head->type==value)    switch(stack_head->type){
151      case value:
152      printf("%ld: %d\n", counter, (int)stack_head->content.val);      printf("%ld: %d\n", counter, (int)stack_head->content.val);
153    else if(stack_head->type==string)      break;
154      case string:
155      printf("%ld: \"%s\"\n", counter, (char*)stack_head->content.ptr);      printf("%ld: \"%s\"\n", counter, (char*)stack_head->content.ptr);
156    else      break;
157      case ref:
158      case func:
159      printf("%ld: %p\n", counter, stack_head->content.ptr);      printf("%ld: %p\n", counter, stack_head->content.ptr);
160        break;
161      }
162  }  }
163    
164  extern void printstack(stackitem** stack_head)  extern void printstack(stackitem** stack_head)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26