Lines Matching refs:qq
214 print qq|static void $test(void)\n|;
215 print qq|\{\n|;
256 print qq| $ArgTypes{$type} $name = \{ .$subtype = \{|;
262 print qq|,| if $valuec > 0;
263 print qq| $value$SubTypeSuffixes{$subtype}|;
267 print qq| \} \};\n|;
293 print qq| $ArgTypes{$type} $name = \{ .$subtype = \{|;
299 print qq|,| if $valuec > 0;
300 print qq| $value$SubTypeSuffixes{$subtype}|;
304 print qq| \} \};\n|;
378 print qq| $ArgTypes{$type} $name = \{ .$subtype = \{|;
384 print qq|,| if $valuec > 0;
385 print qq| $value$SubTypeSuffixes{$subtype}|;
389 print qq| \} \};\n|;
415 print qq| $ArgTypes{$type} $name = \{ .$subtype = \{|;
421 print qq|,| if $valuec > 0;
422 print qq| $value$SubTypeSuffixes{$subtype}|;
426 print qq| \} \};\n|;
503 print qq| $ArgTypes{$type} $name|;
504 print qq| = arg$index| if $type =~ /^m(8|16|32|64|128)$/;
505 print qq|;\n|;
526 print qq| $ArgTypes{$type} $name;\n|;
545 print qq| $ArgTypes{$type} $name;\n|;
563 print qq| $ArgTypes{eflags} $name;\n|;
587 print qq| $ArgTypes{fpucw} $name;\n|;
611 print qq| $ArgTypes{fpusw} $name;\n|;
660 print qq| char state\[108\];\n|;
661 print qq|\n|;
662 print qq| if (sigsetjmp(catchpoint, 1) == 0)\n|;
663 print qq| \{\n|;
664 print qq| asm\(\n|;
665 # print qq| \"fsave %$stateargnum\\n\"\n|;
666 print qq| \"ffree %%st(7)\\n\"\n|;
667 print qq| \"ffree %%st(6)\\n\"\n|;
668 print qq| \"ffree %%st(5)\\n\"\n|;
669 print qq| \"ffree %%st(4)\\n\"\n|;
677 print qq| \"movb %$arg->{argnum}, %%$arg->{register}\\n\"\n|;
681 print qq| \"movw %$arg->{argnum}, %%$arg->{register}\\n\"\n|;
685 print qq| \"movl %$arg->{argnum}, %%$arg->{register}\\n\"\n|;
689 print qq| \"movq %$arg->{argnum}, %%$arg->{register}\\n\"\n|;
693 print qq| \"movq %$arg->{argnum}, %%$arg->{register}\\n\"\n|;
697 print qq| \"movlps %$arg->{argnuml}, %%$arg->{register}\\n\"\n|;
698 print qq| \"movhps %$arg->{argnumh}, %%$arg->{register}\\n\"\n|;
712 print qq| \"flds %$arg->{argnum}\\n\"\n|;
716 print qq| \"fldl %$arg->{argnum}\\n\"\n|;
721 print qq| \"fldz\\n\"\n|;
727 print qq| \"pushfq\\n\"\n|;
728 print qq| \"andl \$$eflagsmask, (%%rsp)\\n\"\n| if defined($eflagsmask);
729 print qq| \"andl \$0, 4(%%rsp)\\n\"\n| if defined($eflagsmask);
730 print qq| \"orq \$$eflagsset, (%%rsp)\\n\"\n| if defined($eflagsset);
731 print qq| \"popfq\\n\"\n|;
736 print qq| \"subq \$2, %%rsp\\n\"\n|;
737 print qq| \"fstcw (%%rsp)\\n\"\n|;
738 print qq| \"andw \$$fpucwmask, (%%rsp)\\n\"\n| if defined($fpucwmask);
739 print qq| \"orw \$$fpucwset, (%%rsp)\\n\"\n| if defined($fpucwset);
740 print qq| \"fldcw (%%rsp)\\n\"\n|;
741 print qq| \"addq \$2, %%rsp\\n\"\n|;
744 print qq| \"$insn|;
754 print qq|$prefix%%$arg->{register}|;
762 print qq|$prefix%%$register|;
768 print qq|$prefix%$arg->{result}->{argnum}|;
772 print qq|$prefix%$arg->{argnum}|;
777 print qq|$prefix\$$arg->{value}|;
783 print qq|\\n\"\n|;
791 print qq| \"movb %%$result->{register}, %$result->{argnum}\\n\"\n|;
795 print qq| \"movw %%$result->{register}, %$result->{argnum}\\n\"\n|;
799 print qq| \"movl %%$result->{register}, %$result->{argnum}\\n\"\n|;
803 print qq| \"movq %%$result->{register}, %$result->{argnum}\\n\"\n|;
807 print qq| \"movq %%$result->{register}, %$result->{argnum}\\n\"\n|;
811 print qq| \"movlps %%$result->{register}, %$result->{argnuml}\\n\"\n|;
812 print qq| \"movhps %%$result->{register}, %$result->{argnumh}\\n\"\n|;
820 print qq| \"pushfq\\n\"\n|;
821 print qq| \"popq %$result->{argnum}\\n\"\n|;
825 print qq| \"fstcw %$result->{argnum}\\n\"\n|;
829 print qq| \"fstsw %$result->{argnum}\\n\"\n|;
839 print qq| \"fstps %$result->{argnum}\\n\"\n|;
843 print qq| \"fstpl %$result->{argnum}\\n\"\n|;
848 print qq| \"fincstp\\n\"\n|;
852 # print qq| \"frstor %$stateargnum\\n\"\n|;
854 print qq| :|;
862 print qq|$prefix\"=m\" \($result->{name}.uq[0]\), \"=m\" \($result->{name}.uq[1]\)|;
866 print qq|$prefix\"=m\" \($result->{name}\)|;
872 print qq|\n|;
882 print qq|$prefix\"m\" \($arg->{name}.uq[0]\), \"m\" \($arg->{name}.uq[1]\)|;
886 print qq|$prefix\"m\" \($arg->{name}\)|;
893 print qq|$prefix\"m\" \(state[0]\)\n|;
904 print qq|$prefix\"$register\"|;
909 print qq|\n|;
911 print qq| \);\n|;
912 print qq|\n|;
916 print qq| if \(|;
929 print qq|${prefix}\($result->{name}.ud[0] & $values[0]UL\) == $values[1]UL|;
933 print qq|${prefix}\($result->{name}.uw[0] & $values[0]\) == $values[1]|;
941 print qq|${prefix}eq_float($result->{name}.$subtype\[$value\], $values[$value]$suffix)|;
945 print qq|${prefix}eq_double($result->{name}.$subtype\[$value\], $values[$value]$suffix)|;
949 print qq|${prefix}$result->{name}.$subtype\[$value\] == $values[$value]$suffix|;
959 print qq| \)\n|;
960 print qq| \{\n|;
961 print qq| printf("$test ... ok\\n");\n|;
962 print qq| \}\n|;
963 print qq| else\n|;
964 print qq| \{\n|;
965 print qq| printf("$test ... not ok\\n");\n|;
976 print qq| printf(" eflags & 0x%lx = 0x%lx (expected 0x%lx)\\n", $values[0]UL, $result->{name}.ud\[0\] & $values[0]UL, $values[1]UL);\n|;
980 print qq| printf(" $type & 0x%x = 0x%x (expected 0x%x)\\n", $values[0], $result->{name}.uw\[0\] & $values[0], $values[1]);\n|;
986 print qq| printf(" $result->{name}.$subtype\[$value\] = $SubTypeFormats{$subtype} (expected $SubTypeFormats{$subtype})\\n", $result->{name}.$subtype\[$value\], $values[$value]$suffix);\n|;
991 print qq| \}\n|;
995 print qq| printf("$test ... ok\\n");\n|;
998 print qq| \}\n|;
999 print qq| else\n|;
1000 print qq| \{\n|;
1001 print qq| printf("$test ... failed\\n");\n|;
1002 print qq| \}\n|;
1003 print qq|\n|;
1004 print qq| return;\n|;
1005 print qq|\}\n|;
1006 print qq|\n|;
1009 print qq|int main(int argc, char **argv)\n|;
1010 print qq|\{\n|;
1011 print qq| signal(SIGILL, handle_sigill);\n|;
1012 print qq|\n|;
1016 print qq| $test();\n|;
1019 print qq|\n|;
1020 print qq| exit(0);\n|;
1021 print qq|\}\n|;
