cvsuser 05/04/09 01:58:06
Modified: dynclasses tclarray.pmc tclint.pmc tcllist.pmc tclparser.pmc
Log:
[perl #34893] [PATCH] remove warnings from dynclasses/tcl*.pmc
this patch removes warnings of unreferenced labels and local variables from
dynclasses/tcl*.pmc
Courtesy of Jerry Gay <[EMAIL PROTECTED]>
Revision Changes Path
1.8 +1 -2 parrot/dynclasses/tclarray.pmc
Index: tclarray.pmc
===================================================================
RCS file: /cvs/public/parrot/dynclasses/tclarray.pmc,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- tclarray.pmc 12 Jan 2005 15:01:20 -0000 1.7
+++ tclarray.pmc 9 Apr 2005 08:58:06 -0000 1.8
@@ -642,7 +642,6 @@
STRING* keystr;
PMC* nextkey;
PMC* box;
- PMC* val;
if (!key) return;
keystr = make_hash_key(INTERP, key);
1.8 +2 -2 parrot/dynclasses/tclint.pmc
Index: tclint.pmc
===================================================================
RCS file: /cvs/public/parrot/dynclasses/tclint.pmc,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- tclint.pmc 30 Mar 2005 05:45:28 -0000 1.7
+++ tclint.pmc 9 Apr 2005 08:58:06 -0000 1.8
@@ -232,7 +232,7 @@
void divide_int (INTVAL value, PMC* dest) {
INTVAL pmci, divi;
- FLOATVAL valf, divf;
+ FLOATVAL divf;
pmci = PMC_int_val(SELF);
/* TODO exception */
1.5 +2 -2 parrot/dynclasses/tcllist.pmc
Index: tcllist.pmc
===================================================================
RCS file: /cvs/public/parrot/dynclasses/tcllist.pmc,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- tcllist.pmc 12 Jan 2005 15:01:20 -0000 1.4
+++ tcllist.pmc 9 Apr 2005 08:58:06 -0000 1.5
@@ -153,7 +153,7 @@
STRING* get_string () {
- STRING *res, *s, *vals;
+ STRING *res, *vals;
INTVAL j, n;
PMC *val;
1.9 +7 -8 parrot/dynclasses/tclparser.pmc
Index: tclparser.pmc
===================================================================
RCS file: /cvs/public/parrot/dynclasses/tclparser.pmc,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- tclparser.pmc 30 Mar 2005 07:56:17 -0000 1.8
+++ tclparser.pmc 9 Apr 2005 08:58:06 -0000 1.9
@@ -96,8 +96,7 @@
STRING *buffer = Parrot_PMC_get_string(INTERP, code);
INTVAL preserve_whitespace = Parrot_PMC_get_intval(INTERP, psw);
INTVAL block_interpolation = Parrot_PMC_get_intval(INTERP, bi);
- STRING *Tcl;
- PMC *retval,*word;
+ PMC *word;
INTVAL I0,I1,I2;
STRING *S0, *S1;
PMC *P0,*P1,*P2,*P3,*P4;
@@ -162,7 +161,7 @@
goto end_scope;
}
-space_loop_cont:
+/* space_loop_cont: Unreferenced label commented out */
I0 = string_index(INTERP, buffer, start_word);
if (I0 < 33 && I0 != 10) {
I1 = 1;
@@ -211,7 +210,7 @@
goto end_command;
}
-middle_word_0:
+/* middle_word_0: Unreferenced label commented out */
character = string_index(INTERP, buffer, I0);
if (preserve_whitespace == 1) {
@@ -265,7 +264,7 @@
goto handle_backslash;
}
-middle_continue:
+/* middle_continue: Unreferenced label commented out */
last_character = character;
word_length++;
goto middle_word;
@@ -434,7 +433,7 @@
goto handle_variable_nobrace;
}
-handle_variable_brace:
+/* handle_variable_brace: Unreferenced label commented out */
/* Get the closing brace, but we don't have to have matched pairs here. */
I1 = string_str_index(INTERP, buffer, cb, chunk_start);
if (I1 > buffer_length) {
@@ -618,7 +617,7 @@
Parrot_call_method(INTERP, P1, word, ConcatConst, "vS", S0);
}
-command_save:
+/* command_save: Unreferenced label commented out */
/* Save this as a command (skip the []'s)*/
I0 = chunk_start + 1;
I1 = word_length - 2;
