cvsuser 03/06/24 16:53:29
Modified: languages/cola README cola.y colac
Log:
Make Cola work with new IMCC flags. Will now produce .pasm and .pbc
Revision Changes Path
1.15 +9 -5 parrot/languages/cola/README
Index: README
===================================================================
RCS file: /cvs/public/parrot/languages/cola/README,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -w -r1.14 -r1.15
--- README 2 Sep 2002 04:07:17 -0000 1.14
+++ README 24 Jun 2003 23:53:29 -0000 1.15
@@ -167,19 +167,23 @@
make
- Build imcc:
+ Building imcc:
- cd ../imcc ; make ; cp imcc ../cola
+ IMCC is built automatically now when you build Parrot.
Usage:
colac examples/mandelbrot.cola
- Then copy "a.pasm" to your Parrot directory, assemble it and run
- as usual. In case you need help there to, try:
+ This will call imcc to generate 2 types of output. a.pasm and a.pbc
+ You can run the .pbc (bytecode) immediately with Parrot:
- assemble.pl a.pasm > a.pbc
parrot a.pbc
+
+ You can also see the Parrot assembly in "a.pasm" which should be compilable
+ with the reference assembler:
+
+ assemble.pl a.pasm > a.pbc
Currently colac is a short Perl pre-processor that includes
classes for any import statements (using System;)
1.18 +2 -2 parrot/languages/cola/cola.y
Index: cola.y
===================================================================
RCS file: /cvs/public/parrot/languages/cola/cola.y,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -w -r1.17 -r1.18
--- cola.y 18 Feb 2003 14:57:46 -0000 1.17
+++ cola.y 24 Jun 2003 23:53:29 -0000 1.18
@@ -1054,8 +1054,8 @@
fflush(stdout);
fprintf(stderr, "%ld lines compiled.\n", line);
fprintf(stderr, "Execing IMCC\n");
- system("../imcc/imcc a.imc -o a.pasm");
- /*system("perl int2pasm.pl a.imc > a.pasm");*/
+ system("../imcc/imcc -o a.pasm a.imc");
+ system("../imcc/imcc -c -o a.pbc a.imc");
return 0;
}
1.5 +0 -1 parrot/languages/cola/colac
Index: colac
===================================================================
RCS file: /cvs/public/parrot/languages/cola/colac,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- colac 21 Mar 2003 08:40:14 -0000 1.4
+++ colac 24 Jun 2003 23:53:29 -0000 1.5
@@ -32,4 +32,3 @@
close(OUT);
system("./colacc $file.colacctmp");
-exec("../imcc/imcc a.imc");
