cvsuser 04/12/01 01:49:33
Modified: dynclasses pyint.pmc
Log:
make it compile w C89
Revision Changes Path
1.4 +4 -4 parrot/dynclasses/pyint.pmc
Index: pyint.pmc
===================================================================
RCS file: /cvs/public/parrot/dynclasses/pyint.pmc,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- pyint.pmc 30 Nov 2004 21:49:20 -0000 1.3
+++ pyint.pmc 1 Dec 2004 09:49:33 -0000 1.4
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: pyint.pmc,v 1.3 2004/11/30 21:49:20 rubys Exp $
+$Id: pyint.pmc,v 1.4 2004/12/01 09:49:33 leo Exp $
=head1 NAME
@@ -183,21 +183,21 @@
void add (PMC* value, PMC* dest) {
MMD_PyInt: {
- VTABLE_morph(INTERP, dest, dynclass_PyInt);
INTVAL pmci = PMC_int_val(SELF);
INTVAL vali = VTABLE_get_integer(INTERP, value);
+ VTABLE_morph(INTERP, dest, dynclass_PyInt);
VTABLE_set_integer_native(INTERP, dest, pmci + vali);
}
MMD_PyFloat: {
- VTABLE_morph(INTERP, dest, dynclass_PyFloat);
INTVAL pmci = PMC_int_val(SELF);
FLOATVAL valf = VTABLE_get_number(INTERP, value);
+ VTABLE_morph(INTERP, dest, dynclass_PyFloat);
VTABLE_set_number_native(INTERP, dest, pmci + valf);
}
MMD_PyComplex: {
- VTABLE_morph(INTERP, dest, dynclass_PyComplex);
INTVAL pmci = PMC_int_val(SELF);
FLOATVAL valf = VTABLE_get_number_keyed_int(INTERP, value, 0);
+ VTABLE_morph(INTERP, dest, dynclass_PyComplex);
VTABLE_set_number_keyed_int(INTERP, dest, 0, pmci + valf);
valf = VTABLE_get_number_keyed_int(INTERP, value, 1);
VTABLE_set_number_keyed_int(INTERP, dest, 1, valf);
