cvsuser 05/04/09 01:01:00
Modified: imcc parser_util.c
imcc/t/imcpasm optc.t pcc.t
imcc/t/reg spill.t
imcc/t/syn clash.t const.t keyed.t macro.t objects.t op.t
pcc.t tail.t
Log:
Dynamic Perl, Part 1 [IMCC]
Attached, find the first trivial chunk, which removes as much Perl*
from IMCC internals and tests as possible without writing actually
writing any new PMC code.
Courtesy of Will Coleda <[EMAIL PROTECTED]>
Revision Changes Path
1.99 +2 -2 parrot/imcc/parser_util.c
Index: parser_util.c
===================================================================
RCS file: /cvs/public/parrot/imcc/parser_util.c,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -r1.98 -r1.99
--- parser_util.c 25 Mar 2005 10:19:55 -0000 1.98
+++ parser_util.c 9 Apr 2005 08:00:56 -0000 1.99
@@ -885,7 +885,7 @@
/* OP _p_k _p_k_p_k =>
* set py, p_k
* set pz, p_k
- * new px, .PerlUndef
+ * new px, .Undef
* OP px, py, pz
* set _p_k_px
*/
@@ -944,7 +944,7 @@
}
}
/* make a new undef */
- iNEW(interpreter, unit, preg[0], str_dup("PerlUndef"), NULL, 1);
+ iNEW(interpreter, unit, preg[0], str_dup("Undef"), NULL, 1);
/* emit the operand */
INS(interpreter, unit, name, 0, preg, 3, 0, 1);
/* emit the LHS op */
1.14 +25 -25 parrot/imcc/t/imcpasm/optc.t
Index: optc.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/imcpasm/optc.t,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- optc.t 24 Mar 2005 14:08:17 -0000 1.13
+++ optc.t 9 Apr 2005 08:00:57 -0000 1.14
@@ -16,19 +16,19 @@
pir_2_pasm_like(<<'CODE', <<'OUT', "in P param");
.sub _main
- $P0 = new PerlUndef
+ $P0 = new Undef
$P0 = 42
foo($P0)
noop
end
.end
.sub foo prototyped
- .param PerlUndef a
+ .param Undef a
print a
.end
CODE
/_main:
- new (P\d+), \d+ # \.PerlUndef
+ new (P\d+), \d+ # \.Undef
set \1, 42
set_p_pc (P\d+), foo
@pcc_sub_call_\d:
@@ -53,8 +53,8 @@
pir_2_pasm_like(<<'CODE', <<'OUT', "in, out P param");
.sub _main
.local Sub sub
- .local PerlUndef x
- x = new PerlUndef
+ .local Undef x
+ x = new Undef
x = 42
newsub sub, .Sub, _sub
.pcc_begin prototyped
@@ -67,7 +67,7 @@
end
.end
.pcc_sub _sub prototyped
- .param PerlUndef a
+ .param Undef a
a = a + 1
.pcc_begin_return
.return a
@@ -76,7 +76,7 @@
CODE
/_main:
set P16, P1
- new P5, \d+ # \.PerlUndef
+ new P5, \d+ # \.Undef
set P5, 42
newsub P0, \d+, _sub
@pcc_sub_call_\d:
@@ -102,11 +102,11 @@
pir_2_pasm_like(<<'CODE', <<'OUT', "in, out P param, P var");
.sub _main
.local Sub sub
- .local PerlUndef x
- x = new PerlUndef
+ .local Undef x
+ x = new Undef
x = 42
- .local PerlUndef y
- y = new PerlUndef
+ .local Undef y
+ y = new Undef
y = 10
newsub sub, .Sub, _sub
.pcc_begin prototyped
@@ -120,7 +120,7 @@
end
.end
.pcc_sub _sub prototyped
- .param PerlUndef a
+ .param Undef a
a = a + 1
.pcc_begin_return
.return a
@@ -129,9 +129,9 @@
CODE
/_main:
set P16, P1
- new P5, \d+ # \.PerlUndef
+ new P5, \d+ # \.Undef
set P5, 42
- new P16, \d+ # \.PerlUndef
+ new P16, \d+ # \.Undef
set P16, 10
newsub P0, \d+, _sub
@pcc_sub_call_\d+:
@@ -158,22 +158,22 @@
pir_2_pasm_like(<<'CODE', <<'OUT', "in, out different P param");
.sub _main
.local Sub sub
- .local PerlUndef x
- x = new PerlUndef
+ .local Undef x
+ x = new Undef
x = 42
newsub sub, .Sub, _sub
.pcc_begin prototyped
.arg x
.pcc_call sub
ret:
- .local PerlUndef y
+ .local Undef y
.result y
.pcc_end
print y
end
.end
.pcc_sub _sub prototyped
- .param PerlUndef a
+ .param Undef a
a = a + 1
.pcc_begin_return
.return a
@@ -182,7 +182,7 @@
CODE
/_main:
set P16, P1
- new P5, \d+ # \.PerlUndef
+ new P5, \d+ # \.Undef
set P5, 42
newsub P0, \d+, _sub
@pcc_sub_call_\d:
@@ -208,15 +208,15 @@
pir_2_pasm_like(<<'CODE', <<'OUT', "in, out different P param, interfer");
.sub _main
.local Sub sub
- .local PerlUndef x
- x = new PerlUndef
+ .local Undef x
+ x = new Undef
x = 42
newsub sub, .Sub, _sub
.pcc_begin prototyped
.arg x
.pcc_call sub
ret:
- .local PerlUndef y
+ .local Undef y
.result y
.pcc_end
print x
@@ -224,7 +224,7 @@
end
.end
.pcc_sub _sub prototyped
- .param PerlUndef a
+ .param Undef a
a = a + 1
.pcc_begin_return
.return a
@@ -233,7 +233,7 @@
CODE
/_main:
set P16, P1
- new P16, \d+ # \.PerlUndef
+ new P16, \d+ # \.Undef
set P16, 42
newsub P0, \d+, _sub
@pcc_sub_call_\d:
1.23 +3 -3 parrot/imcc/t/imcpasm/pcc.t
Index: pcc.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/imcpasm/pcc.t,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -r1.22 -r1.23
--- pcc.t 4 Mar 2005 17:49:01 -0000 1.22
+++ pcc.t 9 Apr 2005 08:00:57 -0000 1.23
@@ -240,7 +240,7 @@
.arg $P1
.pcc_call sub
ret:
- .local PerlUndef k
+ .local Undef k
.result k
.pcc_end
end
@@ -367,7 +367,7 @@
end
.end
.pcc_sub _sub
- .param PerlUndef a
+ .param Undef a
print a
end
.end
1.13 +11 -11 parrot/imcc/t/reg/spill.t
Index: spill.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/reg/spill.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- spill.t 4 Mar 2005 17:49:02 -0000 1.12
+++ spill.t 9 Apr 2005 08:00:59 -0000 1.13
@@ -635,8 +635,8 @@
}
my $template2 = <<'TEMPLATE';
.sub _main
- new P3, .PerlInt
- new P4, .PerlInt
+ new P3, .Integer
+ new P4, .Integer
=LOCALS=
=INITS=
_sub(=ARGS=)
@@ -661,10 +661,10 @@
TEMPLATE
my $code = repeat($template2, 18,
- LOCALS => ".local PerlInt a<index>\n\ta<index> = new PerlInt",
+ LOCALS => ".local Integer a<index>\n\ta<index> = new Integer",
INITS => 'a<index> = <index>',
ARGS => 'a<index>',
- PARAMS => '.param PerlInt a<index>',
+ PARAMS => '.param Integer a<index>',
TESTS => "set I0, a<index>\nne I0, <index>, fail",
TESTS2 => "set I0, a<index>\nne I0, <index>, fail");
@@ -673,10 +673,10 @@
OUT
$code = repeat($template2, 22,
- LOCALS => ".local PerlInt a<index>\n\ta<index> = new PerlInt",
+ LOCALS => ".local Integer a<index>\n\ta<index> = new Integer",
INITS => 'a<index> = <index>',
ARGS => 'a<index>',
- PARAMS => '.param PerlInt a<index>',
+ PARAMS => '.param Integer a<index>',
TESTS => "set I0, a<index>\nne I0, <index>, fail",
TESTS2 => "set I0, a<index>\nne I0, <index>, fail");
@@ -685,10 +685,10 @@
OUT
$code = repeat($template2, 40,
- LOCALS => ".local PerlInt a<index>\n\ta<index> = new PerlInt",
+ LOCALS => ".local Integer a<index>\n\ta<index> = new Integer",
INITS => 'a<index> = <index>',
ARGS => 'a<index>',
- PARAMS => '.param PerlInt a<index>',
+ PARAMS => '.param Integer a<index>',
TESTS => "set I0, a<index>\nne I0, <index>, fail",
TESTS2 => "set I0, a<index>\nne I0, <index>, fail");
@@ -697,10 +697,10 @@
OUT
$code = repeat($template2, 60,
- LOCALS => ".local PerlInt a<index>\n\ta<index> = new PerlInt",
+ LOCALS => ".local Integer a<index>\n\ta<index> = new Integer",
INITS => 'a<index> = <index>',
ARGS => 'a<index>',
- PARAMS => '.param PerlInt a<index>',
+ PARAMS => '.param Integer a<index>',
TESTS => "set I0, a<index>\nne I0, <index>, fail",
TESTS2 => "set I0, a<index>\nne I0, <index>, fail");
1.15 +5 -5 parrot/imcc/t/syn/clash.t
Index: clash.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/clash.t,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- clash.t 4 Mar 2005 17:49:04 -0000 1.14
+++ clash.t 9 Apr 2005 08:00:59 -0000 1.15
@@ -57,9 +57,9 @@
pir_output_is(<<'CODE', <<'OUT', "new");
.sub test @MAIN
- $P1 = new PerlString
+ $P1 = new String
$P1 = "ok 1\n"
- new P1, .PerlString
+ new P1, .String
set P1, "ok 2\n"
print $P1
print P1
@@ -73,10 +73,10 @@
pir_output_is(<<'CODE', <<'OUT', "clone");
.sub test @MAIN
- $P1 = new PerlString
+ $P1 = new String
$P1 = "ok 1\n"
$P0 = clone $P1
- new P1, .PerlString
+ new P1, .String
set P1, "ok 2\n"
clone P0, P1
print $P0
1.12 +4 -3 parrot/imcc/t/syn/const.t
Index: const.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/const.t,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- const.t 4 Mar 2005 17:49:04 -0000 1.11
+++ const.t 9 Apr 2005 08:00:59 -0000 1.12
@@ -73,13 +73,14 @@
pir_output_is(<<'CODE', <<'OUT', "array/hash consts");
.sub _MAIN
- .local PerlArray ar
+ .local Array ar
.local pmc ha
.local string key1
.const string key2 = "key2"
.local int idx1
.const int idx2 = 2
- ar = new PerlArray
+ ar = new Array
+ ar = 3
ha = new Hash
key1 = "key1"
idx1 = 1
1.5 +7 -4 parrot/imcc/t/syn/keyed.t
Index: keyed.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/keyed.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- keyed.t 4 Mar 2005 17:49:04 -0000 1.4
+++ keyed.t 9 Apr 2005 08:00:59 -0000 1.5
@@ -8,9 +8,12 @@
##############################
pir_output_is(<<'CODE', <<'OUTPUT', "add_keyed");
.sub test @MAIN
- new P0, .PerlArray
- new P1, .PerlArray
- new P2, .PerlArray
+ new P0, .Array
+ new P1, .Array
+ new P2, .Array
+ P0 = 1
+ P1 = 2
+ P2 = 11
set P1[1], 32
set P2[10], 10
add P0[0], P1[1], P2[10]
1.11 +3 -3 parrot/imcc/t/syn/macro.t
Index: macro.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/macro.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- macro.t 4 Mar 2005 17:49:04 -0000 1.10
+++ macro.t 9 Apr 2005 08:00:59 -0000 1.11
@@ -147,7 +147,7 @@
.sym .CLASS .ID
.ID = new .CLASS
.endm
- .newid(var, PerlUndef)
+ .newid(var, Undef)
var = 10
print var
print "\n"
@@ -164,7 +164,7 @@
.ID = new .CLASS
# store_lex -1, .ID , .ID # how to stringify .ID
.endm
- .newlex(var, PerlUndef)
+ .newlex(var, Undef)
var = 10
print var
print "\n"
1.9 +3 -3 parrot/imcc/t/syn/objects.t
Index: objects.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/objects.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- objects.t 4 Mar 2005 17:49:04 -0000 1.8
+++ objects.t 9 Apr 2005 08:00:59 -0000 1.9
@@ -40,7 +40,7 @@
newclass class, "Foo"
find_type $I0, "Foo"
new obj, $I0
- $P0 = new PerlString
+ $P0 = new String
$P0 = "ok\n"
obj._meth($P0)
print "done\n"
@@ -66,7 +66,7 @@
newclass class, "Foo"
find_type $I0, "Foo"
new obj, $I0
- $P0 = new PerlString
+ $P0 = new String
$P0 = "ok\n"
$S0 = obj._meth($P0)
print $S0
1.7 +3 -3 parrot/imcc/t/syn/op.t
Index: op.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/op.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- op.t 4 Mar 2005 17:49:04 -0000 1.6
+++ op.t 9 Apr 2005 08:00:59 -0000 1.7
@@ -171,7 +171,7 @@
pir_output_is(<<'CODE', <<'OUT', "x = clone");
.sub test @MAIN
.local pmc a
- a = new PerlInt
+ a = new Integer
a = 10
.local pmc b
b = clone a
@@ -221,7 +221,7 @@
pir_output_is(<<'CODE', <<'OUT', "x = isa");
.sub test @MAIN
- $P0 = new PerlInt
+ $P0 = new Integer
$I0 = isa $P0, "scalar"
print $I0
print "\n"
1.53 +48 -48 parrot/imcc/t/syn/pcc.t
Index: pcc.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/pcc.t,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -r1.52 -r1.53
--- pcc.t 8 Apr 2005 02:26:26 -0000 1.52
+++ pcc.t 9 Apr 2005 08:00:59 -0000 1.53
@@ -147,9 +147,9 @@
.sub test @MAIN
.local Sub sub
newsub sub, .Sub, _sub
- $P0 = new PerlUndef
+ $P0 = new Undef
$P0 = "ok 1\n"
- $P1 = new PerlUndef
+ $P1 = new Undef
$P1 = "ok 2\n"
.pcc_begin prototyped
.arg $P0
@@ -161,8 +161,8 @@
end
.end
.pcc_sub _sub prototyped
- .param PerlUndef a
- .param PerlUndef b
+ .param Undef a
+ .param Undef b
print a
print b
.pcc_begin_return
@@ -177,9 +177,9 @@
.sub test @MAIN
.local Sub sub
newsub sub, .Sub, _sub
- $P0 = new PerlUndef
+ $P0 = new Undef
$P0 = "ok 1\n"
- $P1 = new PerlUndef
+ $P1 = new Undef
$P1 = "ok 2\n"
.pcc_begin prototyped
.arg $P0
@@ -191,8 +191,8 @@
end
.end
.pcc_sub _sub
- .param PerlUndef a
- .param PerlUndef b
+ .param Undef a
+ .param Undef b
print a
print b
.pcc_begin_return
@@ -456,8 +456,8 @@
.sub test @MAIN
.local Sub sub
newsub sub, .Sub, _sub
- $P0 = new PerlUndef
- $P1 = new PerlUndef
+ $P0 = new Undef
+ $P1 = new Undef
$P0 = "ok 1\n"
$P1 = "ok 2\n"
.pcc_begin prototyped
@@ -470,14 +470,14 @@
end
.end
.pcc_sub _sub
- .param PerlUndef a
- .param PerlUndef b
+ .param Undef a
+ .param Undef b
print a
print b
.local Sub sub
newsub sub, .Sub, _sub2
- $P0 = new PerlUndef
- $P1 = new PerlUndef
+ $P0 = new Undef
+ $P1 = new Undef
$P0 = "ok 3\n"
$P1 = "ok 4\n"
.pcc_begin prototyped
@@ -492,8 +492,8 @@
.pcc_end_return
.end
.pcc_sub _sub2
- .param PerlUndef a
- .param PerlUndef b
+ .param Undef a
+ .param Undef b
print a
print b
.pcc_begin_return
@@ -512,18 +512,18 @@
pir_output_is(<<'CODE', <<'OUT', "in, out different P param, 2 subs");
.sub test @MAIN
.local Sub sub
- .local PerlUndef x
- x = new PerlUndef
+ .local Undef x
+ x = new Undef
x = 42
newsub sub, .Sub, _sub
.pcc_begin prototyped
.arg x
.pcc_call sub
ret:
- .local PerlUndef y
+ .local Undef y
.result y
.pcc_end
- .local PerlUndef z
+ .local Undef z
z = y
.pcc_begin prototyped
.arg y
@@ -540,9 +540,9 @@
end
.end
.pcc_sub _sub prototyped
- .param PerlUndef a
- .local PerlUndef res
- res = new PerlUndef
+ .param Undef a
+ .local Undef res
+ res = new Undef
res = a + 1
.pcc_begin_return
.return res
@@ -581,7 +581,7 @@
# g from line 1
.pcc_sub _sub0 non_prototyped
.local pmc res0 # (visitReturn:528)
- res0 = new PerlInt # (expressConstant:153)
+ res0 = new Integer # (expressConstant:153)
res0 = 42 # (expressConstant:154)
.pcc_begin_return # (visitReturn:530)
.return res0 # (visitReturn:531)
@@ -630,8 +630,8 @@
.local pmc generator
# call count and get the generator
- .local PerlInt start
- start = new PerlInt
+ .local Integer start
+ start = new Integer
start = 3
.pcc_begin non_prototyped
.arg start
@@ -676,7 +676,7 @@
# here is count(), which returns the generator
.pcc_sub _count non_prototyped
- .param PerlInt start
+ .param Integer start
.local pmc gen_fun
.local pmc gen_obj
store_lex -1, "start", start
@@ -689,7 +689,7 @@
# here is the generator itself
# all it does is throw StopIteration
.pcc_sub _count_g non_prototyped
- .local PerlInt c
+ .local Integer c
count_loop:
find_lex c, -1, "start"
lt c, 0, stop
@@ -707,7 +707,7 @@
.local pmc ex0
.local pmc msg0
ex0 = new Exception
- msg0 = new PerlString
+ msg0 = new String
msg0 = 'StopIteration'
ex0['_message'] = msg0
throw ex0
@@ -788,10 +788,10 @@
OUT
$code = repeat($template, 18,
- LOCALS => ".local PerlInt a<index>\n\ta<index> = new PerlInt",
+ LOCALS => ".local Integer a<index>\n\ta<index> = new Integer",
INITS => 'a<index> = <index>',
ARGS => '.arg a<index>',
- PARAMS => '.param PerlInt a<index>',
+ PARAMS => '.param Integer a<index>',
TESTS => "set I0, a<index>\nne I0, <index>, fail");
pir_output_is($code, <<'OUT', "overflow pmcs");
@@ -799,10 +799,10 @@
OUT
$code = repeat($template, 40,
- LOCALS => ".local PerlInt a<index>\n\ta<index> = new PerlInt",
+ LOCALS => ".local Integer a<index>\n\ta<index> = new Integer",
INITS => 'a<index> = <index>',
ARGS => '.arg a<index>',
- PARAMS => '.param PerlInt a<index>',
+ PARAMS => '.param Integer a<index>',
TESTS => "set I0, a<index>\nne I0, <index>, fail");
pir_output_is($code, <<'OUT', "overflow pmcs 40");
@@ -843,7 +843,7 @@
newsub sub, .Sub, _sub
.local pmc ar
.local pmc x
- x = new PerlString
+ x = new String
x = "first\n"
ar = new PerlArray
push ar, "ok 1\n"
@@ -874,10 +874,10 @@
newsub sub, .Sub, _sub
.local pmc ar
.local pmc x
- x = new PerlString
+ x = new String
x = "first\n"
.local pmc y
- y = new PerlString
+ y = new String
y = "last\n"
ar = new PerlArray
push ar, "ok 1\n"
@@ -914,13 +914,13 @@
.local Sub sub
newsub sub, .Sub, _sub
.local pmc x
- x = new PerlString
+ x = new String
x = "first\n"
.local pmc y
- y = new PerlString
+ y = new String
y = "middle\n"
.local pmc z
- z = new PerlString
+ z = new String
z = "last\n"
.local pmc ar
ar = new PerlArray
@@ -981,13 +981,13 @@
.local Sub sub
newsub sub, .Sub, _sub
.local pmc x
- x = new PerlString
+ x = new String
x = "first\n"
.local pmc y
- y = new PerlString
+ y = new String
y = "middle\n"
.local pmc z
- z = new PerlString
+ z = new String
z = "last\n"
.local pmc ar
ar = new PerlArray
@@ -1052,13 +1052,13 @@
.local Sub sub
newsub sub, .Sub, _sub
.local pmc x
- x = new PerlString
+ x = new String
x = "first\n"
.local pmc y
- y = new PerlString
+ y = new String
y = "middle\n"
.local pmc z
- z = new PerlString
+ z = new String
z = "last\n"
.local pmc ar
ar = new PerlArray
@@ -1193,7 +1193,7 @@
.pcc_sub _main non_prototyped
#Positional parameters:
- .param PerlArray command_line
+ .param Array command_line
.pcc_begin_return
.pcc_end_return
.end
@@ -1294,7 +1294,7 @@
pir_output_is(<<'CODE', <<'OUT', "P3 is NULL - 11 args");
.sub test @MAIN
- P3 = new .PerlArray
+ P3 = new .Array
# call with 11 parameters
_foo($P1, $P2, $P3, $P4, $P5, $P6, $P7, $P8, $P9, $P10, $P11)
end
1.4 +19 -19 parrot/imcc/t/syn/tail.t
Index: tail.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/tail.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- tail.t 21 Mar 2005 09:10:24 -0000 1.3
+++ tail.t 9 Apr 2005 08:00:59 -0000 1.4
@@ -14,9 +14,9 @@
.sub _main @MAIN
- $P1 = new PerlInt
+ $P1 = new Integer
$P1 = 20
- $P2 = new PerlInt
+ $P2 = new Integer
$P2 = 3
newsub $P99, .Sub, _floor
($P3, $P4) = _funcall($P99, $P1, $P2)
@@ -65,12 +65,12 @@
.param pmc arg1
.param pmc arg2
- $P1 = new PerlInt
+ $P1 = new Integer
$P1 = arg1 / arg2
## truncate.
$I1 = $P1
$P1 = $I1
- $P2 = new PerlInt
+ $P2 = new Integer
$P2 = arg1 % arg2
.pcc_begin_return
.return $P1
@@ -83,7 +83,7 @@
.param pmc arg1
.param pmc arg2
- $P1 = new PerlInt
+ $P1 = new Integer
$P1 = arg1 + arg2
.pcc_begin_return
.return $P1
@@ -102,9 +102,9 @@
.sub _main @MAIN
- $P1 = new PerlInt
+ $P1 = new Integer
$P1 = 20
- $P2 = new PerlInt
+ $P2 = new Integer
$P2 = 3
newsub $P99, .Sub, _floor
($P3, $P4) = _funcall($P99, $P1, $P2)
@@ -153,12 +153,12 @@
.param pmc arg1
.param pmc arg2
- $P1 = new PerlInt
+ $P1 = new Integer
$P1 = arg1 / arg2
## truncate.
$I1 = $P1
$P1 = $I1
- $P2 = new PerlInt
+ $P2 = new Integer
$P2 = arg1 % arg2
.pcc_begin_return
.return $P1
@@ -171,7 +171,7 @@
.param pmc arg1
.param pmc arg2
- $P1 = new PerlInt
+ $P1 = new Integer
$P1 = arg1 + arg2
.pcc_begin_return
.return $P1
@@ -190,9 +190,9 @@
.sub _main @MAIN
- $P1 = new PerlInt
+ $P1 = new Integer
$P1 = 20
- $P2 = new PerlInt
+ $P2 = new Integer
$P2 = 3
newsub $P99, .Sub, _floor
($P3, $P4) = _funcall($P99, $P1, $P2)
@@ -239,12 +239,12 @@
.param pmc arg1
.param pmc arg2
- $P1 = new PerlInt
+ $P1 = new Integer
$P1 = arg1 / arg2
## truncate.
$I1 = $P1
$P1 = $I1
- $P2 = new PerlInt
+ $P2 = new Integer
$P2 = arg1 % arg2
.pcc_begin_return
.return $P1
@@ -257,7 +257,7 @@
.param pmc arg1
.param pmc arg2
- $P1 = new PerlInt
+ $P1 = new Integer
$P1 = arg1 + arg2
.pcc_begin_return
.return $P1
@@ -276,9 +276,9 @@
.sub _main @MAIN
- $P1 = new PerlInt
+ $P1 = new Integer
$P1 = 20
- $P2 = new PerlInt
+ $P2 = new Integer
$P2 = 3
newsub $P98, .Sub, _fib_step
($P3, $P4, $P5) = _funcall($P98, $P1, $P2)
@@ -323,7 +323,7 @@
.param pmc arg1
.param pmc arg2
- $P1 = new PerlInt
+ $P1 = new Integer
$P1 = arg1 + arg2
.pcc_begin_return
.return $P1
