develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35345 - trunk/languages/perl6/src/builtins

From:
pmichaud
Date:
January 10, 2009 09:11
Subject:
[svn:parrot] r35345 - trunk/languages/perl6/src/builtins
Message ID:
20090110171103.8A4CDCB9F9@x12.develooper.com
Author: pmichaud
Date: Sat Jan 10 09:11:02 2009
New Revision: 35345

Modified:
   trunk/languages/perl6/src/builtins/guts.pir

Log:
[rakudo]:  Eliminate unused !COPYPARAM function.


Modified: trunk/languages/perl6/src/builtins/guts.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/guts.pir	(original)
+++ trunk/languages/perl6/src/builtins/guts.pir	Sat Jan 10 09:11:02 2009
@@ -105,24 +105,6 @@
 .end
 
 
-=item !COPYPARAM
-
-Copies a param for the is copy trait, taking account of any ObjectRef and
-dereferencing it so we really do copy the underlying value.
-
-=cut
-
-.sub '!COPYPARAM'
-    .param pmc target
-    .param pmc source
-    $I0 = isa source, 'ObjectRef'
-    unless $I0 goto no_deref
-    source = deref source
-  no_deref:
-    .tailcall 'infix:='(target, source)
-.end
-
-
 =item !SAMETYPE_EXACT
 
 Takes two types and returns true if they match exactly (not accounting for any



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About