added EX_SIDEEFFECTS, options['p'] --> ! options['L'], fixed some bugs

This commit is contained in:
ceriel
1987-01-14 09:58:51 +00:00
parent 9fd7fe29a2
commit b559db4ed4
10 changed files with 51 additions and 26 deletions

View File

@@ -201,7 +201,7 @@ begin_proc(name, def) /* to be called when entering a procedure */
lab_count = (label) 1;
return_label = text_label();
return_expr_occurred = 0;
if (options['p']) { /* profiling */
if (! options['L']) { /* profiling */
if (strcmp(last_fn_given, FileName) != 0) {
/* previous function came from other file */
C_df_dlb(file_name_label = data_label());
@@ -479,7 +479,7 @@ code_expr(expr, val, code, tlbl, flbl)
generator. If line number trace is wanted, it generates a
lin instruction. EVAL() is called directly.
*/
if (options['p']) /* profiling */
if (! options['L']) /* profiling */
C_lin((arith)LineNumber);
EVAL(expr, val, code, tlbl, flbl);
}