Author: coke
Date: Wed Nov 12 11:28:37 2008
New Revision: 32576
Modified:
trunk/runtime/parrot/library/File/Spec/Win32.pir
trunk/runtime/parrot/library/HTTP/Daemon.pir
Log:
use of .return as a synonym for .tailcall is [DEPRECATED]
Modified: trunk/runtime/parrot/library/File/Spec/Win32.pir
==============================================================================
--- trunk/runtime/parrot/library/File/Spec/Win32.pir (original)
+++ trunk/runtime/parrot/library/File/Spec/Win32.pir Wed Nov 12 11:28:37 2008
@@ -97,7 +97,7 @@
rulesub= p6rule( ':ignorecase ^ ( <?alpha> \: )? <[\\/]>' )
match= rulesub( file )
- .return match.'__get_bool'()
+ .tailcall match.'__get_bool'()
.end
Modified: trunk/runtime/parrot/library/HTTP/Daemon.pir
==============================================================================
--- trunk/runtime/parrot/library/HTTP/Daemon.pir (original)
+++ trunk/runtime/parrot/library/HTTP/Daemon.pir Wed Nov 12 11:28:37 2008
@@ -470,7 +470,7 @@
srv = conn.'server'()
$I0 = srv.'exists_conn'(conn)
if $I0 goto do_read
- .return srv.'accept_conn'()
+ .tailcall srv.'accept_conn'()
do_read:
req = conn.'get_request'()
@@ -821,7 +821,7 @@
.sub hex_to_int
.param pmc hex
- .return hex.'to_int'(16)
+ .tailcall hex.'to_int'(16)
.end
# if file is *.pir or *.pbc run it as CGI
