Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Loading…

Update partcl to recent parrot #3

Merged
merged 2 commits into from

2 participants

@Benabik
Collaborator

This fixes the non-memory corruption error in #2.

With this, partcl builds on OS X 10.7. It does, however, fail an astonishing number of tests.

Benabik added some commits
@Benabik Benabik pmc_type now called Parrot_pmc_get_type_str
pmc_type was an old compatability macro removed in Nov 2011 by
dffbd93: Remove very old 'compatibilty macros'.  The new way to say
that is Parrot_pmc_get_type_str.  Longer, but it matches Parrot's
naming conventions.
bdc2fee
@Benabik Benabik Load tcl_group dynpmcs 2696c86
@coke coke merged commit 6f3c072 into partcl:master
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Commits on Jan 25, 2012
  1. @Benabik

    pmc_type now called Parrot_pmc_get_type_str

    Benabik authored
    pmc_type was an old compatability macro removed in Nov 2011 by
    dffbd93: Remove very old 'compatibilty macros'.  The new way to say
    that is Parrot_pmc_get_type_str.  Longer, but it matches Parrot's
    naming conventions.
Commits on Jan 26, 2012
  1. @Benabik

    Load tcl_group dynpmcs

    Benabik authored
This page is out of date. Refresh to see the latest.
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) {
Something went wrong with that request. Please try again.