diff options
Diffstat (limited to 'sysdeps/ia64/fpu/import_file.awk')
-rw-r--r-- | sysdeps/ia64/fpu/import_file.awk | 151 |
1 files changed, 0 insertions, 151 deletions
diff --git a/sysdeps/ia64/fpu/import_file.awk b/sysdeps/ia64/fpu/import_file.awk deleted file mode 100644 index 97fe77e..0000000 --- a/sysdeps/ia64/fpu/import_file.awk +++ /dev/null @@ -1,151 +0,0 @@ -BEGIN { - getline; - while (!match($0, "^/[/*] static char cvs_id")) { - print; - getline; - } - getline; - while (!match($0, "^// WARRANTY DISCLAIMER")) { - print; - if (!getline) { - break; - } - } - if (getline) - { - printf \ -"// Redistribution and use in source and binary forms, with or without\n" \ -"// modification, are permitted provided that the following conditions are\n" \ -"// met:\n" \ -"//\n" \ -"// * Redistributions of source code must retain the above copyright\n" \ -"// notice, this list of conditions and the following disclaimer.\n" \ -"//\n" \ -"// * Redistributions in binary form must reproduce the above copyright\n" \ -"// notice, this list of conditions and the following disclaimer in the\n" \ -"// documentation and/or other materials provided with the distribution.\n" \ -"//\n" \ -"// * The name of Intel Corporation may not be used to endorse or promote\n" \ -"// products derived from this software without specific prior written\n" \ -"// permission.\n\n"; - if (LICENSE_ONLY == "y") { - do { - print; - } while (getline); - } - } -} - -/^[.]data/ { - print "RODATA"; - next; -} -/^([a-zA-Z_0-9]*_(tb[l0-9]|Tt|[tT]able|data|low|coeffs|constants|CONSTANTS|reduction|Stirling)(_?([1-9cdimpqstPQT]+|tail))?|(Constants|Poly|coeff)_.+|(double_sin_?cos|double_cis)[fl]?_.+):/ { - table_name=substr($1,1,length($1)-1); - printf "LOCAL_OBJECT_START(%s)\n", table_name; - getline; - while (!match($0, "^[ \t]*data")) { - print; - getline; - } - while (match($0, "(//|^[ \t]*data)")) { - print; - getline; - } - printf "LOCAL_OBJECT_END(%s)\n\n", table_name; - next; -} -/^[.]proc[ \t]+__libm_(error_region|callout)/ { - printf "LOCAL_LIBM_ENTRY(%s)\n", $2; - getline; - next; -} -/^[.]endp[ \t]+__libm_(error_region|callout)/ { - printf "LOCAL_LIBM_END(%s)\n", $2; - next; -} -/^[.]global/ { - split($2, part, "#"); - name=part[1]; - if (match(name, "^"FUNC"$")) { - next; - } -} -/^[.]proc/ { - split($2, part, "#"); - name=part[1]; - if (match(name, "^"FUNC"$")) { - local_funcs=("^(" \ - "cis|cisf|cisl" \ - "|cabs|cabsf|cabsl" \ - "|cot|cotf|cotl" \ - ")$"); - ieee754_funcs=("^(" \ - "atan2|atan2f|atan2l|atanl" \ - "|cos|cosf|cosl" \ - "|cosh|coshf|coshl" \ - "|exp|expf|expl" \ - "|exp10|exp10f|exp10l" \ - "|expm1|expm1f|expm1l" \ - "|fmod|fmodf|fmodl" \ - "|hypot|hypotf|hypotl" \ - "|fabs|fabsf|fabsl" \ - "|floor|floorf|floorl" \ - "|log1p|log1pf|log1pl" \ - "|log|log10|log10f|log10l|log2l|logf|logl" \ - "|remainder|remainderf|remainderl|" \ - "|rint|rintf|rintl|" \ - "|scalb|scalbf|scalbl" \ - "|sin|sinf|sinl" \ - "|sincos|sincosf|sincosl" \ - "|sinh|sinhf|sinhl" \ - "|sqrt|sqrtf|sqrtl" \ - "|tan|tanf|tanl" \ - ")$"); - if (match(name, ieee754_funcs)) { - type="GLOBAL_IEEE754"; - } else if (match (name, local_funcs)) { - type="LOCAL_LIBM"; - } else { - type="GLOBAL_LIBM"; - } - printf "%s_ENTRY(%s)\n", type, name; - getline; - while (!match($0, "^"name"#?:")) { - getline; - } - getline; - while (!match($0, "^.endp")) { - print - getline; - } - printf "%s_END(%s)\n", type, name; - if (match(name, "^exp10[fl]?$")) { - t=substr(name,6) - printf "weak_alias (exp10%s, pow10%s)\n", t, t - } - next; - } -} -/^[a-zA-Z_]+:/ { - split($1, part, ":"); - name=part[1]; - if (match(name, "^"FUNC"$")) { - printf "GLOBAL_LIBM_ENTRY(%s)\n", name; - getline; - while (!match($0, "^"name"#?:")) { - getline; - } - getline; - while (!match($0, "^.endp")) { - print - getline; - } - getline; - printf "GLOBAL_LIBM_END(%s)\n", name; - next; - } -} - -{ print } - |