Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Mark vtables with VTABLE explicitely

  • Loading branch information...
commit 4069e655d7afda78ffeacf29f2627f9b79e8e1d7 1 parent 5c65027
@bacek bacek authored
View
8 src/pmc/tclfloat.pmc
@@ -17,22 +17,22 @@ pmclass TclFloat
maps Float
{
- void class_init() {
+ VTABLE void class_init() {
dynpmc_TclInt = pmc_type(INTERP, CONST_STRING(INTERP, "TclInt"));
dynpmc_TclString = pmc_type(INTERP, CONST_STRING(INTERP, "TclString"));
}
- void set_integer_native(INTVAL value) {
+ VTABLE void set_integer_native(INTVAL value) {
pmc_reuse(INTERP, SELF, dynpmc_TclInt, 0);
SETATTR_Integer_iv(INTERP, SELF, value);
}
- void set_string_native(STRING *value) {
+ VTABLE void set_string_native(STRING *value) {
pmc_reuse(INTERP, SELF, dynpmc_TclString, 0);
SETATTR_String_str_val(INTERP, SELF, Parrot_str_copy(INTERP, value));
}
- STRING* get_string() {
+ VTABLE STRING* get_string() {
UINTVAL buflen;
int check_flag;
STRING *buff;
View
6 src/pmc/tclint.pmc
@@ -18,18 +18,18 @@ pmclass TclInt
maps Integer
{
- void class_init() {
+ VTABLE void class_init() {
dynpmc_TclFloat = pmc_type(INTERP, CONST_STRING(INTERP, "TclFloat"));
dynpmc_TclString = pmc_type(INTERP, CONST_STRING(INTERP, "TclString"));
}
- void set_number_native(FLOATVAL value) {
+ VTABLE void set_number_native(FLOATVAL value) {
pmc_reuse(INTERP, SELF, dynpmc_TclFloat, 0);
SETATTR_Float_fv(INTERP, SELF, value);
}
- void set_string_native(STRING *value) {
+ VTABLE void set_string_native(STRING *value) {
pmc_reuse(INTERP, SELF, dynpmc_TclString, 0);
SETATTR_String_str_val(INTERP, SELF, Parrot_str_copy(INTERP, value));
}
View
6 src/pmc/tclstring.pmc
@@ -19,17 +19,17 @@ pmclass TclString
{
- void class_init() {
+ VTABLE void class_init() {
dynpmc_TclFloat = pmc_type(INTERP, CONST_STRING(INTERP, "TclFloat"));
dynpmc_TclInt = pmc_type(INTERP, CONST_STRING(INTERP, "TclInt"));
}
- void set_number_native(FLOATVAL value) {
+ VTABLE void set_number_native(FLOATVAL value) {
pmc_reuse(INTERP, SELF, dynpmc_TclFloat, 0);
SETATTR_Float_fv(INTERP, SELF, value);
}
- void set_integer_native(INTVAL value) {
+ VTABLE void set_integer_native(INTVAL value) {
pmc_reuse(INTERP, SELF, dynpmc_TclInt, 0);
SETATTR_Integer_iv(INTERP, SELF, value);
}
Please sign in to comment.
Something went wrong with that request. Please try again.