cvsuser 05/03/06 14:00:34
Modified: config/gen/makefiles parrot_compiler.in
languages/parrot_compiler parrot.pasm
Log:
'cd languages/parrot_compiler && make' failed, because stringifying
Eval PMCs is not implemented. Invoking the compiled Eval PMC works.
Not stringifying the Eval PMC makes 'make languages' complete again.
Revision Changes Path
1.2 +9 -4 parrot/config/gen/makefiles/parrot_compiler.in
Index: parrot_compiler.in
===================================================================
RCS file: /cvs/public/parrot/config/gen/makefiles/parrot_compiler.in,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- parrot_compiler.in 19 Jun 2004 09:33:06 -0000 1.1
+++ parrot_compiler.in 6 Mar 2005 22:00:33 -0000 1.2
@@ -1,11 +1,16 @@
-PERL = ${perl}
-RM_F = ${rm_f}
-PARROT = ../../parrot
+# Copyright: 2001-2004 The Perl Foundation. All Rights Reserved.
+# $Id: parrot_compiler.in,v 1.2 2005/03/06 22:00:33 bernhard Exp $
+
+PERL = ${perl}
+RM_F = ${rm_f}
+PARROT = ../../${test_prog}$(EXE)
all :
$(PARROT) -o parrot.pbc parrot.pasm
$(PARROT) parrot.pbc < sample.pasm > sample.pbc
- $(PARROT) sample.pbc
+# This can be enabled, when dumping Eval PMCs to string works
+# $(PARROT) parrot.pbc < sample.pasm > sample.pbc
+# $(PARROT) sample.pbc
clean :
$(RM_F) core
1.7 +10 -1 parrot/languages/parrot_compiler/parrot.pasm
Index: parrot.pasm
===================================================================
RCS file: /cvs/public/parrot/languages/parrot_compiler/parrot.pasm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- parrot.pasm 12 Aug 2003 07:57:52 -0000 1.6
+++ parrot.pasm 6 Mar 2005 22:00:34 -0000 1.7
@@ -1,5 +1,14 @@
+# Copyright: 2002-2005 The Perl Foundation. All Rights Reserved.
+# $Id: parrot.pasm,v 1.7 2005/03/06 22:00:34 bernhard Exp $
+
+ # Get the input as a string, don't care about buffer overflow yet
read S0, 1000000
+
+ # Assume that the input is PASM and compile it
compreg P1, "PASM"
compile P0, P1, S0
- write P0
+
+ # Dumping the Eval PMC as a string seems to be unimplemented,
+ # so simple invoke it
+ invoke P0
end
