|
|
Author: fperrad
Date: Sat Dec 13 11:46:19 2008
New Revision: 33862
Modified:
trunk/languages/dotnet/t/args.t
trunk/languages/dotnet/t/array.t
trunk/languages/dotnet/t/bitwise.t
trunk/languages/dotnet/t/box.t
trunk/languages/dotnet/t/branch.t
trunk/languages/dotnet/t/calling.t
trunk/languages/dotnet/t/callvirt.t
trunk/languages/dotnet/t/castclass.t
trunk/languages/dotnet/t/compare.t
trunk/languages/dotnet/t/conditional.t
trunk/languages/dotnet/t/constants.t
trunk/languages/dotnet/t/constructor.t
trunk/languages/dotnet/t/conv.t
trunk/languages/dotnet/t/convovf.t
trunk/languages/dotnet/t/enum.t
trunk/languages/dotnet/t/exceptions.t
trunk/languages/dotnet/t/external.t
trunk/languages/dotnet/t/field.t
trunk/languages/dotnet/t/finally.t
trunk/languages/dotnet/t/floatarray.t
trunk/languages/dotnet/t/hierachy.t
trunk/languages/dotnet/t/i8.t
trunk/languages/dotnet/t/inheritance.t
trunk/languages/dotnet/t/initializer.t
trunk/languages/dotnet/t/intarray.t
trunk/languages/dotnet/t/interface.t
trunk/languages/dotnet/t/isinst.t
trunk/languages/dotnet/t/locals.t
trunk/languages/dotnet/t/loop.t
trunk/languages/dotnet/t/math.t
trunk/languages/dotnet/t/mathovf.t
trunk/languages/dotnet/t/mp.t
trunk/languages/dotnet/t/mp_pmc.t
trunk/languages/dotnet/t/null.t
trunk/languages/dotnet/t/overloading.t
trunk/languages/dotnet/t/overloadprimitives.t
trunk/languages/dotnet/t/recursion.t
trunk/languages/dotnet/t/staticfield.t
trunk/languages/dotnet/t/staticmethod.t
trunk/languages/dotnet/t/string.t
trunk/languages/dotnet/t/switch.t
trunk/languages/dotnet/t/unsigned.t
trunk/languages/dotnet/t/valuetypes.t
Log:
[dotnet]
- update PIR syntax (Bareword method name)
Modified: trunk/languages/dotnet/t/args.t
==============================================================================
--- trunk/languages/dotnet/t/args.t (original)
+++ trunk/languages/dotnet/t/args.t Sat Dec 13 11:46:19 2008
@@ -50,7 +50,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.no_args()
+ $I0 = obj."no_args"()
print $I0
print "\n"
.end
@@ -64,11 +64,11 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
$I0 = 42
- $I1 = obj.one_arg($I0)
+ $I1 = obj."one_arg"($I0)
print $I1
print "\n"
$I0 = 7
- $I1 = obj.one_arg($I0)
+ $I1 = obj."one_arg"($I0)
print $I1
print "\n"
.end
@@ -82,7 +82,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.three_args(1,2,3)
+ $I0 = obj."three_args"(1,2,3)
print $I0
print "\n"
.end
@@ -95,7 +95,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.ten_args(1,2,3,4,5,6,7,8,9,10)
+ $I0 = obj."ten_args"(1,2,3,4,5,6,7,8,9,10)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/array.t
==============================================================================
--- trunk/languages/dotnet/t/array.t (original)
+++ trunk/languages/dotnet/t/array.t Sat Dec 13 11:46:19 2008
@@ -67,7 +67,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $P0 = obj.create_array()
+ $P0 = obj."create_array"()
print $P0
print "\n"
.end
@@ -80,8 +80,8 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $P0 = obj.create_array()
- $I1 = obj.array_length($P0)
+ $P0 = obj."create_array"()
+ $I1 = obj."array_length"($P0)
print $I1
print "\n"
.end
@@ -94,7 +94,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.create_and_length()
+ $I0 = obj."create_and_length"()
print $I0
print "\n"
.end
@@ -107,7 +107,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.loadstore_test()
+ $I0 = obj."loadstore_test"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/bitwise.t
==============================================================================
--- trunk/languages/dotnet/t/bitwise.t (original)
+++ trunk/languages/dotnet/t/bitwise.t Sat Dec 13 11:46:19 2008
@@ -59,7 +59,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.and(65, 1088)
+ $I0 = obj."and"(65, 1088)
print $I0
print "\n"
.end
@@ -72,7 +72,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.or(65, 1024)
+ $I0 = obj."or"(65, 1024)
print $I0
print "\n"
.end
@@ -85,7 +85,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.xor(0xF0, 0x77)
+ $I0 = obj."xor"(0xF0, 0x77)
print $I0
print "\n"
.end
@@ -98,7 +98,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.not(0xFFFFFFF0)
+ $I0 = obj."not"(0xFFFFFFF0)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/box.t
==============================================================================
--- trunk/languages/dotnet/t/box.t (original)
+++ trunk/languages/dotnet/t/box.t Sat Dec 13 11:46:19 2008
@@ -58,7 +58,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.box_1()
+ $I0 = obj."box_1"()
print $I0
print "\n"
.end
@@ -71,7 +71,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.box_2()
+ $I0 = obj."box_2"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/branch.t
==============================================================================
--- trunk/languages/dotnet/t/branch.t (original)
+++ trunk/languages/dotnet/t/branch.t Sat Dec 13 11:46:19 2008
@@ -47,7 +47,7 @@
return 1;
else
return 0;
- }
+ }
}
}
CSHARP
@@ -61,19 +61,19 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.lt(5,7)
+ $I0 = obj."lt"(5,7)
print $I0
print "\n"
- $I0 = obj.lt(400,8)
+ $I0 = obj."lt"(400,8)
print $I0
print "\n"
- $I0 = obj.lt(5,-7)
+ $I0 = obj."lt"(5,-7)
print $I0
print "\n"
- $I0 = obj.lt(-400,8123)
+ $I0 = obj."lt"(-400,8123)
print $I0
print "\n"
- $I0 = obj.lt(4,4)
+ $I0 = obj."lt"(4,4)
print $I0
print "\n"
.end
@@ -90,19 +90,19 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.le(5,7)
+ $I0 = obj."le"(5,7)
print $I0
print "\n"
- $I0 = obj.le(400,8)
+ $I0 = obj."le"(400,8)
print $I0
print "\n"
- $I0 = obj.le(5,-7)
+ $I0 = obj."le"(5,-7)
print $I0
print "\n"
- $I0 = obj.le(-400,8123)
+ $I0 = obj."le"(-400,8123)
print $I0
print "\n"
- $I0 = obj.le(4,4)
+ $I0 = obj."le"(4,4)
print $I0
print "\n"
.end
@@ -119,19 +119,19 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.gt(5,7)
+ $I0 = obj."gt"(5,7)
print $I0
print "\n"
- $I0 = obj.gt(400,8)
+ $I0 = obj."gt"(400,8)
print $I0
print "\n"
- $I0 = obj.gt(5,-7)
+ $I0 = obj."gt"(5,-7)
print $I0
print "\n"
- $I0 = obj.gt(-400,8123)
+ $I0 = obj."gt"(-400,8123)
print $I0
print "\n"
- $I0 = obj.gt(4,4)
+ $I0 = obj."gt"(4,4)
print $I0
print "\n"
.end
@@ -148,19 +148,19 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.ge(5,7)
+ $I0 = obj."ge"(5,7)
print $I0
print "\n"
- $I0 = obj.ge(400,8)
+ $I0 = obj."ge"(400,8)
print $I0
print "\n"
- $I0 = obj.ge(5,-7)
+ $I0 = obj."ge"(5,-7)
print $I0
print "\n"
- $I0 = obj.ge(-400,8123)
+ $I0 = obj."ge"(-400,8123)
print $I0
print "\n"
- $I0 = obj.ge(4,4)
+ $I0 = obj."ge"(4,4)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/calling.t
==============================================================================
--- trunk/languages/dotnet/t/calling.t (original)
+++ trunk/languages/dotnet/t/calling.t Sat Dec 13 11:46:19 2008
@@ -71,7 +71,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.call_no_args(29)
+ $I0 = obj."call_no_args"(29)
print $I0
print "\n"
.end
@@ -84,7 +84,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.call_one_arg()
+ $I0 = obj."call_one_arg"()
print $I0
print "\n"
.end
@@ -97,7 +97,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.call_many_args(2, 3)
+ $I0 = obj."call_many_args"(2, 3)
print $I0
print "\n"
.end
@@ -110,7 +110,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.call_void()
+ $I0 = obj."call_void"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/callvirt.t
==============================================================================
--- trunk/languages/dotnet/t/callvirt.t (original)
+++ trunk/languages/dotnet/t/callvirt.t Sat Dec 13 11:46:19 2008
@@ -53,7 +53,7 @@
load_bytecode "t.pbc"
obj1 = new [ "Testing" ; "Test" ]
obj2 = new [ "Testing" ; "mummy" ]
- $I0 = obj1.test_call(obj2)
+ $I0 = obj1."test_call"(obj2)
print $I0
print "\n"
.end
@@ -67,7 +67,7 @@
load_bytecode "t.pbc"
obj1 = new [ "Testing" ; "Test" ]
obj2 = new [ "Testing" ; "baby" ]
- $I0 = obj1.test_call(obj2)
+ $I0 = obj1."test_call"(obj2)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/castclass.t
==============================================================================
--- trunk/languages/dotnet/t/castclass.t (original)
+++ trunk/languages/dotnet/t/castclass.t Sat Dec 13 11:46:19 2008
@@ -56,7 +56,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.pos()
+ $I0 = obj."pos"()
print $I0
print "\n"
.end
@@ -70,7 +70,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh caught
- $I0 = obj.neg()
+ $I0 = obj."neg"()
print "not "
caught:
print "ok\n"
Modified: trunk/languages/dotnet/t/compare.t
==============================================================================
--- trunk/languages/dotnet/t/compare.t (original)
+++ trunk/languages/dotnet/t/compare.t Sat Dec 13 11:46:19 2008
@@ -60,16 +60,16 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.is_same(0, 0)
+ $I0 = obj."is_same"(0, 0)
print $I0
print "\n"
- $I0 = obj.is_same(0, 1)
+ $I0 = obj."is_same"(0, 1)
print $I0
print "\n"
- $I0 = obj.is_same(1, 0)
+ $I0 = obj."is_same"(1, 0)
print $I0
print "\n"
- $I0 = obj.is_same(42, 42)
+ $I0 = obj."is_same"(42, 42)
print $I0
print "\n"
.end
@@ -85,16 +85,16 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.is_lt(0, 0)
+ $I0 = obj."is_lt"(0, 0)
print $I0
print "\n"
- $I0 = obj.is_lt(0, 1)
+ $I0 = obj."is_lt"(0, 1)
print $I0
print "\n"
- $I0 = obj.is_lt(1, 0)
+ $I0 = obj."is_lt"(1, 0)
print $I0
print "\n"
- $I0 = obj.is_lt(42, 42)
+ $I0 = obj."is_lt"(42, 42)
print $I0
print "\n"
.end
@@ -110,16 +110,16 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.is_lt_un(0, 0)
+ $I0 = obj."is_lt_un"(0, 0)
print $I0
print "\n"
- $I0 = obj.is_lt_un(0, 1)
+ $I0 = obj."is_lt_un"(0, 1)
print $I0
print "\n"
- $I0 = obj.is_lt_un(1, 0)
+ $I0 = obj."is_lt_un"(1, 0)
print $I0
print "\n"
- $I0 = obj.is_lt_un(42, 42)
+ $I0 = obj."is_lt_un"(42, 42)
print $I0
print "\n"
.end
@@ -135,16 +135,16 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.is_gt(0, 0)
+ $I0 = obj."is_gt"(0, 0)
print $I0
print "\n"
- $I0 = obj.is_gt(0, 1)
+ $I0 = obj."is_gt"(0, 1)
print $I0
print "\n"
- $I0 = obj.is_gt(1, 0)
+ $I0 = obj."is_gt"(1, 0)
print $I0
print "\n"
- $I0 = obj.is_gt(42, 42)
+ $I0 = obj."is_gt"(42, 42)
print $I0
print "\n"
.end
@@ -160,16 +160,16 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.is_gt_un(0, 0)
+ $I0 = obj."is_gt_un"(0, 0)
print $I0
print "\n"
- $I0 = obj.is_gt_un(0, 1)
+ $I0 = obj."is_gt_un"(0, 1)
print $I0
print "\n"
- $I0 = obj.is_gt_un(1, 0)
+ $I0 = obj."is_gt_un"(1, 0)
print $I0
print "\n"
- $I0 = obj.is_gt_un(42, 42)
+ $I0 = obj."is_gt_un"(42, 42)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/conditional.t
==============================================================================
--- trunk/languages/dotnet/t/conditional.t (original)
+++ trunk/languages/dotnet/t/conditional.t Sat Dec 13 11:46:19 2008
@@ -58,19 +58,19 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.clip(0)
+ $I0 = obj."clip"(0)
print $I0
print "\n"
- $I0 = obj.clip(1)
+ $I0 = obj."clip"(1)
print $I0
print "\n"
- $I0 = obj.clip(-1)
+ $I0 = obj."clip"(-1)
print $I0
print "\n"
- $I0 = obj.clip(-500)
+ $I0 = obj."clip"(-500)
print $I0
print "\n"
- $I0 = obj.clip(42)
+ $I0 = obj."clip"(42)
print $I0
print "\n"
.end
@@ -87,22 +87,22 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.band_pass(1)
+ $I0 = obj."band_pass"(1)
print $I0
print "\n"
- $I0 = obj.band_pass(2)
+ $I0 = obj."band_pass"(2)
print $I0
print "\n"
- $I0 = obj.band_pass(3)
+ $I0 = obj."band_pass"(3)
print $I0
print "\n"
- $I0 = obj.band_pass(4)
+ $I0 = obj."band_pass"(4)
print $I0
print "\n"
- $I0 = obj.band_pass(5)
+ $I0 = obj."band_pass"(5)
print $I0
print "\n"
- $I0 = obj.band_pass(6)
+ $I0 = obj."band_pass"(6)
print $I0
print "\n"
.end
@@ -120,16 +120,16 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.is_42(99)
+ $I0 = obj."is_42"(99)
print $I0
print "\n"
- $I0 = obj.is_42(-2)
+ $I0 = obj."is_42"(-2)
print $I0
print "\n"
- $I0 = obj.is_42(42)
+ $I0 = obj."is_42"(42)
print $I0
print "\n"
- $I0 = obj.is_42(-42)
+ $I0 = obj."is_42"(-42)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/constants.t
==============================================================================
--- trunk/languages/dotnet/t/constants.t (original)
+++ trunk/languages/dotnet/t/constants.t Sat Dec 13 11:46:19 2008
@@ -57,7 +57,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.zero2eight()
+ $I0 = obj."zero2eight"()
print $I0
print "\n"
.end
@@ -70,7 +70,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.m1()
+ $I0 = obj."m1"()
print $I0
print "\n"
.end
@@ -83,7 +83,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.bigger_consts()
+ $I0 = obj."bigger_consts"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/constructor.t
==============================================================================
--- trunk/languages/dotnet/t/constructor.t (original)
+++ trunk/languages/dotnet/t/constructor.t Sat Dec 13 11:46:19 2008
@@ -77,7 +77,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.cc_no_args()
+ $I0 = obj."cc_no_args"()
print $I0
print "\n"
.end
@@ -90,7 +90,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $N0 = obj.cc_args(10, 2.45)
+ $N0 = obj."cc_args"(10, 2.45)
print $N0
print "\n"
.end
Modified: trunk/languages/dotnet/t/conv.t
==============================================================================
--- trunk/languages/dotnet/t/conv.t (original)
+++ trunk/languages/dotnet/t/conv.t Sat Dec 13 11:46:19 2008
@@ -22,7 +22,7 @@
{
return (sbyte) x;
}
-
+
public sbyte conv_i1_f(float x)
{
return (sbyte) x;
@@ -32,7 +32,7 @@
{
return (byte) x;
}
-
+
public byte conv_u1_f(float x)
{
return (byte) x;
@@ -42,7 +42,7 @@
{
return (short) x;
}
-
+
public short conv_i2_f(float x)
{
return (short) x;
@@ -52,7 +52,7 @@
{
return (ushort) x;
}
-
+
public ushort conv_u2_f(float x)
{
return (ushort) x;
@@ -62,7 +62,7 @@
{
return (int) x;
}
-
+
public uint conv_u4_f(float x)
{
return (uint) x;
@@ -90,16 +90,16 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.conv_i1_i(42)
+ $I0 = obj."conv_i1_i"(42)
print $I0
print "\n"
- $I0 = obj.conv_i1_i(-42)
+ $I0 = obj."conv_i1_i"(-42)
print $I0
print "\n"
- $I0 = obj.conv_i1_i(258)
+ $I0 = obj."conv_i1_i"(258)
print $I0
print "\n"
- $I0 = obj.conv_i1_i(-258)
+ $I0 = obj."conv_i1_i"(-258)
print $I0
print "\n"
.end
@@ -115,16 +115,16 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.conv_i1_f(42.0)
+ $I0 = obj."conv_i1_f"(42.0)
print $I0
print "\n"
- $I0 = obj.conv_i1_f(-42.0)
+ $I0 = obj."conv_i1_f"(-42.0)
print $I0
print "\n"
- $I0 = obj.conv_i1_f(258.0)
+ $I0 = obj."conv_i1_f"(258.0)
print $I0
print "\n"
- $I0 = obj.conv_i1_f(-258.0)
+ $I0 = obj."conv_i1_f"(-258.0)
print $I0
print "\n"
.end
@@ -140,10 +140,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.conv_u1_i(42)
+ $I0 = obj."conv_u1_i"(42)
print $I0
print "\n"
- $I0 = obj.conv_u1_i(258)
+ $I0 = obj."conv_u1_i"(258)
print $I0
print "\n"
.end
@@ -157,10 +157,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.conv_u1_f(42.0)
+ $I0 = obj."conv_u1_f"(42.0)
print $I0
print "\n"
- $I0 = obj.conv_u1_f(258.0)
+ $I0 = obj."conv_u1_f"(258.0)
print $I0
print "\n"
.end
@@ -174,16 +174,16 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.conv_i2_i(42)
+ $I0 = obj."conv_i2_i"(42)
print $I0
print "\n"
- $I0 = obj.conv_i2_i(-42)
+ $I0 = obj."conv_i2_i"(-42)
print $I0
print "\n"
- $I0 = obj.conv_i2_i(70000)
+ $I0 = obj."conv_i2_i"(70000)
print $I0
print "\n"
- $I0 = obj.conv_i2_i(-70000)
+ $I0 = obj."conv_i2_i"(-70000)
print $I0
print "\n"
.end
@@ -199,16 +199,16 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.conv_i2_f(42.0)
+ $I0 = obj."conv_i2_f"(42.0)
print $I0
print "\n"
- $I0 = obj.conv_i2_f(-42.0)
+ $I0 = obj."conv_i2_f"(-42.0)
print $I0
print "\n"
- $I0 = obj.conv_i2_f(70000.0)
+ $I0 = obj."conv_i2_f"(70000.0)
print $I0
print "\n"
- $I0 = obj.conv_i2_f(-70000.0)
+ $I0 = obj."conv_i2_f"(-70000.0)
print $I0
print "\n"
.end
@@ -224,10 +224,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.conv_u2_i(42)
+ $I0 = obj."conv_u2_i"(42)
print $I0
print "\n"
- $I0 = obj.conv_u2_i(70000)
+ $I0 = obj."conv_u2_i"(70000)
print $I0
print "\n"
.end
@@ -241,10 +241,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.conv_u2_f(42.0)
+ $I0 = obj."conv_u2_f"(42.0)
print $I0
print "\n"
- $I0 = obj.conv_u2_f(70000.0)
+ $I0 = obj."conv_u2_f"(70000.0)
print $I0
print "\n"
.end
@@ -258,10 +258,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.conv_i4_f(42.0)
+ $I0 = obj."conv_i4_f"(42.0)
print $I0
print "\n"
- $I0 = obj.conv_i4_f(-42.0)
+ $I0 = obj."conv_i4_f"(-42.0)
print $I0
print "\n"
.end
@@ -275,7 +275,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.conv_u4_f(42.0)
+ $I0 = obj."conv_u4_f"(42.0)
print $I0
print "\n"
.end
@@ -288,10 +288,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $N0 = obj.conv_r4_i(42)
+ $N0 = obj."conv_r4_i"(42)
print $N0
print "\n"
- $N0 = obj.conv_r4_i(-42)
+ $N0 = obj."conv_r4_i"(-42)
print $N0
print "\n"
.end
@@ -305,10 +305,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $N0 = obj.conv_r8_i(42)
+ $N0 = obj."conv_r8_i"(42)
print $N0
print "\n"
- $N0 = obj.conv_r8_i(-42)
+ $N0 = obj."conv_r8_i"(-42)
print $N0
print "\n"
.end
Modified: trunk/languages/dotnet/t/convovf.t
==============================================================================
--- trunk/languages/dotnet/t/convovf.t (original)
+++ trunk/languages/dotnet/t/convovf.t Sat Dec 13 11:46:19 2008
@@ -105,7 +105,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.u1(200)
+ $I0 = obj."u1"(200)
print $I0
print "\n"
.end
@@ -119,7 +119,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.u1(300)
+ $I0 = obj."u1"(300)
print "failed\n"
end
handler:
@@ -136,7 +136,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.u1(-5)
+ $I0 = obj."u1"(-5)
print "failed\n"
end
handler:
@@ -152,7 +152,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.i1(100)
+ $I0 = obj."i1"(100)
print $I0
print "\n"
.end
@@ -165,7 +165,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.i1(-5)
+ $I0 = obj."i1"(-5)
print $I0
print "\n"
end
@@ -180,7 +180,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.i1(128)
+ $I0 = obj."i1"(128)
print "failed\n"
end
handler:
@@ -197,7 +197,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.i1(-129)
+ $I0 = obj."i1"(-129)
print "failed\n"
end
handler:
@@ -213,7 +213,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.u2(33000)
+ $I0 = obj."u2"(33000)
print $I0
print "\n"
.end
@@ -227,7 +227,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.u2(68000)
+ $I0 = obj."u2"(68000)
print "failed\n"
end
handler:
@@ -244,7 +244,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.u2(-5)
+ $I0 = obj."u2"(-5)
print "failed\n"
end
handler:
@@ -260,7 +260,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.i2(10000)
+ $I0 = obj."i2"(10000)
print $I0
print "\n"
.end
@@ -273,7 +273,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.i2(-5)
+ $I0 = obj."i2"(-5)
print $I0
print "\n"
end
@@ -288,7 +288,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.i2(32768)
+ $I0 = obj."i2"(32768)
print "failed\n"
end
handler:
@@ -305,7 +305,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.i2(-32769)
+ $I0 = obj."i2"(-32769)
print "failed\n"
end
handler:
@@ -321,7 +321,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.u4(5000000)
+ $I0 = obj."u4"(5000000)
print $I0
print "\n"
.end
@@ -335,7 +335,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.u4(-5)
+ $I0 = obj."u4"(-5)
print "failed\n"
end
handler:
@@ -351,7 +351,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.u1_un(200)
+ $I0 = obj."u1_un"(200)
print $I0
print "\n"
.end
@@ -365,7 +365,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.u1_un(300)
+ $I0 = obj."u1_un"(300)
print "failed\n"
end
handler:
@@ -381,7 +381,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.i1_un(100)
+ $I0 = obj."i1_un"(100)
print $I0
print "\n"
.end
@@ -395,7 +395,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.i1_un(128)
+ $I0 = obj."i1_un"(128)
print "failed\n"
end
handler:
@@ -412,7 +412,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.i1_un(-1)
+ $I0 = obj."i1_un"(-1)
print "failed\n"
end
handler:
@@ -428,7 +428,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.u2_un(33000)
+ $I0 = obj."u2_un"(33000)
print $I0
print "\n"
.end
@@ -442,7 +442,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.u2_un(68000)
+ $I0 = obj."u2_un"(68000)
print "failed\n"
end
handler:
@@ -458,7 +458,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.i2_un(10000)
+ $I0 = obj."i2_un"(10000)
print $I0
print "\n"
.end
@@ -472,7 +472,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.i2_un(32768)
+ $I0 = obj."i2_un"(32768)
print "failed\n"
end
handler:
@@ -489,7 +489,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.i2_un(-1)
+ $I0 = obj."i2_un"(-1)
print "failed\n"
end
handler:
@@ -505,7 +505,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.i4_un(5000000)
+ $I0 = obj."i4_un"(5000000)
print $I0
print "\n"
.end
@@ -519,7 +519,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.i4_un(-5)
+ $I0 = obj."i4_un"(-5)
print "failed\n"
end
handler:
@@ -535,7 +535,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $N0 = obj.u1_f(200.0)
+ $N0 = obj."u1_f"(200.0)
print $N0
print "\n"
.end
@@ -549,7 +549,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $N0 = obj.u1_f(300.0)
+ $N0 = obj."u1_f"(300.0)
print "failed\n"
end
handler:
@@ -566,7 +566,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $N0 = obj.u1_f(-5.0)
+ $N0 = obj."u1_f"(-5.0)
print "failed\n"
end
handler:
@@ -582,7 +582,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $N0 = obj.i1_f(100.0)
+ $N0 = obj."i1_f"(100.0)
print $N0
print "\n"
.end
@@ -595,7 +595,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $N0 = obj.i1_f(-5.0)
+ $N0 = obj."i1_f"(-5.0)
print $N0
print "\n"
end
@@ -610,7 +610,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $N0 = obj.i1_f(128.0)
+ $N0 = obj."i1_f"(128.0)
print "failed\n"
end
handler:
@@ -627,7 +627,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $N0 = obj.i1_f(-129.0)
+ $N0 = obj."i1_f"(-129.0)
print "failed\n"
end
handler:
@@ -643,7 +643,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $N0 = obj.u2_f(33000.0)
+ $N0 = obj."u2_f"(33000.0)
print $N0
print "\n"
.end
@@ -657,7 +657,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $N0 = obj.u2_f(68000.0)
+ $N0 = obj."u2_f"(68000.0)
print "failed\n"
end
handler:
@@ -674,7 +674,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $N0 = obj.u2_f(-5.0)
+ $N0 = obj."u2_f"(-5.0)
print "failed\n"
end
handler:
@@ -690,7 +690,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $N0 = obj.i2_f(10000.0)
+ $N0 = obj."i2_f"(10000.0)
print $N0
print "\n"
.end
@@ -703,7 +703,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $N0 = obj.i2_f(-5.0)
+ $N0 = obj."i2_f"(-5.0)
print $N0
print "\n"
end
@@ -718,7 +718,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $N0 = obj.i2_f(32768.0)
+ $N0 = obj."i2_f"(32768.0)
print "failed\n"
end
handler:
@@ -735,7 +735,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $N0 = obj.i2_f(-32769.0)
+ $N0 = obj."i2_f"(-32769.0)
print "failed\n"
end
handler:
Modified: trunk/languages/dotnet/t/enum.t
==============================================================================
--- trunk/languages/dotnet/t/enum.t (original)
+++ trunk/languages/dotnet/t/enum.t Sat Dec 13 11:46:19 2008
@@ -97,7 +97,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.value()
+ $I0 = obj."value"()
print $I0
print "\n"
.end
@@ -110,7 +110,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.or()
+ $I0 = obj."or"()
print $I0
print "\n"
.end
@@ -123,7 +123,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.or_int()
+ $I0 = obj."or_int"()
print $I0
print "\n"
.end
@@ -136,10 +136,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.cond_1(0)
+ $I0 = obj."cond_1"(0)
print $I0
print "\n"
- $I0 = obj.cond_1(42)
+ $I0 = obj."cond_1"(42)
print $I0
print "\n"
.end
@@ -153,10 +153,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.cond_2(2)
+ $I0 = obj."cond_2"(2)
print $I0
print "\n"
- $I0 = obj.cond_2(0)
+ $I0 = obj."cond_2"(0)
print $I0
print "\n"
.end
@@ -170,10 +170,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.argument(1)
+ $I0 = obj."argument"(1)
print $I0
print "\n"
- $I0 = obj.argument(0)
+ $I0 = obj."argument"(0)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/exceptions.t
==============================================================================
--- trunk/languages/dotnet/t/exceptions.t (original)
+++ trunk/languages/dotnet/t/exceptions.t Sat Dec 13 11:46:19 2008
@@ -182,7 +182,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.simple(0)
+ $I0 = obj."simple"(0)
print $I0
print "\n"
.end
@@ -195,7 +195,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.simple(1)
+ $I0 = obj."simple"(1)
print $I0
print "\n"
.end
@@ -208,10 +208,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.typed(1)
+ $I0 = obj."typed"(1)
print $I0
print "\n"
- $I0 = obj.typed(0)
+ $I0 = obj."typed"(0)
print $I0
print "\n"
.end
@@ -225,10 +225,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.nested1(0)
+ $I0 = obj."nested1"(0)
print $I0
print "\n"
- $I0 = obj.nested1(1)
+ $I0 = obj."nested1"(1)
print $I0
print "\n"
.end
@@ -242,10 +242,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.nested2(0)
+ $I0 = obj."nested2"(0)
print $I0
print "\n"
- $I0 = obj.nested2(1)
+ $I0 = obj."nested2"(1)
print $I0
print "\n"
.end
@@ -259,10 +259,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.nested3(0)
+ $I0 = obj."nested3"(0)
print $I0
print "\n"
- $I0 = obj.nested3(1)
+ $I0 = obj."nested3"(1)
print $I0
print "\n"
.end
@@ -276,10 +276,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.nested4(0)
+ $I0 = obj."nested4"(0)
print $I0
print "\n"
- $I0 = obj.nested4(1)
+ $I0 = obj."nested4"(1)
print $I0
print "\n"
.end
@@ -293,10 +293,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.nested5(0)
+ $I0 = obj."nested5"(0)
print $I0
print "\n"
- $I0 = obj.nested5(1)
+ $I0 = obj."nested5"(1)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/external.t
==============================================================================
--- trunk/languages/dotnet/t/external.t (original)
+++ trunk/languages/dotnet/t/external.t Sat Dec 13 11:46:19 2008
@@ -68,7 +68,7 @@
load_bytecode "external.pbc"
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $P0 = obj.create_monkey()
+ $P0 = obj."create_monkey"()
unless null $P0 goto IS_OK
print "busted\n"
IS_OK:
@@ -84,8 +84,8 @@
load_bytecode "external.pbc"
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $P0 = obj.create_monkey()
- $I0 = obj.monkey_age_doubled($P0)
+ $P0 = "obj.create_monkey"()
+ $I0 = obj."monkey_age_doubled"($P0)
print $I0
print "\n"
.end
@@ -99,8 +99,8 @@
load_bytecode "external.pbc"
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $P0 = obj.create_monkey()
- $S0 = obj.monkey_talk($P0)
+ $P0 = obj."create_monkey"()
+ $S0 = obj."monkey_talk"($P0)
print $S0
print "\n"
.end
Modified: trunk/languages/dotnet/t/field.t
==============================================================================
--- trunk/languages/dotnet/t/field.t (original)
+++ trunk/languages/dotnet/t/field.t Sat Dec 13 11:46:19 2008
@@ -48,7 +48,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- obj.set_x(28)
+ obj."set_x"(28)
$P0 = new 'Integer'
$P0 = getattribute obj, "x"
print $P0
@@ -63,7 +63,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- obj.set_y(14)
+ obj."set_y"(14)
$P0 = new 'Integer'
$P0 = getattribute obj, "y"
print $P0
@@ -78,8 +78,8 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- obj.set_x(28)
- obj.set_y(14)
+ obj."set_x"(28)
+ obj."set_y"(14)
$I0 = obj.add()
print $I0
print "\n"
Modified: trunk/languages/dotnet/t/finally.t
==============================================================================
--- trunk/languages/dotnet/t/finally.t (original)
+++ trunk/languages/dotnet/t/finally.t Sat Dec 13 11:46:19 2008
@@ -184,7 +184,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.unwind_over()
+ $I0 = obj."unwind_over"()
print $I0
print "\n"
.end
@@ -197,7 +197,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.unwind_over_2()
+ $I0 = obj."unwind_over_2"()
print $I0
print "\n"
.end
@@ -210,7 +210,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.try_finally()
+ $I0 = obj."try_finally"()
print $I0
print "\n"
.end
@@ -223,7 +223,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.mixed()
+ $I0 = obj."mixed"()
print $I0
print "\n"
.end
@@ -236,10 +236,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.nested_1(0)
+ $I0 = obj."nested_1"(0)
print $I0
print "\n"
- $I0 = obj.nested_1(1)
+ $I0 = obj."nested_1"(1)
print $I0
print "\n"
.end
@@ -253,10 +253,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.nested_2(0)
+ $I0 = obj."nested_2"(0)
print $I0
print "\n"
- $I0 = obj.nested_2(1)
+ $I0 = obj."nested_2"(1)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/floatarray.t
==============================================================================
--- trunk/languages/dotnet/t/floatarray.t (original)
+++ trunk/languages/dotnet/t/floatarray.t Sat Dec 13 11:46:19 2008
@@ -54,7 +54,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $N0 = obj.test_float()
+ $N0 = obj."test_float"()
print $N0
print "\n"
.end
@@ -67,7 +67,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $N0 = obj.test_double()
+ $N0 = obj."test_double"()
print $N0
print "\n"
.end
Modified: trunk/languages/dotnet/t/hierachy.t
==============================================================================
--- trunk/languages/dotnet/t/hierachy.t (original)
+++ trunk/languages/dotnet/t/hierachy.t Sat Dec 13 11:46:19 2008
@@ -61,7 +61,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.check_it_works()
+ $I0 = obj."check_it_works"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/i8.t
==============================================================================
--- trunk/languages/dotnet/t/i8.t (original)
+++ trunk/languages/dotnet/t/i8.t Sat Dec 13 11:46:19 2008
@@ -36,11 +36,11 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $P0 = obj.set_long()
- $I0 = $P0.get_high_bits()
+ $P0 = obj."set_long"()
+ $I0 = $P0."get_high_bits"()
print $I0
print "\n"
- $I0 = $P0.get_low_bits()
+ $I0 = $P0."get_low_bits"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/inheritance.t
==============================================================================
--- trunk/languages/dotnet/t/inheritance.t (original)
+++ trunk/languages/dotnet/t/inheritance.t Sat Dec 13 11:46:19 2008
@@ -92,7 +92,7 @@
load_bytecode "t.pbc"
obj1 = new [ "Testing" ; "Test" ]
obj2 = new [ "Testing" ; "baby" ]
- $I0 = obj1.test_2_up(obj2)
+ $I0 = obj1."test_2_up"(obj2)
print $I0
print "\n"
.end
@@ -106,7 +106,7 @@
load_bytecode "t.pbc"
obj1 = new [ "Testing" ; "Test" ]
obj2 = new [ "Testing" ; "baby" ]
- $I0 = obj1.test_1_up(obj2)
+ $I0 = obj1."test_1_up"(obj2)
print $I0
print "\n"
.end
@@ -120,7 +120,7 @@
load_bytecode "t.pbc"
obj1 = new [ "Testing" ; "Test" ]
obj2 = new [ "Testing" ; "baby" ]
- $I0 = obj1.test_cur(obj2)
+ $I0 = obj1."test_cur"(obj2)
print $I0
print "\n"
.end
@@ -134,7 +134,7 @@
load_bytecode "t.pbc"
obj1 = new [ "Testing" ; "Test" ]
obj2 = new [ "Testing" ; "mummy" ]
- $I0 = obj1.test(obj2)
+ $I0 = obj1."test"(obj2)
print $I0
print "\n"
.end
@@ -148,7 +148,7 @@
load_bytecode "t.pbc"
obj1 = new [ "Testing" ; "Test" ]
obj2 = new [ "Testing" ; "baby" ]
- $I0 = obj1.test(obj2)
+ $I0 = obj1."test"(obj2)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/initializer.t
==============================================================================
--- trunk/languages/dotnet/t/initializer.t (original)
+++ trunk/languages/dotnet/t/initializer.t Sat Dec 13 11:46:19 2008
@@ -42,7 +42,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.get_x()
+ $I0 = obj."get_x"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/intarray.t
==============================================================================
--- trunk/languages/dotnet/t/intarray.t (original)
+++ trunk/languages/dotnet/t/intarray.t Sat Dec 13 11:46:19 2008
@@ -90,7 +90,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.test_sbyte()
+ $I0 = obj."test_sbyte"()
print $I0
print "\n"
.end
@@ -103,7 +103,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.test_byte()
+ $I0 = obj."test_byte"()
print $I0
print "\n"
.end
@@ -116,7 +116,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.test_short()
+ $I0 = obj."test_short"()
print $I0
print "\n"
.end
@@ -129,7 +129,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.test_ushort()
+ $I0 = obj."test_ushort"()
print $I0
print "\n"
.end
@@ -142,7 +142,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.test_int()
+ $I0 = obj."test_int"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/interface.t
==============================================================================
--- trunk/languages/dotnet/t/interface.t (original)
+++ trunk/languages/dotnet/t/interface.t Sat Dec 13 11:46:19 2008
@@ -130,7 +130,7 @@
addparent cls, prt
obj = new "badness"
push_eh handler
- obj.kick()
+ obj."kick"()
print "not "
handler:
print "ok\n"
@@ -144,9 +144,9 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- obj.setup()
- obj.kick_da_brother(10)
- $I0 = obj.ready_to_sell()
+ obj."setup"()
+ obj."kick_da_brother"(10)
+ $I0 = obj."ready_to_sell"()
print $I0
print "\n"
.end
@@ -159,9 +159,9 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- obj.setup()
- obj.kick_da_brother(1000) # ouch!
- $I0 = obj.ready_to_sell()
+ obj."setup"()
+ obj."kick_da_brother"(1000) # ouch!
+ $I0 = obj."ready_to_sell"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/isinst.t
==============================================================================
--- trunk/languages/dotnet/t/isinst.t (original)
+++ trunk/languages/dotnet/t/isinst.t Sat Dec 13 11:46:19 2008
@@ -59,7 +59,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.pos()
+ $I0 = obj."pos"()
print $I0
print "\n"
.end
@@ -72,7 +72,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.neg()
+ $I0 = obj."neg"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/locals.t
==============================================================================
--- trunk/languages/dotnet/t/locals.t (original)
+++ trunk/languages/dotnet/t/locals.t Sat Dec 13 11:46:19 2008
@@ -67,7 +67,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.no_locals()
+ $I0 = obj."no_locals"()
print $I0
print "\n"
.end
@@ -80,7 +80,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.few_locals()
+ $I0 = obj."few_locals"()
print $I0
print "\n"
.end
@@ -93,7 +93,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.fib_locals()
+ $I0 = obj."fib_locals"()
print $I0
print "\n"
.end
@@ -106,7 +106,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.locals_with_args(2,3)
+ $I0 = obj."locals_with_args"(2,3)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/loop.t
==============================================================================
--- trunk/languages/dotnet/t/loop.t (original)
+++ trunk/languages/dotnet/t/loop.t Sat Dec 13 11:46:19 2008
@@ -57,19 +57,19 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.add_hundred(0)
+ $I0 = obj."add_hundred"(0)
print $I0
print "\n"
- $I0 = obj.add_hundred(21)
+ $I0 = obj."add_hundred"(21)
print $I0
print "\n"
- $I0 = obj.add_hundred(-1)
+ $I0 = obj."add_hundred"(-1)
print $I0
print "\n"
- $I0 = obj.add_hundred(-500)
+ $I0 = obj."add_hundred"(-500)
print $I0
print "\n"
- $I0 = obj.add_hundred(42)
+ $I0 = obj."add_hundred"(42)
print $I0
print "\n"
.end
@@ -86,16 +86,16 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.multiply(4,5)
+ $I0 = obj."multiply"(4,5)
print $I0
print "\n"
- $I0 = obj.multiply(6,3)
+ $I0 = obj."multiply"(6,3)
print $I0
print "\n"
- $I0 = obj.multiply(0,1)
+ $I0 = obj."multiply"(0,1)
print $I0
print "\n"
- $I0 = obj.multiply(9,0)
+ $I0 = obj."multiply"(9,0)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/math.t
==============================================================================
--- trunk/languages/dotnet/t/math.t (original)
+++ trunk/languages/dotnet/t/math.t Sat Dec 13 11:46:19 2008
@@ -37,7 +37,7 @@
{
return x / y;
}
-
+
public int rem(int x, int y)
{
return x % y;
@@ -60,10 +60,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.add(500,72)
+ $I0 = obj."add"(500,72)
print $I0
print "\n"
- $I0 = obj.add(500,-72)
+ $I0 = obj."add"(500,-72)
print $I0
print "\n"
.end
@@ -94,10 +94,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.mul(50,7)
+ $I0 = obj."mul"(50,7)
print $I0
print "\n"
- $I0 = obj.mul(-7,-6)
+ $I0 = obj."mul"(-7,-6)
print $I0
print "\n"
.end
@@ -111,13 +111,13 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.div(12,3)
+ $I0 = obj."div"(12,3)
print $I0
print "\n"
- $I0 = obj.div(15,14)
+ $I0 = obj."div"(15,14)
print $I0
print "\n"
- $I0 = obj.div(-121,11)
+ $I0 = obj."div"(-121,11)
print $I0
print "\n"
.end
@@ -132,10 +132,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.rem(13,3)
+ $I0 = obj."rem"(13,3)
print $I0
print "\n"
- $I0 = obj.rem(-15,13)
+ $I0 = obj."rem"(-15,13)
print $I0
print "\n"
.end
@@ -149,10 +149,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.neg(100)
+ $I0 = obj."neg"(100)
print $I0
print "\n"
- $I0 = obj.neg(-15)
+ $I0 = obj."neg"(-15)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/mathovf.t
==============================================================================
--- trunk/languages/dotnet/t/mathovf.t (original)
+++ trunk/languages/dotnet/t/mathovf.t Sat Dec 13 11:46:19 2008
@@ -60,7 +60,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.add(500,72)
+ $I0 = obj."add"(500,72)
print $I0
print "\n"
.end
@@ -74,7 +74,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.add(2147483640, 100)
+ $I0 = obj."add"(2147483640, 100)
print "failed\n"
end
handler:
@@ -90,7 +90,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.add_un(500,72)
+ $I0 = obj."add_un"(500,72)
print $I0
print "\n"
.end
@@ -103,9 +103,9 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.add_un(2147483647, 2147483647)
+ $I0 = obj."add_un"(2147483647, 2147483647)
push_eh handler
- $I0 = obj.add_un($I0, 10)
+ $I0 = obj."add_un"($I0, 10)
print "failed\n"
end
handler:
@@ -185,7 +185,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.mul(500,20)
+ $I0 = obj."mul"(500,20)
print $I0
print "\n"
.end
@@ -199,7 +199,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.mul(214748364, 100)
+ $I0 = obj."mul"(214748364, 100)
print "failed\n"
end
handler:
@@ -215,7 +215,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.mul_un(500,20)
+ $I0 = obj."mul_un"(500,20)
print $I0
print "\n"
.end
@@ -229,7 +229,7 @@
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
push_eh handler
- $I0 = obj.mul_un(214748364, 214748364)
+ $I0 = obj."mul_un"(214748364, 214748364)
print "failed\n"
end
handler:
Modified: trunk/languages/dotnet/t/mp.t
==============================================================================
--- trunk/languages/dotnet/t/mp.t (original)
+++ trunk/languages/dotnet/t/mp.t Sat Dec 13 11:46:19 2008
@@ -106,7 +106,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.local_ints()
+ $I0 = obj."local_ints"()
print $I0
print "\n"
.end
@@ -119,7 +119,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $N0 = obj.local_floats()
+ $N0 = obj."local_floats"()
print $N0
print "\n"
.end
@@ -132,7 +132,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.param_ints(5, 10, 20, 40, 80, 160)
+ $I0 = obj."param_ints"(5, 10, 20, 40, 80, 160)
print $I0
print "\n"
.end
@@ -145,7 +145,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $N0 = obj.param_floats(5.5, 7.5)
+ $N0 = obj."param_floats"(5.5, 7.5)
print $N0
print "\n"
.end
@@ -158,7 +158,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.element()
+ $I0 = obj."element"()
print $I0
print "\n"
.end
@@ -171,7 +171,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.field()
+ $I0 = obj."field"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/mp_pmc.t
==============================================================================
--- trunk/languages/dotnet/t/mp_pmc.t (original)
+++ trunk/languages/dotnet/t/mp_pmc.t Sat Dec 13 11:46:19 2008
@@ -39,7 +39,7 @@
.local int tmp
# Get register's value indirectly, increment it and store back indirectly.
- tmp = ptr.load_int()
+ tmp = ptr."load_int"()
inc tmp
ptr.store_int(tmp)
.end
@@ -71,9 +71,9 @@
.local num tmp
# Get register's value indirectly, increment it and store back indirectly.
- tmp = ptr.load_float()
+ tmp = ptr."load_float"()
tmp = tmp * 2
- ptr.store_float(tmp)
+ ptr."store_float"(tmp)
.end
PIR
4.800000
@@ -87,7 +87,7 @@
$P0 = loadlib "dotnet_runtime"
# Get the pointer.
- the_test = new Float
+ the_test = new 'Float'
the_test = 42.2
ptr = net_reg_ptr the_test
@@ -109,7 +109,7 @@
tmp2 = tmp
tmp = new 'Integer'
tmp = tmp2
- ptr.store_pmc(tmp)
+ ptr."store_pmc"(tmp)
.end
PIR
42
@@ -123,7 +123,7 @@
$P0 = loadlib "dotnet_runtime"
# Set up an array.
- arr = new FixedIntegerArray
+ arr = new 'FixedIntegerArray'
arr = 3
arr[0] = 40
arr[1] = 41
@@ -133,11 +133,11 @@
ptr = net_ldelema arr, 1
# Use the pointer to get value, increment it, store it again.
- the_test = ptr.load_int()
+ the_test = ptr."load_int"()
print the_test
print "\n"
inc the_test
- ptr.store_int(the_test)
+ ptr."store_int"(the_test)
# Print array element.
the_test = arr[1]
@@ -157,7 +157,7 @@
$P0 = loadlib "dotnet_runtime"
# Set up an array.
- arr = new FixedFloatArray
+ arr = new 'FixedFloatArray'
arr = 3
arr[0] = 14.2
arr[1] = 5.9
@@ -167,11 +167,11 @@
ptr = net_ldelema arr, 1
# Use the pointer to get value, increment it, store it again.
- the_test = ptr.load_float()
+ the_test = ptr."load_float"()
print the_test
print "\n"
the_test = the_test * 2
- ptr.store_float(the_test)
+ ptr."store_float"(the_test)
# Print array element.
the_test = arr[1]
@@ -190,15 +190,15 @@
$P0 = loadlib "dotnet_runtime"
# Set up an array.
- arr = new FixedFloatArray
+ arr = new 'FixedFloatArray'
arr = 3
- the_test = new Float
+ the_test = new 'Float'
the_test = 14.2
arr[0] = the_test
- the_test = new Float
+ the_test = new 'Float'
the_test = 5.9
arr[1] = the_test
- the_test = new Float
+ the_test = new 'Float'
the_test = 18.7
arr[2] = the_test
@@ -206,12 +206,12 @@
ptr = net_ldelema arr, 1
# Use the pointer to get value, increment it, store it again.
- the_test = ptr.load_pmc()
+ the_test = ptr."load_pmc"()
print the_test
print "\n"
- the_test = new Float
+ the_test = new 'Float'
the_test = 11.8
- ptr.store_float(the_test)
+ ptr."store_float"(the_test)
# Print array element.
the_test = arr[1]
@@ -242,12 +242,12 @@
ptr = net_ldflda obj, "age"
# Use the pointer to get the age attribute and change it.
- the_test = ptr.load_int()
+ the_test = ptr."load_int"()
print "The monkey was "
print the_test
print " years old.\n"
inc the_test
- ptr.store_int(the_test)
+ ptr."store_int"(the_test)
# Print attribute.
$P1 = getattribute obj, "age"
@@ -271,7 +271,7 @@
$P0 = newclass "monkey"
addattribute $P0, "height"
obj = new "monkey"
- $P1 = new Float
+ $P1 = new 'Float'
$P1 = 1.79
setattribute obj, "height", $P1
@@ -279,12 +279,12 @@
ptr = net_ldflda obj, "height"
# Use the pointer to get the height attribute and change it.
- the_test = ptr.load_float()
+ the_test = ptr."load_float"()
print "The monkey was "
print the_test
print " meters tall.\n"
the_test = 1.82
- ptr.store_float(the_test)
+ ptr."store_float"(the_test)
# Print attribute.
$P1 = getattribute obj, "height"
@@ -307,7 +307,7 @@
$P0 = newclass "monkey"
addattribute $P0, "name"
obj = new "monkey"
- $P1 = new String
+ $P1 = new 'String'
$P1 = "Derek"
setattribute obj, "name", $P1
@@ -319,9 +319,9 @@
print "The monkey was called "
print the_test
print ".\n"
- $P1 = new String
+ $P1 = new 'String'
$P1 = "Bradley"
- ptr.store_pmc($P1)
+ ptr."store_pmc"($P1)
# Print attribute.
the_test = getattribute obj, "name"
Modified: trunk/languages/dotnet/t/null.t
==============================================================================
--- trunk/languages/dotnet/t/null.t (original)
+++ trunk/languages/dotnet/t/null.t Sat Dec 13 11:46:19 2008
@@ -40,7 +40,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $P0 = obj.ret_null()
+ $P0 = obj."ret_null"()
if null $P0 goto IS_NULL
print "not null\n"
IS_NULL:
@@ -55,8 +55,8 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $P0 = obj.ret_null()
- $I0 = obj.comp_null($P0)
+ $P0 = obj."ret_null"()
+ $I0 = obj."comp_null"($P0)
print $I0
print "\n"
.end
@@ -69,7 +69,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.comp_null(obj)
+ $I0 = obj."comp_null"(obj)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/overloading.t
==============================================================================
--- trunk/languages/dotnet/t/overloading.t (original)
+++ trunk/languages/dotnet/t/overloading.t Sat Dec 13 11:46:19 2008
@@ -94,7 +94,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.one_arg_i()
+ $I0 = obj."one_arg_i"()
print $I0
print "\n"
.end
@@ -107,7 +107,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.two_args_ii()
+ $I0 = obj."two_args_ii"()
print $I0
print "\n"
.end
@@ -120,7 +120,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.two_args_if()
+ $I0 = obj."two_args_if"()
print $I0
print "\n"
.end
@@ -133,7 +133,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.test_obj_1()
+ $I0 = obj."test_obj_1"()
print $I0
print "\n"
.end
@@ -146,7 +146,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.test_obj_2()
+ $I0 = obj."test_obj_2"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/overloadprimitives.t
==============================================================================
--- trunk/languages/dotnet/t/overloadprimitives.t (original)
+++ trunk/languages/dotnet/t/overloadprimitives.t Sat Dec 13 11:46:19 2008
@@ -118,7 +118,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.m_int()
+ $I0 = obj."m_int"()
print $I0
print "\n"
.end
@@ -131,7 +131,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.m_uint()
+ $I0 = obj."m_uint"()
print $I0
print "\n"
.end
@@ -144,7 +144,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.m_sbyte()
+ $I0 = obj."m_sbyte"()
print $I0
print "\n"
.end
@@ -157,7 +157,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.m_byte()
+ $I0 = obj."m_byte"()
print $I0
print "\n"
.end
@@ -170,7 +170,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.m_short()
+ $I0 = obj."m_short"()
print $I0
print "\n"
.end
@@ -183,7 +183,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.m_ushort()
+ $I0 = obj."m_ushort"()
print $I0
print "\n"
.end
@@ -196,7 +196,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.m_float()
+ $I0 = obj."m_float"()
print $I0
print "\n"
.end
@@ -209,7 +209,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.m_double()
+ $I0 = obj."m_double"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/recursion.t
==============================================================================
--- trunk/languages/dotnet/t/recursion.t (original)
+++ trunk/languages/dotnet/t/recursion.t Sat Dec 13 11:46:19 2008
@@ -38,16 +38,16 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.factorial(0)
+ $I0 = obj."factorial"(0)
print $I0
print "\n"
- $I0 = obj.factorial(1)
+ $I0 = obj."factorial"(1)
print $I0
print "\n"
- $I0 = obj.factorial(2)
+ $I0 = obj."factorial"(2)
print $I0
print "\n"
- $I0 = obj.factorial(10)
+ $I0 = obj."factorial"(10)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/staticfield.t
==============================================================================
--- trunk/languages/dotnet/t/staticfield.t (original)
+++ trunk/languages/dotnet/t/staticfield.t Sat Dec 13 11:46:19 2008
@@ -49,7 +49,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- obj.set_x(26)
+ obj."set_x"(26)
$P0 = new 'Integer'
$P0 = get_hll_global [ "Testing" ; "Test" ], "x"
print $P0
@@ -65,7 +65,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- obj.set_y(16)
+ obj."set_y"(16)
$P0 = new 'Integer'
$P0 = get_hll_global [ "Testing" ; "Test" ], "y"
print $P0
@@ -80,9 +80,9 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- obj.set_x(26)
- obj.set_y(16)
- $I0 = obj.add()
+ obj."set_x"(26)
+ obj."set_y"(16)
+ $I0 = obj."add"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/staticmethod.t
==============================================================================
--- trunk/languages/dotnet/t/staticmethod.t (original)
+++ trunk/languages/dotnet/t/staticmethod.t Sat Dec 13 11:46:19 2008
@@ -66,7 +66,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- obj.test_no_args()
+ obj."test_no_args"()
$P0 = new 'Integer'
$P0 = get_hll_global [ "Testing" ; "Test" ], "x"
print $P0
@@ -82,7 +82,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- obj.test_args(10)
+ obj."test_args"(10)
$P0 = new 'Integer'
$P0 = get_hll_global [ "Testing" ; "Test" ], "y"
print $P0
@@ -97,7 +97,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.test_ret()
+ $I0 = obj."test_ret"()
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/string.t
==============================================================================
--- trunk/languages/dotnet/t/string.t (original)
+++ trunk/languages/dotnet/t/string.t Sat Dec 13 11:46:19 2008
@@ -45,7 +45,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $S0 = obj.ret_string()
+ $S0 = obj."ret_string"()
print $S0
.end
PIR
@@ -57,7 +57,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $S0 = obj.ret_string_with_quotes()
+ $S0 = obj."ret_string_with_quotes"()
print $S0
.end
PIR
@@ -69,7 +69,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $S0 = obj.ret_string_with_quotes_s()
+ $S0 = obj."ret_string_with_quotes_s"()
print $S0
.end
PIR
Modified: trunk/languages/dotnet/t/switch.t
==============================================================================
--- trunk/languages/dotnet/t/switch.t (original)
+++ trunk/languages/dotnet/t/switch.t Sat Dec 13 11:46:19 2008
@@ -42,16 +42,16 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.test(0)
+ $I0 = obj."test"(0)
print $I0
print "\n"
- $I0 = obj.test(1)
+ $I0 = obj."test"(1)
print $I0
print "\n"
- $I0 = obj.test(2)
+ $I0 = obj."test"(2)
print $I0
print "\n"
- $I0 = obj.test(3)
+ $I0 = obj."test"(3)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/unsigned.t
==============================================================================
--- trunk/languages/dotnet/t/unsigned.t (original)
+++ trunk/languages/dotnet/t/unsigned.t Sat Dec 13 11:46:19 2008
@@ -72,19 +72,19 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.uge(500, 800)
+ $I0 = obj."uge"(500, 800)
print $I0
print "\n"
- $I0 = obj.uge(42, -20202)
+ $I0 = obj."uge"(42, -20202)
print $I0
print "\n"
- $I0 = obj.uge(800, 500)
+ $I0 = obj."uge"(800, 500)
print $I0
print "\n"
- $I0 = obj.uge(-20202, 42)
+ $I0 = obj."uge"(-20202, 42)
print $I0
print "\n"
- $I0 = obj.uge(5, 5)
+ $I0 = obj."uge"(5, 5)
print $I0
print "\n"
.end
@@ -101,19 +101,19 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.ugt(500, 800)
+ $I0 = obj."ugt"(500, 800)
print $I0
print "\n"
- $I0 = obj.ugt(42, -20202)
+ $I0 = obj."ugt"(42, -20202)
print $I0
print "\n"
- $I0 = obj.ugt(800, 500)
+ $I0 = obj."ugt"(800, 500)
print $I0
print "\n"
- $I0 = obj.ugt(-20202, 42)
+ $I0 = obj."ugt"(-20202, 42)
print $I0
print "\n"
- $I0 = obj.ugt(5, 5)
+ $I0 = obj."ugt"(5, 5)
print $I0
print "\n"
.end
@@ -130,19 +130,19 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.ule(500, 800)
+ $I0 = obj."ule"(500, 800)
print $I0
print "\n"
- $I0 = obj.ule(42, -20202)
+ $I0 = obj."ule"(42, -20202)
print $I0
print "\n"
- $I0 = obj.ule(800, 500)
+ $I0 = obj."ule"(800, 500)
print $I0
print "\n"
- $I0 = obj.ule(-20202, 42)
+ $I0 = obj."ule"(-20202, 42)
print $I0
print "\n"
- $I0 = obj.ule(5, 5)
+ $I0 = obj."ule"(5, 5)
print $I0
print "\n"
.end
@@ -159,19 +159,19 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.ult(500, 800)
+ $I0 = obj."ult"(500, 800)
print $I0
print "\n"
- $I0 = obj.ult(42, -20202)
+ $I0 = obj."ult"(42, -20202)
print $I0
print "\n"
- $I0 = obj.ult(800, 500)
+ $I0 = obj."ult"(800, 500)
print $I0
print "\n"
- $I0 = obj.ult(-20202, 42)
+ $I0 = obj."ult"(-20202, 42)
print $I0
print "\n"
- $I0 = obj.ult(5, 5)
+ $I0 = obj."ult"(5, 5)
print $I0
print "\n"
.end
@@ -188,10 +188,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.udiv(84,2)
+ $I0 = obj."udiv"(84,2)
print $I0
print "\n"
- $I0 = obj.udiv(5,3)
+ $I0 = obj."udiv"(5,3)
print $I0
print "\n"
.end
@@ -205,10 +205,10 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.urem(84,2)
+ $I0 = obj."urem"(84,2)
print $I0
print "\n"
- $I0 = obj.urem(5,3)
+ $I0 = obj."urem"(5,3)
print $I0
print "\n"
.end
Modified: trunk/languages/dotnet/t/valuetypes.t
==============================================================================
--- trunk/languages/dotnet/t/valuetypes.t (original)
+++ trunk/languages/dotnet/t/valuetypes.t Sat Dec 13 11:46:19 2008
@@ -104,7 +104,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.locals_1()
+ $I0 = obj."locals_1"()
print $I0
print "\n"
.end
@@ -117,7 +117,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.locals_2()
+ $I0 = obj."locals_2"()
print $I0
print "\n"
.end
@@ -130,7 +130,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.locals_3()
+ $I0 = obj."locals_3"()
print $I0
print "\n"
.end
@@ -143,7 +143,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.pass()
+ $I0 = obj."pass"()
print $I0
print "\n"
.end
@@ -156,7 +156,7 @@
.local pmc obj
load_bytecode "t.pbc"
obj = new [ "Testing" ; "Test" ]
- $I0 = obj.pass_ref()
+ $I0 = obj."pass_ref"()
print $I0
print "\n"
.end
|
|