@@ -2714,29 +2714,6 @@ class QAST::CompilerJAST {
2714
2714
my $ outer := try $ * BLOCK ;
2715
2715
my $ block := BlockInfo. new ($ node , $ outer );
2716
2716
2717
- # We manage sharing of argument arrays.
2718
- my @ free_arg_arrays ;
2719
- my % arg_array_lengths ;
2720
- my & * GET_ARG_ARRAY := sub ($ size ) {
2721
- if @ free_arg_arrays [$ size ] {
2722
- nqp :: pop (@ free_arg_arrays [$ size ]);
2723
- }
2724
- else {
2725
- my $ new_name := ' __ARG_ARRAY_' ~ nqp :: elems (% arg_array_lengths );
2726
- % arg_array_lengths {$ new_name } := $ size ;
2727
- $ new_name
2728
- }
2729
- }
2730
- my & * FREE_ARG_ARRAY := sub ($ name ) {
2731
- my $ len := % arg_array_lengths {$ name };
2732
- if nqp ::islist(@ free_arg_arrays [$ len ]) {
2733
- nqp :: push (@ free_arg_arrays [$ len ], $ name );
2734
- }
2735
- else {
2736
- @ free_arg_arrays [$ len ] := [$ name ];
2737
- }
2738
- }
2739
-
2740
2717
# This array will contain any catch/control exception handlers the
2741
2718
# block gets. A contextual lets us track nesting of handlers.
2742
2719
my @ handlers ;
@@ -2912,14 +2889,6 @@ class QAST::CompilerJAST {
2912
2889
}
2913
2890
$ * BLOCK_TA . add_temps_to_method($ * JMETH );
2914
2891
2915
- # Add declarations and setup of arg arrays.
2916
- for % arg_array_lengths {
2917
- $ * JMETH . add_local($ _ . key , " [$ TYPE_OBJ" );
2918
- $ * JMETH . append (JAST::PushIndex. new ( : value($ _ . value ) ));
2919
- $ * JMETH . append (JAST::Instruction. new ( : op(' anewarray' ), $ TYPE_OBJ ));
2920
- $ * JMETH . append (JAST::Instruction. new ( : op(' astore' ), $ _ . key ));
2921
- }
2922
-
2923
2892
# Add method body JAST.
2924
2893
$ il . append ($ body . jast);
2925
2894
0 commit comments