cvsuser 03/02/06 07:18:35
Modified: config/auto cgoto.pl
config/gen/makefiles imcc.in
lib/Parrot/OpTrans CGP.pm
Log:
CGP - dependencies, enable CGoto in imcc, use inheritance in CGP.pm
Revision Changes Path
1.5 +2 -2 parrot/config/auto/cgoto.pl
Index: cgoto.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/cgoto.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -w -r1.4 -r1.5
--- cgoto.pl 6 Feb 2003 12:41:00 -0000 1.4
+++ cgoto.pl 6 Feb 2003 15:18:24 -0000 1.5
@@ -30,9 +30,9 @@
core_ops_cg$(O): $(GENERAL_H_FILES) core_ops_cg.c
core_ops_cgp$(O): $(GENERAL_H_FILES) core_ops_cgp.c
-core_ops_cg.c $(INC)/oplib/core_ops_cg.h: $(OPS_FILES) ops2c.pl
lib/Parrot/OpsFile.pm lib/Parrot/Op.pm
+core_ops_cg.c $(INC)/oplib/core_ops_cg.h: $(OPS_FILES) ops2c.pl
lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/CGoto.pm
$(PERL) ops2c.pl CGoto $(OPS_FILES)
-core_ops_cgp.c $(INC)/oplib/core_ops_cgp.h: $(OPS_FILES) ops2c.pl
lib/Parrot/OpsFile.pm lib/Parrot/Op.pm
+core_ops_cgp.c $(INC)/oplib/core_ops_cgp.h: $(OPS_FILES) ops2c.pl
lib/Parrot/OpsFile.pm lib/Parrot/Op.pm lib/Parrot/OpTrans/CGP.pm
$(PERL) ops2c.pl CGP $(OPS_FILES)
EOF
cg_o => 'core_ops_cg$(O) core_ops_cgp$(O)',
1.11 +1 -1 parrot/config/gen/makefiles/imcc.in
Index: imcc.in
===================================================================
RCS file: /cvs/public/parrot/config/gen/makefiles/imcc.in,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -w -r1.10 -r1.11
--- imcc.in 21 Jan 2003 10:10:15 -0000 1.10
+++ imcc.in 6 Feb 2003 15:18:29 -0000 1.11
@@ -24,7 +24,7 @@
#Add them in Configure.pl--look for the
#comment 'ADD C COMPILER FLAGS HERE'
-CFLAGS = ${ccflags} ${cc_warn} -I../../include
+CFLAGS = ${ccflags} ${cc_warn} ${cg_flag} -I../../include
C_LIBS = ${libs}
1.2 +1 -15 parrot/lib/Parrot/OpTrans/CGP.pm
Index: CGP.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/OpTrans/CGP.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- CGP.pm 6 Feb 2003 12:41:12 -0000 1.1
+++ CGP.pm 6 Feb 2003 15:18:34 -0000 1.2
@@ -6,7 +6,7 @@
#
# Author: leo
#
-# $Id: CGP.pm,v 1.1 2003/02/06 12:41:12 leo Exp $
+# $Id: CGP.pm,v 1.2 2003/02/06 15:18:34 leo Exp $
#
use strict;
@@ -80,18 +80,4 @@
{
my ($self) = @_;
return "opcode_t* pop_addr =
(opcode_t*)opcode_to_prederef(interpreter,pop_dest(interpreter));\ncur_opcode =
pop_addr;goto *ops_addr[*(pop_addr)]";
-}
-sub expr_address
-{
- my ($self, $addr) = @_;
- return "opcode_to_prederef(interpreter, $addr)";
-}
-sub expr_offset {
- my ($self, $offset) = @_;
- return "CUR_OPCODE + $offset";
-}
-sub expr_pop
-{
- my ($self) = @_;
- return "opcode_to_prederef(interpreter, pop_dest(interpreter))";
}
