[svn:parrot] r38048 - branches/packfile_revamp/t/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Apr 11 02:23:52 2009
New Revision: 38048
URL: https://trac.parrot.org/parrot/changeset/38048

Log:
Add helper function _get_fixup_table

Modified:
   branches/packfile_revamp/t/pmc/packfile_common.pir

Modified: branches/packfile_revamp/t/pmc/packfile_common.pir
==============================================================================
--- branches/packfile_revamp/t/pmc/packfile_common.pir	Sat Apr 11 02:23:37 2009	(r38047)
+++ branches/packfile_revamp/t/pmc/packfile_common.pir	Sat Apr 11 02:23:52 2009	(r38048)
@@ -26,6 +26,18 @@
     .return(pf)
 .end
 
+.sub '_get_fixup_table'
+    .param pmc pf
+    .local pmc pfdir, pftable
+    
+    pfdir   = pf.'get_directory'()
+    $P0   = iter pfdir
+    $S0   = shift $P0
+    $S0   = shift $P0
+    pftable = pfdir[$S0]
+    .return (pftable)
+.end
+
 
 
 # Local Variables: