cvsuser 04/11/22 02:53:42
Modified: classes perlint.pmc
Log:
argh fixing the C source doesn't help
Revision Changes Path
1.83 +2 -2 parrot/classes/perlint.pmc
Index: perlint.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/perlint.pmc,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -r1.82 -r1.83
--- perlint.pmc 22 Nov 2004 10:46:41 -0000 1.82
+++ perlint.pmc 22 Nov 2004 10:53:42 -0000 1.83
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: perlint.pmc,v 1.82 2004/11/22 10:46:41 leo Exp $
+$Id: perlint.pmc,v 1.83 2004/11/22 10:53:42 leo Exp $
=head1 NAME
@@ -443,7 +443,7 @@
=cut
*/
- void subtract_int (INTVAL value, PMC* dest) {
+ void subtract_int (INTVAL b, PMC* dest) {
INTVAL a = PMC_int_val(SELF);
INTVAL c = a - b;
if ((c^a) >= 0 || (c^~b) >= 0)
