Lines Matching refs:code
19 # 1. Redistributions of source code must retain the above copyright
75 my $code=".text\n\n";
89 $code.=<<___;
98 $code.=<<___;
110 $code.=<<___;
122 $code.=<<___;
130 $code.=<<___;
141 $code.=<<___;
156 $code.=<<___;
181 $code.=<<___;
348 $code.=<<___;
354 $code.=<<___;
358 $code.=<<___;
377 $code.=<<___;
383 $code.=<<___;
389 $code.=<<___;
395 $code.=<<___;
415 $code.=<<___;
424 $code.=<<___;
435 $code.=<<___;
472 $code.=<<___;
631 $code.=<<___;
640 $code.=<<___;
650 $code.=<<___;
658 $code.=<<___;
677 $code.=<<___;
687 $code.=<<___;
714 $code.=<<___;
725 $code.=<<___;
733 $code.=<<___;
1078 $code.=<<___;
1085 $code.=<<___;
1107 $code.=<<___;
1180 $code.=<<___;
1205 $code.=<<___;
1236 $code.=<<___;
1280 $code.=<<___;
1385 $code.=<<___;
1493 $code =~ s/(%[a-z0-9]+)#([bwd])/reg_part($1,$2)/gem;
1494 $code =~ s/\`([^\`]*)\`/eval $1/gem;
1495 $code =~ s/(\(\+[^)]+\))/eval $1/gem;
1496 print $code;