Lines Matching refs:code
12 # It was brought to my attention that on EM64T compiler-generated code
14 # Opteron where compiler-generated code was only 15% behind 32-bit
16 # There was suggestion to mechanically translate 32-bit code, but I
19 # implementation:-) However! While 64-bit code does performs better
23 # core must have managed to run-time optimize even 32-bit code just as
50 my ($code, $ctx, $inp, $num, $xi, $t0, $t1, $i, @V, $A, $B, $C, $D, $E, $T);
64 # reassign arguments in order to produce more compact code
86 $code.=<<___;
109 $code.=<<___;
122 $code.=<<___ if ($i==0);
127 $code.=<<___ if ($i<15);
142 $code.=<<___ if ($i>=15);
166 $code.=<<___ if ($i<79);
182 $code.=<<___ if ($i<76);
185 $code.=<<___ if ($i==79);
201 $code.=<<___;
228 $code=<<___;
245 $code.=".align 4\n.Lloop:\n";
250 $code.=<<___;
273 $code.=<<___;
281 $code =~ s/\`([^\`]*)\`/eval $1/gem;
282 print $code;