Lines Matching refs:code
15 my $code;
46 $code .= " ld.w $t0,$a1,0 /* (NEXT STEP) X[0] */\n" if ($pos == -1);
47 $code .= " xor $t1,$y,$z /* y ^ z */\n" if ($pos == -1);
48 $code .= " add.w $t2,$dst,$t0 /* dst + X[k] */\n" if ($pos == -1);
49 $code .= <<EOF;
60 $code .= " rotri.w $dst,$dst,32-$s /* dst <<< s */\n";
62 $code .= " xor $t1,$x,$y /* (NEXT STEP) y ^ z */\n";
64 $code .= " move $t0,$a7 /* (NEXT ROUND) $t0 = z' (copy of z) */\n";
65 $code .= " nor $t1,$zero,$a7 /* (NEXT ROUND) $t1 = not z' (copy of not z) */\n";
67 $code .= " add.w $dst,$dst,$x /* dst += x */\n";
82 $code .= <<EOF;
94 $code .= " rotri.w $dst,$dst,32-$s /* dst <<< s */\n";
96 $code .= " move $t0,$y /* (NEXT STEP) z' = $y */\n";
97 $code .= " nor $t1,$zero,$y /* (NEXT STEP) not z' = not $y */\n";
99 $code .= " xor $t1,$a6,$a7 /* (NEXT ROUND) $t1 = y ^ z */\n";
101 $code .= " add.w $dst,$dst,$x /* dst += x */\n";
115 $code .= <<EOF;
125 $code .= " rotri.w $dst,$dst,32-$s /* dst <<< s */\n";
127 $code .= " xor $t1,$x,$y /* (NEXT STEP) y ^ z */\n";
129 $code .= " nor $t1,$zero,$a7 /* (NEXT ROUND) $t1 = not z */\n";
131 $code .= " add.w $dst,$dst,$x /* dst += x */\n";
145 $code .= <<EOF;
154 $code .= " ld.w $t0,$a1,$k_next*4 /* (NEXT STEP) X[$k_next] */\n";
155 $code .= " add.w $dst,$t7,$t1 /* dst += ... */\n";
156 $code .= " add.w $t2,$z,$t0 /* (NEXT STEP) dst + X[$k_next] */\n";
157 $code .= " rotri.w $dst,$dst,32-$s /* dst <<< s */\n";
158 $code .= " nor $t1,$zero,$y /* (NEXT STEP) not z' = not $y */\n";
159 $code .= " add.w $dst,$dst,$x /* dst += x */\n";
161 $code .= " add.w $a4,$t3,$a4 /* (NEXT LOOP) add old value of A */\n";
162 $code .= " add.w $dst,$t7,$t1 /* dst += ... */\n";
163 $code .= " add.w $a7,$t6,$a7 /* (NEXT LOOP) add old value of D */\n";
164 $code .= " rotri.w $dst,$dst,32-$s /* dst <<< s */\n";
165 $code .= " addi.d $a1,$a1,64 /* (NEXT LOOP) ptr += 64 */\n";
166 $code .= " add.w $dst,$dst,$x /* dst += x */\n";
170 $code .= <<EOF;
276 $code .= <<EOF;
293 $code =~ s/\`([^\`]*)\`/eval($1)/gem;
295 print $code;
