projects
/
ir-tcl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug fix: infinite look in ir_oid.
[ir-tcl-moved-to-github.git]
/
explain.c
diff --git
a/explain.c
b/explain.c
index
315b074
..
be59d5f
100644
(file)
--- a/
explain.c
+++ b/
explain.c
@@
-5,7
+5,10
@@
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: explain.c,v $
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: explain.c,v $
- * Revision 1.4 1996-08-22 13:39:31 adam
+ * Revision 1.5 1996-08-23 11:59:47 adam
+ * Bug fix: infinite look in ir_oid.
+ *
+ * Revision 1.4 1996/08/22 13:39:31 adam
* More work on explain.
*
* Revision 1.3 1996/08/21 13:32:50 adam
* More work on explain.
*
* Revision 1.3 1996/08/21 13:32:50 adam
@@
-279,6
+282,7
@@
static int ir_oid (IrExpArg *iea,
sprintf (buf, "%c%d", first, *p);
Tcl_AppendResult (iea->interp, buf, NULL);
first = '.';
sprintf (buf, "%c%d", first, *p);
Tcl_AppendResult (iea->interp, buf, NULL);
first = '.';
+ p++;
}
return ir_match_end (name, iea, argi);
}
}
return ir_match_end (name, iea, argi);
}