From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 9 Apr 2001 02:10:18 +0000 (+0000)
Subject: Bad assumption that shortsize == 2.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=95e35ab6821d31c565293fe01da39a7dfe1e0662;p=p5sagit%2Fp5-mst-13.2.git

Bad assumption that shortsize == 2.

p4raw-id: //depot/perl@9647
---

diff --git a/t/lib/xs-typemap.t b/t/lib/xs-typemap.t
index 722904f..1915d9e 100644
--- a/t/lib/xs-typemap.t
+++ b/t/lib/xs-typemap.t
@@ -127,7 +127,11 @@ ok( ! T_BOOL(undef) );
 print "# T_U_SHORT\n";
 
 ok( T_U_SHORT(32000), 32000);
-ok( T_U_SHORT(65536) != 65536); # probably dont want to test edge cases
+if ($Config{shortsize} == 2) {
+  ok( T_U_SHORT(65536) != 65536); # probably dont want to test edge cases
+} else {
+  ok(1); # e.g. Crays have shortsize 4 (T3X) or 8 (CXX and SVX)
+}
 
 # T_U_LONG aka U32