Branch: Tag:

1995-08-23

1995-08-23 14:12:17 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

foo

Rev: bin/create_testsuite:1.2
Rev: doc/types/mapping:1.2
Rev: lib/simulate.lpc:1.3
Rev: lib/testsuite.lpc:1.2
Rev: src/array.c:1.3
Rev: src/call_out.c:1.3
Rev: src/configure.in:1.6
Rev: src/debug.c:1.2
Rev: src/debug.h:1.2
Rev: src/docode.c:1.3
Rev: src/dynamic_buffer.c:1.2
Rev: src/interpret.c:1.3
Rev: src/las.c:1.2
Rev: src/lpc_types.c:1.2
Rev: src/macros.h:1.3
Rev: src/main.c:1.5
Rev: src/mapping.c:1.3
Rev: src/modules/regexp/regexp.c:1.3
Rev: src/object.c:1.2
Rev: src/opcodes.c:1.5
Rev: src/port.c:1.7
Rev: src/types.h:1.5

18:   #include "lex.h"   #include "builtin_efuns.h"    + #define TRACE_LEN 256   struct svalue evaluator_stack[EVALUATOR_STACK_SIZE];   struct svalue *mark_stack[EVALUATOR_STACK_SIZE];   struct frame *fp; /* frame pointer */
166:    instr=prefix,\    prefix=0,\    instr+=EXTRACT_UCHAR(pc++),\ -  (t_flag>3 ? sprintf(trace_buffer,"- Arg = %ld\n",(long)instr),\ -  write_to_stderr(trace_buffer,strlen(trace_buffer)) : 0),\ +  (t_flag>3 ? sprintf(trace_buffer,"- Arg = %ld\n",(long)instr),write_to_stderr(trace_buffer,strlen(trace_buffer)) : 0),\    instr))      #else
830:    }    UNSETJMP(tmp);    -  +     free_object(new_frame.current_object);    free_program(new_frame.context.prog);   
916: Inside #if defined(DEBUG)
   }    my_strcat(")");    s=simple_free_buf(); +  if(strlen(s) > TRACE_LEN) +  { +  s[TRACE_LEN]=0; +  s[TRACE_LEN-1]='.'; +  s[TRACE_LEN-2]='.'; +  s[TRACE_LEN-2]='.'; +  }    fprintf(stderr,"- %s:%4ld: %s\n",file,(long)linep,s);    free(s);   
1006: Inside #if defined(DEBUG)
   my_strcat("Return: ");    describe_svalue(sp-1,0,0);    s=simple_free_buf(); +  if(strlen(s) > TRACE_LEN) +  { +  s[TRACE_LEN]=0; +  s[TRACE_LEN-1]='.'; +  s[TRACE_LEN-2]='.'; +  s[TRACE_LEN-2]='.'; +  }    fprintf(stderr,"%-*s%s\n",4,"-",s);    free(s);   
1112: Inside #if defined(DEBUG)
   }    my_strcat(")");    st=simple_free_buf(); +  if(strlen(st) > TRACE_LEN) +  { +  st[TRACE_LEN]=0; +  st[TRACE_LEN-1]='.'; +  st[TRACE_LEN-2]='.'; +  st[TRACE_LEN-2]='.'; +  }    fprintf(stderr,"- %s:%4ld: %s\n",file,(long)linep,st);    free(st);   
1149: Inside #if defined(DEBUG)
   my_strcat("Return: ");    describe_svalue(sp-1,0,0);    s=simple_free_buf(); +  if(strlen(s) > TRACE_LEN) +  { +  s[TRACE_LEN]=0; +  s[TRACE_LEN-1]='.'; +  s[TRACE_LEN-2]='.'; +  s[TRACE_LEN-2]='.'; +  }    fprintf(stderr,"%-*s%s\n",4,"-",s);    free(s);