Lines Matching refs:code
13 # faster than gcc and >60%(!) faster than code generated by HP-UX
14 # compiler (yes, HP-UX is generating slower code, because unlike gcc,
62 # To generate code, pass the file name with either 256 or 512 in its
108 $code=<<___;
169 $code.=<<___ if ($BITS==64);
180 $code.=<<___;
197 $t0="t0", $t1="t1", $code.=<<___ if ($BITS==32);
224 $t0="A", $t1="E", $code.=<<___ if ($BITS==64);
457 $code.=<<___;
507 $t0="t0", $t1="t1", $code.=<<___ if ($BITS==32);
524 $t0="A", $t1="E", $code.=<<___ if ($BITS==64);
534 $code.=<<___;
593 $code =~ s/\`([^\`]*)\`/eval $1/gem;
594 $code =~ s/_rotr(\s+)([^=]+)=([^,]+),([0-9]+)/shrp$1$2=$3,$3,$4/gm;
596 $code =~ s/mux2(\s+)\S+/nop.i$1 0x0/gm;
597 $code =~ s/mux1(\s+)\S+/nop.i$1 0x0/gm if ($big_endian);
598 $code =~ s/(shrp\s+X\[[^=]+)=([^,]+),([^,]+),([1-9]+)/$1=$3,$2,64-$4/gm
600 $code =~ s/ld1(\s+)X\[\S+/nop.m$1 0x0/gm;
603 print $code;
