cvsuser 04/08/10 09:18:44
Modified: t/pmc nci.t
Log:
Negative numbers would have caught our pointer casting errors on little
endian systems too.
Revision Changes Path
1.45 +5 -5 parrot/t/pmc/nci.t
Index: nci.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/nci.t,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -w -r1.44 -r1.45
--- nci.t 9 Aug 2004 07:42:58 -0000 1.44
+++ nci.t 10 Aug 2004 16:18:44 -0000 1.45
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: nci.t,v 1.44 2004/08/09 07:42:58 leo Exp $
+# $Id: nci.t,v 1.45 2004/08/10 16:18:44 nicholas Exp $
=head1 NAME
@@ -363,8 +363,8 @@
loadlib P1, "libnci"
dlfunc P0, P1, "nci_i4i", "i4i"
new P5, .PerlInt
- set P5, 6
- set I5, 7
+ set P5, -6
+ set I5, -7
invoke
print I5
print "\n"
@@ -377,10 +377,10 @@
.include "datatypes.pasm"
loadlib P1, "libnci"
dlfunc P0, P1, "nci_ii3", "ii3"
- set I5, 6
+ set I5, -6
new P5, .PerlInt
- set P5, 7
+ set P5, -7
set I0, 1
set I1, 1
