Permalink
Browse files

make tests pass again

git-svn-id: https://svn.parrot.org/parrot/trunk@4597 d31e2699-5ff4-0310-a27c-f18f2fbe73fe
  • Loading branch information...
1 parent 858dea1 commit 0826cfc7af5c86cc38847cff03fe794219db99ab Leopold Toetsch committed Oct 25, 2003
View
5 PBC_COMPAT
@@ -16,9 +16,14 @@
# - adding/deleting/renaming a PMC to classes
# - changes in the packfile format itself
# - other core changes that invalidate byte code :)
+#
+# After changing PBC_COMPAT either disable t/native_pbc tests or
+# better, if you have an i386 box at hand, regenerate the PBCs
+# with tools/dev/mk_native_pbc and commit the changes
# please insert tab separated entries at the top of the list
+2003.10.24 dan add bogus opcode
2003.10.24 leo start using this file for fingerprinting
2003.10.22 dan add delegates.pmc
2003.10.21 dan delete instantiate op
View
1 classes/closure.pmc
@@ -21,6 +21,7 @@ pmclass Closure extends Sub {
PMC_sub(SELF) = new_closure(INTERP);
SELF->cache.struct_val = NULL;
PObj_custom_mark_destroy_SETALL(SELF);
+ if (Interp_flags_TEST(interpreter, PARROT_DEBUG_FLAG))
printf("Address of base segment is %p\n", ((struct Parrot_Sub *)PMC_sub(SELF))->seg->base.pf->byte_code);
}
View
1 classes/sub.pmc
@@ -20,6 +20,7 @@ pmclass Sub {
PMC_sub(SELF) = new_sub(INTERP, sizeof(struct Parrot_Sub));
SELF->cache.struct_val = NULL;
PObj_custom_mark_destroy_SETALL(SELF);
+ if (Interp_flags_TEST(interpreter, PARROT_DEBUG_FLAG))
printf("Address of base segment is %p\n", ((struct Parrot_Sub *)PMC_sub(SELF))->seg->base.pf->byte_code);
}
View
BIN t/native_pbc/number_1.pbc
Binary file not shown.
View
BIN t/native_pbc/number_2.pbc
Binary file not shown.

0 comments on commit 0826cfc

Please sign in to comment.