Lines Matching refs:code
109 $code.=<<___ if ($i<15 && ($i%(16/$SZ))==(16/$SZ-1));
113 $code.=<<___ if ($i<16 && ($i%(16/$SZ)));
116 $code.=<<___ if ($LENDIAN && $i<16 && ($i%(16/$SZ))==0);
119 $code.=<<___ if ($i>=15);
126 $code.=<<___;
141 $code.=<<___ if ($k == 7);
146 $code=<<___;
193 $code.=<<___ if ($LENDIAN);
199 $code.=<<___ if ($SZ==4);
209 $code.=<<___ if ($SZ==8);
219 $code.=<<___;
240 $code.=<<___;
247 $code.=<<___;
269 $code.=<<___ if ($SZ==4);
281 $code.=<<___ if ($SZ==8);
291 $code.=<<___;
319 $code.=<<___;
335 foreach(@_) { $code.=".quad $_,$_\n"; }
378 $code.=<<___ if (!$LENDIAN);
381 $code.=<<___ if ($LENDIAN); # quad-swapped
386 foreach(@_) { $code.=".long $_,$_,$_,$_\n"; }
405 $code.=<<___ if (!$LENDIAN);
410 $code.=<<___ if ($LENDIAN); # word-swapped
416 $code.=<<___;
421 $code =~ s/\`([^\`]*)\`/eval $1/gem;
422 print $code;
