Author: chromatic
Date: Thu Jun 14 18:40:39 2007
New Revision: 19012
Modified:
trunk/languages/tcl/src/pmc/tcldict.pmc
trunk/languages/tcl/src/pmc/tclfloat.pmc
trunk/languages/tcl/src/pmc/tcllist.pmc
Log:
[Tcl] Replace some EVIL with CASTS.
Of course, there probably *ought* to be a Parrot_runops_fromc_args_rets() which
would remove the need for these casts, but we take one step at a time here.
Modified: trunk/languages/tcl/src/pmc/tcldict.pmc
==============================================================================
--- trunk/languages/tcl/src/pmc/tcldict.pmc (original)
+++ trunk/languages/tcl/src/pmc/tcldict.pmc Thu Jun 14 18:40:39 2007
@@ -109,7 +109,7 @@
STRING* get_string() {
PMC *dictToString, *namespace;
- STRING *_tcl_namespace, *sub, *value;
+ STRING *_tcl_namespace, *sub;
_tcl_namespace = string_from_const_cstring(INTERP, "_tcl", 4);
sub = string_from_const_cstring(INTERP,
"__dictToString",14);
@@ -120,8 +120,7 @@
CONTEXT(INTERP->ctx)->constants =
PMC_sub(dictToString)->seg->const_table->constants;
- value = Parrot_runops_fromc_args(INTERP, dictToString, "SP", SELF);
- return value;
+ return (STRING *)Parrot_runops_fromc_args(INTERP, dictToString, "SP",
SELF);
}
}
Modified: trunk/languages/tcl/src/pmc/tclfloat.pmc
==============================================================================
--- trunk/languages/tcl/src/pmc/tclfloat.pmc (original)
+++ trunk/languages/tcl/src/pmc/tclfloat.pmc Thu Jun 14 18:40:39 2007
@@ -37,7 +37,7 @@
PMC * const hll_ns = VTABLE_get_pmc_keyed_str(INTERP, root_ns, _tcl);
PMC * precision_pmc =
Parrot_find_global_op(INTERP, hll_ns, _precision, NULL);
- INTVAL* precision = VTABLE_get_integer(INTERP, precision_pmc);
+ INTVAL precision = VTABLE_get_integer(INTERP, precision_pmc);
if (precision == 0)
precision = 16; /* RT#40639: hack to approximate right output.*/
Modified: trunk/languages/tcl/src/pmc/tcllist.pmc
==============================================================================
--- trunk/languages/tcl/src/pmc/tcllist.pmc (original)
+++ trunk/languages/tcl/src/pmc/tcllist.pmc Thu Jun 14 18:40:39 2007
@@ -63,7 +63,7 @@
STRING* get_string() {
PMC *listToString, *namespace;
- STRING *_tcl_namespace, *sub, *value;
+ STRING *_tcl_namespace, *sub;
_tcl_namespace = string_from_const_cstring(INTERP, "_tcl", 4);
sub = string_from_const_cstring(INTERP,
"__listToString",14);
@@ -74,8 +74,8 @@
CONTEXT(INTERP->ctx)->constants =
PMC_sub(listToString)->seg->const_table->constants;
- value = Parrot_runops_fromc_args(INTERP, listToString, "SP", SELF);
- return value;
+
+ return (STRING *)Parrot_runops_fromc_args(INTERP, listToString, "SP",
SELF);
}
/*
