1995-08-23
1995-08-23 14:12:17 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
2a5096e4bc4a407f4feb1fb5e7f458f85ba50073
(36 lines)
(+32/-4)
[
Show
| Annotate
]
Branch: branches/E-12
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);