Author: coke
Date: Fri Mar 28 13:05:41 2008
New Revision: 26602
Modified:
trunk/t/compilers/imcc/imcpasm/sub.t
Log:
new_p_i is [DEPRECATED], remove it.
Modified: trunk/t/compilers/imcc/imcpasm/sub.t
==============================================================================
--- trunk/t/compilers/imcc/imcpasm/sub.t (original)
+++ trunk/t/compilers/imcc/imcpasm/sub.t Fri Mar 28 13:05:41 2008
@@ -10,7 +10,7 @@
##############################
pir_2_pasm_like( <<'CODE', <<'OUT', "non-constant dest bsr, invoke" );
.sub _main
- $P26 = new Sub
+ $P26 = new 'Sub'
$I15 = addr _sub1
$P26 = $I15
invokecc $P26
@@ -22,7 +22,7 @@
/^# IMCC does produce b0rken PASM files
# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html\?id=32392
_main:
- new P(\d+), \d+ # \.Sub
+ new P(\d+), 'Sub'
set_addr I(\d+), _sub1
set P\1, I\2
invokecc P\1
@@ -33,7 +33,7 @@
pir_2_pasm_like( <<'CODE', <<'OUT', "nonlocal bsr" );
.sub _main
- $P26 = new Sub
+ $P26 = new 'Sub'
$I15 = addr _f
$P26 = $I15
invokecc $P26
@@ -46,7 +46,7 @@
/^# IMCC does produce b0rken PASM files
# see http://[EMAIL PROTECTED]/rt3/Ticket/Display.html\?id=32392
_main:
- new P(\d+), \d+ # \.Sub
+ new P(\d+), 'Sub'
set_addr I(\d+), _f
set P\1, I\2
invokecc P\1
