cvsuser 04/04/05 09:12:50
Modified: build_tools ops2c.pl
classes parrotobject.pmc
Log:
2 build fixes
Courtesy of Andy Dougherty <[EMAIL PROTECTED]>
Revision Changes Path
1.73 +1 -2 parrot/build_tools/ops2c.pl
Index: ops2c.pl
===================================================================
RCS file: /cvs/public/parrot/build_tools/ops2c.pl,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -w -r1.72 -r1.73
--- ops2c.pl 4 Apr 2004 23:44:33 -0000 1.72
+++ ops2c.pl 5 Apr 2004 16:12:44 -0000 1.73
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: ops2c.pl,v 1.72 2004/04/04 23:44:33 mikescott Exp $
+# $Id: ops2c.pl,v 1.73 2004/04/05 16:12:44 leo Exp $
=head1 NAME
@@ -100,7 +100,6 @@
use lib 'lib';
use Parrot::OpsFile;
use Parrot::OpLib::core;
-use warnings;
my %arg_dir_mapping = (
'' => 'PARROT_ARGDIR_IGNORED',
1.29 +3 -3 parrot/classes/parrotobject.pmc
Index: parrotobject.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/parrotobject.pmc,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -w -r1.28 -r1.29
--- parrotobject.pmc 5 Apr 2004 09:23:49 -0000 1.28
+++ parrotobject.pmc 5 Apr 2004 16:12:50 -0000 1.29
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: parrotobject.pmc,v 1.28 2004/04/05 09:23:49 leo Exp $
+$Id: parrotobject.pmc,v 1.29 2004/04/05 16:12:50 leo Exp $
=head1 NAME
@@ -145,11 +145,11 @@
}
void set_attr(INTVAL idx, PMC* value) {
- return Parrot_set_attrib_by_num(interpreter, SELF, idx, value);
+ Parrot_set_attrib_by_num(interpreter, SELF, idx, value);
}
void set_attr_str(STRING* idx, PMC* value) {
- return Parrot_set_attrib_by_str(interpreter, SELF, idx, value);
+ Parrot_set_attrib_by_str(interpreter, SELF, idx, value);
}
PMC* get_class() {
