crypto/perlasm/x86unix.pl

14 sub main'asm_init_output { @out=(); }
15 sub main'asm_get_output { return(@out); }
261 		push(@out,$tmp1);
262 		push(@out,$tmp2);
270 	push(@out,"\t$name\t");
273 	push(@out,$t);
276 	push(@out,$tmp1);
277 	push(@out,&conv($p1)."\n");
291 		push(@out,$tmp1);
292 		push(@out,$tmp2);
300 	push(@out,"\t$name\t".&conv($p1)."\n");
308 	push(@out,"\t$name\t*".&conv($p1)."\n");
313 	push(@out,"\t$_[0]\n");
336 	push(@out,$tmp);
350 	push(@out,$tmp);
352 		{ $tmp=push(@out,"TYPE($func,\@function)\n"); }
354 		{ $tmp=push(@out,".def\t$func;\t.scl\t2;\t.type\t32;\t.endef\n"); }
357 	else	{ $tmp=push(@out,".type\t$func,\@function\n"); }
358 	push(@out,".align\t$align\n");
359 	push(@out,"$func:\n");
367 	push(@out,$tmp);
382 	push(@out,$tmp);
384 		{ push(@out,"TYPE($func,\@function)\n"); }
386 		{ $tmp=push(@out,".def\t$func;\t.scl\t2;\t.type\t32;\t.endef\n"); }
389 	else	{ push(@out,".type	$func,\@function\n"); }
390 	push(@out,".align\t$align\n");
391 	push(@out,"$func:\n");
409 	push(@out,$tmp);
412 		{ push(@out,"SIZE($func,${dot}L_${func}_end-$func)\n"); }
415 	else	{ push(@out,".size\t$func,${dot}L_${func}_end-$func\n"); }
416 	push(@out,".ident	\"$func\"\n");
432 	push(@out,$tmp);
441 	push(@out,"${dot}L_${func}_end:\n");
443 		{ push(@out,"SIZE($func,${dot}L_${func}_end-$func)\n"); }
446 	else	{ push(@out,".size\t$func,${dot}L_${func}_end-$func\n"); }
447 	push(@out,".ident	\"$func\"\n");
491 		push(@out,"\n");	# so we just skip ELF comments...
497 			{ push(@out,"\n"); }
499 			{ push(@out,"\t$com_start $_ $com_end\n"); }
506 	push(@out,".globl\t$label{$_[0]}\n");
529 		else		{ push(@out,".align $align\n");	}
531 	push(@out,"$label{$_[0]}:\n");
537 	if ($main'elf && grep {/%[x]*mm[0-7]/i} @out) {
540 		push (@out,"\n.section\t.bss\n");
541 		push (@out,".comm\t${under}OPENSSL_ia32cap_P,4,4\n");
543 		push (@out,".section\t.init\n");
580 		push (@out,$tmp);
585 		push(@out,".section .rodata\n");
586 		push(@out,$const);
593 	push(@out,"\t.long\t".join(',',@_)."\n");
604 	push(@out,".align\t$val\n");
694 		push(@out,$tmp);
746 	push(@out,$tmp) if ($tmp);