[svn:parrot] r37579 - trunk/t/dynpmc

[coke at svn.parrot.org]

Author: coke
Date: Thu Mar 19 04:57:31 2009
New Revision: 37579
URL: https://trac.parrot.org/parrot/changeset/37579

Log:
Avoid deprecated .HLL_map directive

Modified:
   trunk/t/dynpmc/dynlexpad.t

Modified: trunk/t/dynpmc/dynlexpad.t
==============================================================================
--- trunk/t/dynpmc/dynlexpad.t	Thu Mar 19 04:14:07 2009	(r37578)
+++ trunk/t/dynpmc/dynlexpad.t	Thu Mar 19 04:57:31 2009	(r37579)
@@ -38,14 +38,16 @@
 OUTPUT
 
 my $loadlib = <<'EOC';
-#
-# the .loadlib directive gets run before the .HLL_map below is parsed,
-# therefore the .DynLexPad constant is already available
-#
 .loadlib "dynlexpad"
 
 .HLL "Some"
-.HLL_map "LexPad" = "DynLexPad"
+.sub load :anon :init
+  .local pmc interp, lexpad, dynlexpad
+  interp = getinterp
+  lexpad = get_class 'LexPad'
+  dynlexpad = get_class 'DynLexPad'
+  interp.'hll_map'(lexpad, dynlexpad)
+.end
 
 EOC