Browse files

Merge pull request #3 from Benabik/master

Update partcl to recent parrot
  • Loading branch information...
2 parents c4e4441 + 2696c86 commit 6f3c0727de72a19e754c1e511256e34d95fd9c82 @coke coke committed Jan 25, 2012
Showing with 11 additions and 10 deletions.
  1. +1 −0 runtime/tcllib.pir
  2. +4 −4 src/binary.c
  3. +2 −2 src/pmc/tclfloat.pmc
  4. +2 −2 src/pmc/tclint.pmc
  5. +2 −2 src/pmc/tclstring.pmc
View
1 runtime/tcllib.pir
@@ -11,6 +11,7 @@ providing a compreg-compatible method.
.HLL 'parrot'
.loadlib 'tcl_ops'
+.loadlib 'tcl_group'
.loadlib 'bit_ops' # from parrot
.loadlib 'io_ops' # from parrot
.loadlib 'trans_ops' # from parrot
View
8 src/binary.c
@@ -314,10 +314,10 @@ PMC *ParTcl_binary_scan(PARROT_INTERP, STRING *BINSTR, STRING *FORMAT)
/* make sure we've found the type numbers for the PMCs we want to create */
if (!class_TclFloat)
{
- class_TclFloat = pmc_type(interp, string_from_literal(interp, "TclFloat"));
- class_TclInt = pmc_type(interp, string_from_literal(interp, "TclInt"));
- class_TclList = pmc_type(interp, string_from_literal(interp, "TclList"));
- class_TclString = pmc_type(interp, string_from_literal(interp, "TclString"));
+ class_TclFloat = Parrot_pmc_get_type_str(interp, string_from_literal(interp, "TclFloat"));
+ class_TclInt = Parrot_pmc_get_type_str(interp, string_from_literal(interp, "TclInt"));
+ class_TclList = Parrot_pmc_get_type_str(interp, string_from_literal(interp, "TclList"));
+ class_TclString = Parrot_pmc_get_type_str(interp, string_from_literal(interp, "TclString"));
}
values = pmc_new(interp, class_TclList);
View
4 src/pmc/tclfloat.pmc
@@ -18,8 +18,8 @@ pmclass TclFloat
{
VTABLE void class_init() {
- dynpmc_TclInt = pmc_type(INTERP, CONST_STRING(INTERP, "TclInt"));
- dynpmc_TclString = pmc_type(INTERP, CONST_STRING(INTERP, "TclString"));
+ dynpmc_TclInt = Parrot_pmc_get_type_str(INTERP, CONST_STRING(INTERP, "TclInt"));
+ dynpmc_TclString = Parrot_pmc_get_type_str(INTERP, CONST_STRING(INTERP, "TclString"));
}
VTABLE void set_integer_native(INTVAL value) {
View
4 src/pmc/tclint.pmc
@@ -18,8 +18,8 @@ pmclass TclInt
{
VTABLE void class_init() {
- dynpmc_TclFloat = pmc_type(INTERP, CONST_STRING(INTERP, "TclFloat"));
- dynpmc_TclString = pmc_type(INTERP, CONST_STRING(INTERP, "TclString"));
+ dynpmc_TclFloat = Parrot_pmc_get_type_str(INTERP, CONST_STRING(INTERP, "TclFloat"));
+ dynpmc_TclString = Parrot_pmc_get_type_str(INTERP, CONST_STRING(INTERP, "TclString"));
}
VTABLE void set_number_native(FLOATVAL value) {
View
4 src/pmc/tclstring.pmc
@@ -20,8 +20,8 @@ pmclass TclString
VTABLE void class_init() {
- dynpmc_TclFloat = pmc_type(INTERP, CONST_STRING(INTERP, "TclFloat"));
- dynpmc_TclInt = pmc_type(INTERP, CONST_STRING(INTERP, "TclInt"));
+ dynpmc_TclFloat = Parrot_pmc_get_type_str(INTERP, CONST_STRING(INTERP, "TclFloat"));
+ dynpmc_TclInt = Parrot_pmc_get_type_str(INTERP, CONST_STRING(INTERP, "TclInt"));
}
VTABLE void set_number_native(FLOATVAL value) {

0 comments on commit 6f3c072

Please sign in to comment.