Last active
August 29, 2015 14:00
-
-
Save grondilu/11295465 to your computer and use it in GitHub Desktop.
patch to NativeCall test suite so that the tests pass on my 32bit system
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
diff --git a/t/05-arrays.t b/t/05-arrays.t | |
index ab9797e..a11f8d3 100644 | |
--- a/t/05-arrays.t | |
+++ b/t/05-arrays.t | |
@@ -49,7 +49,7 @@ compile_test_lib('05-arrays'); | |
{ | |
class Struct is repr('CStruct') { | |
- has int $.val; | |
+ has int32 $.val; | |
method set($x) { | |
$!val = $x; | |
diff --git a/t/06-struct.t b/t/06-struct.t | |
index 79f09b9..6e2fc7e 100644 | |
--- a/t/06-struct.t | |
+++ b/t/06-struct.t | |
@@ -8,7 +8,7 @@ plan 30; | |
compile_test_lib('06-struct'); | |
class MyStruct is repr('CStruct') { | |
- has int $.int; | |
+ has int32 $.int; | |
has num $.num; | |
has int8 $.byte; | |
has num32 $.float; | |
@@ -19,7 +19,7 @@ class MyStruct is repr('CStruct') { | |
$!byte = 7; | |
$!num = -3.7e0; | |
$!float = 3.14e0; | |
- my $arr := CArray[int].new(); | |
+ my $arr := CArray[int32].new(); | |
$arr[0] = 1; | |
$arr[1] = 2; | |
$!arr := $arr; | |
@@ -29,16 +29,16 @@ class MyStruct is repr('CStruct') { | |
# Workaround a Rakudo-bug where $!arr := CArray[int].new() won't work if $.arr | |
# is declared as type CArray[int]. | |
class MyStruct2 is repr('CStruct') { | |
- has int $.int; | |
+ has int32 $.int; | |
has num $.num; | |
has int8 $.byte; | |
has num32 $.float; | |
- has CArray[int] $.arr; | |
+ has CArray[int32] $.arr; | |
} | |
class IntStruct is repr('CStruct') { | |
- has int $.first; | |
- has int $.second; | |
+ has int32 $.first; | |
+ has int32 $.second; | |
# Work around struct members not being containerized yet. | |
method init { | |
diff --git a/t/08-callbacks.t b/t/08-callbacks.t | |
index 7990981..001bdd8 100644 | |
--- a/t/08-callbacks.t | |
+++ b/t/08-callbacks.t | |
@@ -8,8 +8,8 @@ plan(9); | |
compile_test_lib('08-callbacks'); | |
class Struct is repr('CStruct') { | |
- has Str $.str; | |
- has int $.ival; | |
+ has Str $.str; | |
+ has int32 $.ival; | |
method init { | |
$!str := 'Tweedledum, tweedledee'; |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment