cvsuser 05/03/27 02:03:12
Modified: dynclasses tclparser.pmc
Log:
Got rid of some more C++ style comments
Revision Changes Path
1.4 +4 -4 parrot/dynclasses/tclparser.pmc
Index: tclparser.pmc
===================================================================
RCS file: /cvs/public/parrot/dynclasses/tclparser.pmc,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- tclparser.pmc 27 Mar 2005 00:00:47 -0000 1.3
+++ tclparser.pmc 27 Mar 2005 10:03:12 -0000 1.4
@@ -1,7 +1,7 @@
/* TclParser.pmc
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: tclparser.pmc,v 1.3 2005/03/27 00:00:47 coke Exp $
+ * $Id: tclparser.pmc,v 1.4 2005/03/27 10:03:12 bernhard Exp $
* Overview:
* A container for methods related to tcl parsing.
* Data Structure and Algorithms:
@@ -486,8 +486,8 @@
}
inner_done:
- //# Once we get here, we could also have a () to deal with..
- //# ()
+ /* Once we get here, we could also have a () to deal with.. */
+ /* () */
I1 = temppos - chunk_start;
S0 = string_substr(INTERP, buffer, chunk_start, I1, NULL, NULL);
start_word = chunk_start + I1;
@@ -500,7 +500,7 @@
if (temppos == -1) {
goto bad_array;
}
- //# $S0($S1)
+ /* $S0($S1) */
start_word++;
I1 = temppos - start_word;
S1 = string_substr(INTERP, buffer, start_word, I1, NULL, NULL);
