Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Add some VTABLE declarations
  • Loading branch information
bschmalhofer committed Mar 22, 2009
1 parent 8aad04a commit b982a0a
Show file tree
Hide file tree
Showing 7 changed files with 9 additions and 9 deletions.
2 changes: 1 addition & 1 deletion src/pmc/eclectusboolean.pmc
Expand Up @@ -36,7 +36,7 @@ Return the string '1' or ''.
=cut

*/
STRING* get_string() {
VTABLE STRING* get_string() {
if (SELF.get_integer())
return Parrot_str_new_constant(INTERP, "#t");
else
Expand Down
2 changes: 1 addition & 1 deletion src/pmc/eclectuscharacter.pmc
Expand Up @@ -26,7 +26,7 @@ pmclass EclectusCharacter
hll Eclectus
maps Integer {

STRING* get_string() {
VTABLE STRING* get_string() {
return string_append(INTERP,
CONST_STRING(INTERP, "#\\"),
string_chr(INTERP, PMC_int_val(SELF)));
Expand Down
4 changes: 2 additions & 2 deletions src/pmc/eclectusemptylist.pmc
Expand Up @@ -26,12 +26,12 @@ pmclass EclectusEmptyList
hll Eclectus
maps Integer {

STRING* get_string() {
VTABLE STRING* get_string() {
return CONST_STRING(INTERP, "()");
}

/* the empty list is not #f, therefore evaluates to true */
INTVAL get_bool() {
VTABLE INTVAL get_bool() {
return 1;
}
}
Expand Down
2 changes: 1 addition & 1 deletion src/pmc/eclectusfixnum.pmc
Expand Up @@ -27,7 +27,7 @@ pmclass EclectusFixnum
maps Integer {

/* all fixnums are not #f, therefore evaluate to true */
INTVAL get_bool() {
VTABLE INTVAL get_bool() {
return 1;
}

Expand Down
4 changes: 2 additions & 2 deletions src/pmc/eclectuspair.pmc
Expand Up @@ -274,12 +274,12 @@ Used to unarchive the Pair.
pair->value = VTABLE_shift_pmc(interp, io);
}

STRING* get_string() {
VTABLE STRING* get_string() {
return CONST_STRING(INTERP, "()");
}

/* a pair is not #f, therefore evaluates to true */
INTVAL get_bool() {
VTABLE INTVAL get_bool() {
return 1;
}
/*
Expand Down
2 changes: 1 addition & 1 deletion src/pmc/eclectusstring.pmc
Expand Up @@ -27,7 +27,7 @@ pmclass EclectusString
maps String {

/* all Strings are not #f, therefore evaluate to true */
INTVAL get_bool() {
VTABLE INTVAL get_bool() {
return 1;
}

Expand Down
2 changes: 1 addition & 1 deletion src/pmc/eclectusvector.pmc
Expand Up @@ -27,7 +27,7 @@ pmclass EclectusVector
maps Array {

/* all Strings are not #f, therefore evaluate to true */
INTVAL get_bool() {
VTABLE INTVAL get_bool() {
return 1;
}

Expand Down

0 comments on commit b982a0a

Please sign in to comment.