Fix a subid issue with list() exposed by HLL migration.

rakudo · May 14, 2009 · 60c2bce · 60c2bce
1 parent 1b79d4f
commit 60c2bce
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 4 deletions.
diff --git a/src/classes/IO.pir b/src/classes/IO.pir
@@ -95,7 +95,7 @@ Read all of the lines and return them as a List.
 =cut
 
 .namespace ['IOIterator']
-.sub 'list' :method
+.sub 'list' :method :subid('')
     .local pmc pio, ins, res, chomper
     $P0 = getattribute self, "$!IO"
     pio = getattribute $P0, "$!PIO"

diff --git a/src/classes/Nil.pir b/src/classes/Nil.pir
@@ -25,7 +25,7 @@ src/classes/Nil.pir - Nil objects
 =cut
 
 .namespace ['Nil']
-.sub 'list' :method
+.sub 'list' :method :subid('')
     $P0 = new 'List'
     .return ($P0)
 .end

diff --git a/src/parrot/ClassHOW.pir b/src/parrot/ClassHOW.pir
@@ -271,7 +271,8 @@ Dispatches to method of the given name on this class or one of its parents.
 
   autothread_invocant:
     .local pmc values, values_it, res, res_list, type
-    res_list = 'list'()
+    .const 'Sub' $P1 = 'list'
+    res_list = $P1()
     values = obj.'eigenstates'()
     values_it = iter values
   values_it_loop:

diff --git a/src/parrot/misc.pir b/src/parrot/misc.pir
@@ -5,7 +5,7 @@ This version of list morphs a ResizablePMCArray into a List.
 =cut
 
 .namespace ['ResizablePMCArray']
-.sub 'list' :method
+.sub 'list' :method :subid('')
     ##  this code morphs a ResizablePMCArray into a List
     ##  without causing a clone of any of the elements
     $P0 = new 'ResizablePMCArray'