[BACK]Return to eval.c CVS log [TXT][DIR] Up to [local] / src / usr.bin / m4

Diff for /src/usr.bin/m4/eval.c between version 1.34 and 1.35

version 1.34, 2001/09/18 14:43:22 version 1.35, 2001/09/18 14:55:52
Line 95 
Line 95 
         int argc;          int argc;
         int td;          int td;
 {  {
           ssize_t mark = -1;
   
         expansion_id++;          expansion_id++;
         if (td & RECDEF)          if (td & RECDEF)
                 errx(1, "%s at line %lu: expanding recursive definition for %s",                  errx(1, "%s at line %lu: expanding recursive definition for %s",
                         CURRENT_NAME, CURRENT_LINE, argv[1]);                          CURRENT_NAME, CURRENT_LINE, argv[1]);
           if (traced_macros && is_traced(argv[1]))
                   mark = trace(argv, argc, infile+ilevel);
         if (td == MACRTYPE)          if (td == MACRTYPE)
                 expand_macro(argv, argc);                  expand_macro(argv, argc);
         else          else
                 expand_builtin(argv, argc, td);                  expand_builtin(argv, argc, td);
           if (mark != -1)
                   finish_trace(mark);
 }  }
   
 /*  /*
Line 634 
Line 640 
   
         if (mimic_gnu) {          if (mimic_gnu) {
                 if ((p->type & TYPEMASK) == MACRTYPE)                  if ((p->type & TYPEMASK) == MACRTYPE)
                         fprintf(stderr, "%s:\t%s\n", p->name, p->defn);                          fprintf(traceout, "%s:\t%s\n", p->name, p->defn);
                 else {                  else {
                         real = builtin_realname(p->type);                          real = builtin_realname(p->type);
                         if (real == NULL)                          if (real == NULL)
                                 real = null;                                  real = null;
                         fprintf(stderr, "%s:\t<%s>\n", p->name, real);                          fprintf(traceout, "%s:\t<%s>\n", p->name, real);
                 }                  }
         } else          } else
                 fprintf(stderr, "`%s'\t`%s'\n", p->name, p->defn);                  fprintf(traceout, "`%s'\t`%s'\n", p->name, p->defn);
 }  }
   
 /*  /*
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35