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

Author: jonathan
Date: Fri Jan  9 10:16:52 2009
New Revision: 35317

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

Log:
[rakudo] One more unused function I missed last time that we can now rip out.

Modified: trunk/languages/perl6/src/builtins/guts.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/guts.pir	(original)
+++ trunk/languages/perl6/src/builtins/guts.pir	Fri Jan  9 10:16:52 2009
@@ -853,29 +853,6 @@
 .end
 
 
-=item !PROTOINIT
-
-Called after a new proto-object has been made for a new class or grammar. It
-finds any WHENCE data that we may need to add.
-
-=cut
-
-.sub '!PROTOINIT'
-    .param pmc proto
-
-    # See if there's any attribute initializers.
-    .local pmc p6meta, WHENCE
-    p6meta = get_hll_global ['Perl6Object'], '$!P6META'
-    $P0 = p6meta.'get_parrotclass'(proto)
-    WHENCE = getprop '%!WHENCE', $P0
-    if null WHENCE goto no_whence
-
-    setprop proto, '%!WHENCE', WHENCE
-  no_whence:
-    .return (proto)
-.end
-
-
 =item !anon_enum(value_list)
 
 Constructs a Mapping, based upon the values list.

• [svn:parrot] r35317 - trunk/languages/perl6/src/builtins by jonathan