Author: jquelin
Date: Wed Oct 3 09:36:54 2007
New Revision: 21782
Modified:
branches/pdd15oo/t/pdd15oo/mmd.t
Log:
more find_type removal
Modified: branches/pdd15oo/t/pdd15oo/mmd.t
==============================================================================
--- branches/pdd15oo/t/pdd15oo/mmd.t (original)
+++ branches/pdd15oo/t/pdd15oo/mmd.t Wed Oct 3 09:36:54 2007
@@ -39,9 +39,9 @@
divide = global "Integer_divide_PerlInt"
mmdvtregister .MMD_DIVIDE, .Integer, type_perl_int, divide
- $P0 = new type_perl_int
+ $P0 = new 'PerlInt'
$P1 = new 'Integer'
- $P2 = new type_perl_int
+ $P2 = new 'PerlInt'
$P1 = 10
$P2 = 3
$P0 = $P1 / $P2
@@ -512,12 +512,10 @@
.sub 'test' :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new type_perl_string
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
@@ -553,12 +551,10 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new type_perl_string
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
@@ -594,12 +590,10 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new type_perl_string
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
@@ -638,14 +632,10 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
- .local int type_perl_int
- type_perl_int = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new type_perl_string
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
@@ -657,7 +647,7 @@
$P1 = "ok 4\n"
p($P0)
p($P1)
- $P0 = new type_perl_int
+ $P0 = new 'PerlInt'
$P0 = 42
p($P0)
.end
@@ -693,14 +683,10 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
- .local int type_perl_int
- type_perl_int = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new type_perl_string
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
@@ -739,14 +725,10 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
- .local int type_perl_int
- type_perl_int = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new type_perl_string
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
@@ -783,21 +765,17 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
- .local int type_perl_int
- type_perl_int = find_type 'PerlInt'
$P0 = new 'String'
$P0 = "ok 1\n"
- $P1 = new type_perl_string
+ $P1 = new 'PerlInt'
$P1 = "ok 2\n"
p($P0)
p($P1)
- $P0 = new type_perl_int
+ $P0 = new 'PerlInt'
$P0 = 42
p($P0)
- $P0 = new type_perl_int
+ $P0 = new 'PerlInt'
$P0 = 43
q($P0)
.end
@@ -875,14 +853,10 @@
.sub main :main
.local pmc lib_perl_group
lib_perl_group = loadlib 'perl_group'
- .local int type_perl_string
- type_perl_string = find_type 'PerlInt'
- .local int type_perl_int
- type_perl_int = find_type 'PerlInt'
.local pmc d, l, r
- l = new type_perl_int
- r = new type_perl_int
+ l = new 'PerlInt'
+ r = new 'PerlInt'
l = 3
r = 39
d = l."__add"(r)
