Author: mikehh
Date: Sat Jul 31 17:55:52 2010
New Revision: 48240
URL: https://trac.parrot.org/parrot/changeset/48240
Log:
put in TODO for MSWin32 (64 bit) - tested what I could but not on that platform
Modified:
trunk/t/op/64bit.t
Modified: trunk/t/op/64bit.t
==============================================================================
--- trunk/t/op/64bit.t Sat Jul 31 17:42:49 2010 (r48239)
+++ trunk/t/op/64bit.t Sat Jul 31 17:55:52 2010 (r48240)
@@ -36,7 +36,18 @@
goto end
is_64_bit:
- bitops64()
+
+ # setup TODO for platform 'MSWin32'
+ .local string osname
+ osname = config['osname']
+ .local int todo_1
+ todo_1 = 0
+ unless osname == "MSWin32" goto do_test
+ todo_1 = 1
+
+ do_test:
+
+ bitops64(todo_1)
end:
.end
@@ -44,10 +55,22 @@
.sub bitops64
# check bitops for 8-byte ints
+ .param int todo_1
set $I0, 0xffffffffffffffff
+
+ if todo_1 goto do_todo
is( $I0, -1, 'bitops64' )
+ goto test_2
+
+ do_todo:
+ if $I0 == -1 goto todo_pass
+ todo ( 0, 'bitops64', 'not working on MSWin32, amd64' )
+ goto test_2
+ todo_pass:
+ todo ( 1, 'bitops64', 'not working on MSWin32, amd64' )
+ test_2:
set $I1, 0x00000000ffffffff
is( $I1, 4294967295, 'bitops64' )