cvsuser 03/10/25 00:43:56
Modified: . PBC_COMPAT
classes closure.pmc sub.pmc
t/native_pbc number_1.pbc number_2.pbc
Log:
make tests pass again
Revision Changes Path
1.3 +5 -0 parrot/PBC_COMPAT
Index: PBC_COMPAT
===================================================================
RCS file: /cvs/public/parrot/PBC_COMPAT,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -w -r1.2 -r1.3
--- PBC_COMPAT 24 Oct 2003 09:07:54 -0000 1.2
+++ PBC_COMPAT 25 Oct 2003 07:43:46 -0000 1.3
@@ -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
1.9 +2 -1 parrot/classes/closure.pmc
Index: closure.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/closure.pmc,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -w -r1.8 -r1.9
--- closure.pmc 24 Oct 2003 21:33:24 -0000 1.8
+++ closure.pmc 25 Oct 2003 07:43:54 -0000 1.9
@@ -1,7 +1,7 @@
/* Closure.pmc
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: closure.pmc,v 1.8 2003/10/24 21:33:24 dan Exp $
+ * $Id: closure.pmc,v 1.9 2003/10/25 07:43:54 leo Exp $
* Overview:
* These are the vtable functions for the Closure (subroutine) base class.
* This are subroutines which take a context structure.
@@ -21,6 +21,7 @@
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);
}
1.28 +2 -1 parrot/classes/sub.pmc
Index: sub.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/sub.pmc,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -w -r1.27 -r1.28
--- sub.pmc 24 Oct 2003 21:33:25 -0000 1.27
+++ sub.pmc 25 Oct 2003 07:43:54 -0000 1.28
@@ -1,7 +1,7 @@
/* Sub.pmc
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: sub.pmc,v 1.27 2003/10/24 21:33:25 dan Exp $
+ * $Id: sub.pmc,v 1.28 2003/10/25 07:43:54 leo Exp $
* Overview:
* These are the vtable functions for the Sub (subroutine) base class
* Data Structure and Algorithms:
@@ -20,6 +20,7 @@
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);
}
1.13 +3 -3 parrot/t/native_pbc/number_1.pbc
<<Binary file>>
1.13 +3 -3 parrot/t/native_pbc/number_2.pbc
<<Binary file>>
