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

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

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