[svn:parrot] r37580 - trunk/t/op

[coke at svn.parrot.org]

Author: coke
Date: Thu Mar 19 05:03:20 2009
New Revision: 37580
URL: https://trac.parrot.org/parrot/changeset/37580

Log:
remove usage of Deprecated .HLL_map directive

Modified:
   trunk/t/op/box.t

Modified: trunk/t/op/box.t
==============================================================================
--- trunk/t/op/box.t	Thu Mar 19 04:57:31 2009	(r37579)
+++ trunk/t/op/box.t	Thu Mar 19 05:03:20 2009	(r37580)
@@ -18,7 +18,7 @@
 
 .const int TESTS = 24
 
-# must set these up before the .HLL_map statements later
+# must set these up before the hll_map calls later
 .sub '__setup' :immediate
     $P0 = subclass 'Integer', 'MyInt'
     $P0 = subclass 'String',  'MyString'
@@ -93,10 +93,25 @@
 .end
 
 .HLL 'for_test'
-
-.HLL_map 'Integer' = 'MyInt'
-.HLL_map 'String'  = 'MyString'
-.HLL_map 'Float'   = 'MyFloat'
+.sub anon :anon :init
+  .local pmc interp
+  .local pmc cint, myint
+  .local pmc cstr, mystr
+  .local pmc cnum, mynum
+  interp = getinterp
+
+  cint  = get_class 'Integer'
+  myint = get_class 'MyInt'
+  interp.'hll_map'(cint,myint)
+
+  cstr  = get_class 'String'
+  mystr = get_class 'MyString'
+  interp.'hll_map'(cstr,mystr)
+
+  cnum  = get_class 'Float'
+  mynum = get_class 'MyFloat'
+  interp.'hll_map'(cnum,mynum)
+.end
 
 .sub 'box_int'
     .include 'include/test_more.pir'