Lines Matching refs:subexpr
1750 $subexpr = $input_expr{$type_kind{$subtype}};
1751 $subexpr =~ s/\$type/\$subtype/g;
1752 $subexpr =~ s/ntype/subtype/g;
1753 $subexpr =~ s/\$arg/ST(ix_$var)/g;
1754 $subexpr =~ s/\n\t/\n\t\t/g;
1755 $subexpr =~ s/is not of (.*\")/[arg %d] is not of $1, ix_$var + 1/g;
1756 $subexpr =~ s/\$var/${var}[ix_$var - $argoff]/;
1757 $expr =~ s/DO_ARRAY_ELEM/$subexpr/;
1819 $subexpr = $output_expr{$type_kind{$subtype}};
1820 $subexpr =~ s/ntype/subtype/g;
1821 $subexpr =~ s/\$arg/ST(ix_$var)/g;
1822 $subexpr =~ s/\$var/${var}[ix_$var]/g;
1823 $subexpr =~ s/\n\t/\n\t\t/g;
1824 $expr =~ s/DO_ARRAY_ELEM\n/$subexpr/;