mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-04-27 19:50:44 -07:00
complex-float: add inline definitions to the compiler
This commit is contained in:
Daniel Kochmański
parent
db5e0937b3
commit
07ebf7dfc6
1 changed files with 98 additions and 86 deletions
|
|
@ -31,24 +31,21 @@
|
|||
;;; ALL FUNCTION DECLARATIONS AND INLINE FORMS
|
||||
;;;
|
||||
|
||||
(def-inline aref :unsafe (t t t) t
|
||||
"@0;ecl_aref_unsafe(#0,ecl_fixnum(#1)*(#0)->array.dims[1]+ecl_fixnum(#2))")
|
||||
(def-inline aref :unsafe ((array t) t t) t
|
||||
"@0;(#0)->array.self.t[ecl_fixnum(#1)*(#0)->array.dims[1]+ecl_fixnum(#2)]")
|
||||
(def-inline aref :unsafe ((array bit) t t) :fixnum
|
||||
"@0;ecl_aref_bv(#0,ecl_fixnum(#1)*(#0)->array.dims[1]+ecl_fixnum(#2))")
|
||||
(def-inline aref :unsafe ((array t) fixnum fixnum) t
|
||||
"@0;(#0)->array.self.t[#1*(#0)->array.dims[1]+#2]")
|
||||
(def-inline aref :unsafe ((array bit) fixnum fixnum) :fixnum
|
||||
"@0;ecl_aref_bv(#0,(#1)*(#0)->array.dims[1]+#2)")
|
||||
(def-inline aref :unsafe ((array base-char) fixnum fixnum) :unsigned-char
|
||||
"@0;(#0)->base_string.self[#1*(#0)->array.dims[1]+#2]")
|
||||
(def-inline aref :unsafe ((array double-float) fixnum fixnum) :double
|
||||
"@0;(#0)->array.self.df[#1*(#0)->array.dims[1]+#2]")
|
||||
(def-inline aref :unsafe ((array single-float) fixnum fixnum) :float
|
||||
"@0;(#0)->array.self.sf[#1*(#0)->array.dims[1]+#2]")
|
||||
(def-inline aref :unsafe ((array fixnum) fixnum fixnum) :fixnum
|
||||
"@0;(#0)->array.self.fix[#1*(#0)->array.dims[1]+#2]")
|
||||
(def-inline aref :unsafe (t t t) t "@0;ecl_aref_unsafe(#0,ecl_fixnum(#1)*(#0)->array.dims[1]+ecl_fixnum(#2))")
|
||||
(def-inline aref :unsafe ((array t) t t) t "@0;(#0)->array.self.t[ecl_fixnum(#1)*(#0)->array.dims[1]+ecl_fixnum(#2)]")
|
||||
(def-inline aref :unsafe ((array bit) t t) :fixnum "@0;ecl_aref_bv(#0,ecl_fixnum(#1)*(#0)->array.dims[1]+ecl_fixnum(#2))")
|
||||
(def-inline aref :unsafe ((array t) fixnum fixnum) t "@0;(#0)->array.self.t[#1*(#0)->array.dims[1]+#2]")
|
||||
(def-inline aref :unsafe ((array bit) fixnum fixnum) :fixnum "@0;ecl_aref_bv(#0,(#1)*(#0)->array.dims[1]+#2)")
|
||||
(def-inline aref :unsafe ((array base-char) fixnum fixnum) :unsigned-char "@0;(#0)->base_string.self[#1*(#0)->array.dims[1]+#2]")
|
||||
(def-inline aref :unsafe ((array double-float) fixnum fixnum) :double "@0;(#0)->array.self.df[#1*(#0)->array.dims[1]+#2]")
|
||||
(def-inline aref :unsafe ((array single-float) fixnum fixnum) :float "@0;(#0)->array.self.sf[#1*(#0)->array.dims[1]+#2]")
|
||||
#+long-float
|
||||
(def-inline aref :unsafe ((array long-float) fixnum fixnum) :long-double "@0;(#0)->array.self.lf[#1*(#0)->array.dims[1]+#2]")
|
||||
#+complex-float (def-inline aref :unsafe ((array si:complex-single-float) fixnum fixnum) :csfloat "@0;(#0)->array.self.csf[#1*(#0)->array.dims[1]+#2]")
|
||||
#+complex-float (def-inline aref :unsafe ((array si:complex-double-float) fixnum fixnum) :cdfloat "@0;(#0)->array.self.cdf[#1*(#0)->array.dims[1]+#2]")
|
||||
#+complex-float (def-inline aref :unsafe ((array si:complex-long-float) fixnum fixnum) :clfloat "@0;(#0)->array.self.clf[#1*(#0)->array.dims[1]+#2]")
|
||||
|
||||
(def-inline aref :unsafe ((array fixnum) fixnum fixnum) :fixnum "@0;(#0)->array.self.fix[#1*(#0)->array.dims[1]+#2]")
|
||||
|
||||
(def-inline aref :always (t t) t "ecl_aref1(#0,ecl_to_size(#1))")
|
||||
(def-inline aref :always (t fixnum) t "ecl_aref1(#0,#1)")
|
||||
|
|
@ -56,16 +53,16 @@
|
|||
(def-inline aref :unsafe ((array bit) t) :fixnum "ecl_aref_bv(#0,ecl_fixnum(#1))")
|
||||
(def-inline aref :unsafe ((array bit) fixnum) :fixnum "ecl_aref_bv(#0,#1)")
|
||||
#+unicode
|
||||
(def-inline aref :unsafe ((array character) fixnum) :wchar
|
||||
"(#0)->string.self[#1]")
|
||||
(def-inline aref :unsafe ((array base-char) fixnum) :unsigned-char
|
||||
"(#0)->base_string.self[#1]")
|
||||
(def-inline aref :unsafe ((array double-float) fixnum) :double
|
||||
"(#0)->array.self.df[#1]")
|
||||
(def-inline aref :unsafe ((array single-float) fixnum) :float
|
||||
"(#0)->array.self.sf[#1]")
|
||||
(def-inline aref :unsafe ((array fixnum) fixnum) :fixnum
|
||||
"(#0)->array.self.fix[#1]")
|
||||
(def-inline aref :unsafe ((array character) fixnum) :wchar "(#0)->string.self[#1]")
|
||||
(def-inline aref :unsafe ((array base-char) fixnum) :unsigned-char "(#0)->base_string.self[#1]")
|
||||
(def-inline aref :unsafe ((array double-float) fixnum) :double "(#0)->array.self.df[#1]")
|
||||
(def-inline aref :unsafe ((array single-float) fixnum) :float "(#0)->array.self.sf[#1]")
|
||||
#+long-float
|
||||
(def-inline aref :unsafe ((array long-float) fixnum) :long-double "(#0)->array.self.lf[#1]")
|
||||
#+complex-float (def-inline aref :unsafe ((array si:complex-single-float) fixnum) :csfloat "(#0)->array.self.csf[#1]")
|
||||
#+complex-float (def-inline aref :unsafe ((array si:complex-double-float) fixnum) :cdfloat "(#0)->array.self.cdf[#1]")
|
||||
#+complex-float (def-inline aref :unsafe ((array si:complex-long-float) fixnum) :clfloat "(#0)->array.self.clf[#1]")
|
||||
(def-inline aref :unsafe ((array fixnum) fixnum) :fixnum "(#0)->array.self.fix[#1]")
|
||||
|
||||
(def-inline row-major-aref :always (t t) t "ecl_aref(#0,ecl_to_size(#1))")
|
||||
(def-inline row-major-aref :always (t fixnum) t "ecl_aref(#0,#1)")
|
||||
|
|
@ -74,70 +71,51 @@
|
|||
(def-inline row-major-aref :unsafe ((array bit) t) :fixnum "ecl_aref_bv(#0,ecl_fixnum(#1))")
|
||||
(def-inline row-major-aref :unsafe ((array bit) fixnum) :fixnum "ecl_aref_bv(#0,#1)")
|
||||
#+unicode
|
||||
(def-inline row-major-aref :unsafe ((array character) fixnum) :wchar
|
||||
"(#0)->string.self[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array base-char) fixnum) :unsigned-char
|
||||
"(#0)->base_string.self[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:byte8) fixnum) :uint8-t
|
||||
"(#0)->vector.self.b8[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:integer8) fixnum) :int8-t
|
||||
"(#0)->vector.self.i8[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:byte16) fixnum) :uint16-t
|
||||
"(#0)->vector.self.b16[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:integer16) fixnum) :int16-t
|
||||
"(#0)->vector.self.i16[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:byte32) fixnum) :uint32-t
|
||||
"(#0)->vector.self.b32[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:integer32) fixnum) :int32-t
|
||||
"(#0)->vector.self.i32[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:byte64) fixnum) :uint64-t
|
||||
"(#0)->vector.self.b64[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:integer64) fixnum) :int64-t
|
||||
"(#0)->vector.self.i64[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array double-float) fixnum) :double
|
||||
"(#0)->array.self.df[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array single-float) fixnum) :float
|
||||
"(#0)->array.self.sf[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array fixnum) fixnum) :fixnum
|
||||
"(#0)->array.self.fix[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array character) fixnum) :wchar "(#0)->string.self[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array base-char) fixnum) :unsigned-char "(#0)->base_string.self[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:byte8) fixnum) :uint8-t "(#0)->vector.self.b8[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:integer8) fixnum) :int8-t "(#0)->vector.self.i8[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:byte16) fixnum) :uint16-t "(#0)->vector.self.b16[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:integer16) fixnum) :int16-t "(#0)->vector.self.i16[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:byte32) fixnum) :uint32-t "(#0)->vector.self.b32[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:integer32) fixnum) :int32-t "(#0)->vector.self.i32[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:byte64) fixnum) :uint64-t "(#0)->vector.self.b64[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array ext:integer64) fixnum) :int64-t "(#0)->vector.self.i64[#1]")
|
||||
#+long-float
|
||||
(def-inline row-major-aref :unsafe ((array long-float) fixnum) :long-double "(#0)->array.self.lf[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array double-float) fixnum) :double "(#0)->array.self.df[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array single-float) fixnum) :float "(#0)->array.self.sf[#1]")
|
||||
#+complex-float (def-inline row-major-aref :unsafe ((array si:complex-single-float) fixnum) :csfloat "(#0)->array.self.csf[#1]")
|
||||
#+complex-float (def-inline row-major-aref :unsafe ((array si:complex-double-float) fixnum) :cdfloat "(#0)->array.self.cdf[#1]")
|
||||
#+complex-float (def-inline row-major-aref :unsafe ((array si:complex-long-float) fixnum) :clfloat "(#0)->array.self.clf[#1]")
|
||||
(def-inline row-major-aref :unsafe ((array fixnum) fixnum) :fixnum "(#0)->array.self.fix[#1]")
|
||||
|
||||
(def-inline si:row-major-aset :always (t t t) t "ecl_aset(#0,ecl_to_size(#1),#2)")
|
||||
(def-inline si:row-major-aset :always (t fixnum t) t "ecl_aset(#0,#1,#2)")
|
||||
(def-inline si:row-major-aset :unsafe (t t t) t "ecl_aset_unsafe(#0,ecl_fixnum(#1),#2)")
|
||||
(def-inline si:row-major-aset :unsafe (t fixnum t) t "ecl_aset_unsafe(#0,#1,#2)")
|
||||
(def-inline si:row-major-aset :unsafe ((array t) fixnum t) t
|
||||
"(#0)->vector.self.t[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array bit) fixnum t) :fixnum
|
||||
"ecl_aset_bv(#0,#1,ecl_fixnum(#2))")
|
||||
(def-inline si:row-major-aset :unsafe ((array bit) fixnum fixnum) :fixnum
|
||||
"ecl_aset_bv(#0,#1,#2)")
|
||||
(def-inline si:row-major-aset :unsafe ((array base-char) fixnum base-char) :unsigned-char
|
||||
"(#0)->base_string.self[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array t) fixnum t) t "(#0)->vector.self.t[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array bit) fixnum t) :fixnum "ecl_aset_bv(#0,#1,ecl_fixnum(#2))")
|
||||
(def-inline si:row-major-aset :unsafe ((array bit) fixnum fixnum) :fixnum "ecl_aset_bv(#0,#1,#2)")
|
||||
(def-inline si:row-major-aset :unsafe ((array base-char) fixnum base-char) :unsigned-char "(#0)->base_string.self[#1]= #2")
|
||||
#+unicode
|
||||
(def-inline si:row-major-aset :unsafe ((array character) fixnum character) :wchar
|
||||
"(#0)->string.self[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:byte8) fixnum ext:byte8) :uint8-t
|
||||
"(#0)->vector.self.b8[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:integer8) fixnum ext:integer8) :int8-t
|
||||
"(#0)->vector.self.i8[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:byte16) fixnum ext:byte16) :uint16-t
|
||||
"(#0)->vector.self.b16[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:integer16) fixnum ext:integer16) :int16-t
|
||||
"(#0)->vector.self.i16[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:byte32) fixnum ext:byte32) :uint32-t
|
||||
"(#0)->vector.self.b32[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:integer32) fixnum ext:integer32) :int32-t
|
||||
"(#0)->vector.self.i32[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:byte64) fixnum ext:byte64) :uint64-t
|
||||
"(#0)->vector.self.b64[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:integer64) fixnum ext:integer64) :int64-t
|
||||
"(#0)->vector.self.i64[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array double-float) fixnum double-float) :double
|
||||
"(#0)->array.self.df[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array single-float) fixnum single-float) :float
|
||||
"(#0)->array.self.sf[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array fixnum) fixnum fixnum) :fixnum
|
||||
"(#0)->array.self.fix[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array character) fixnum character) :wchar "(#0)->string.self[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:byte8) fixnum ext:byte8) :uint8-t "(#0)->vector.self.b8[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:integer8) fixnum ext:integer8) :int8-t "(#0)->vector.self.i8[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:byte16) fixnum ext:byte16) :uint16-t "(#0)->vector.self.b16[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:integer16) fixnum ext:integer16) :int16-t "(#0)->vector.self.i16[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:byte32) fixnum ext:byte32) :uint32-t "(#0)->vector.self.b32[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:integer32) fixnum ext:integer32) :int32-t "(#0)->vector.self.i32[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:byte64) fixnum ext:byte64) :uint64-t "(#0)->vector.self.b64[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array ext:integer64) fixnum ext:integer64) :int64-t "(#0)->vector.self.i64[#1]= #2")
|
||||
#+long-float
|
||||
(def-inline si:row-major-aset :unsafe ((array long-float) fixnum long-float) :long-double "(#0)->array.self.lf[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array double-float) fixnum double-float) :double "(#0)->array.self.df[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array single-float) fixnum single-float) :float "(#0)->array.self.sf[#1]= #2")
|
||||
#+complex-float (def-inline si:row-major-aset :unsafe ((array si:complex-single-float) fixnum si:complex-single-float) :csfloat "(#0)->array.self.csf[#1]= #2")
|
||||
#+complex-float (def-inline si:row-major-aset :unsafe ((array si:complex-double-float) fixnum si:complex-double-float) :cdfloat "(#0)->array.self.cdf[#1]= #2")
|
||||
#+complex-float (def-inline si:row-major-aset :unsafe ((array si:complex-long-float) fixnum si:complex-long-float) :clfloat "(#0)->array.self.clf[#1]= #2")
|
||||
(def-inline si:row-major-aset :unsafe ((array fixnum) fixnum fixnum) :fixnum "(#0)->array.self.fix[#1]= #2")
|
||||
|
||||
(def-inline si:copy-subarray :always (array ext:array-index array ext:array-index
|
||||
ext:array-index) array
|
||||
|
|
@ -352,6 +330,9 @@
|
|||
(def-inline 1+ :always (long-float) :long-double "(long double)(#0)+1")
|
||||
(def-inline 1+ :always (double-float) :double "(double)(#0)+1")
|
||||
(def-inline 1+ :always (single-float) :float "(float)(#0)+1")
|
||||
#+complex-float (def-inline 1+ :always (si:complex-single-float) :csfloat "(_Complex float)(#0)+1")
|
||||
#+complex-float (def-inline 1+ :always (si:complex-double-float) :cdfloat "(_Complex double)(#0)+1")
|
||||
#+complex-float (def-inline 1+ :always (si:complex-long-float) :clfloat "(_Complex long double)(#0)+1")
|
||||
(def-inline 1+ :always (fixnum) :fixnum "(#0)+1" :exact-return-type t)
|
||||
|
||||
(def-inline 1- :always (t) t "ecl_one_minus(#0)")
|
||||
|
|
@ -360,6 +341,9 @@
|
|||
(def-inline 1- :always (long-float) :long-double "(long double)(#0)-1")
|
||||
(def-inline 1- :always (double-float) :double "(double)(#0)-1")
|
||||
(def-inline 1- :always (single-float) :float "(float)(#0)-1")
|
||||
#+complex-float (def-inline 1- :always (si:complex-single-float) :csfloat "(_Complex float)(#0)-1")
|
||||
#+complex-float (def-inline 1- :always (si:complex-double-float) :cdfloat "(_Complex double)(#0)-1")
|
||||
#+complex-float (def-inline 1- :always (si:complex-long-float) :clfloat "(_Complex long double)(#0)-1")
|
||||
(def-inline 1- :always (fixnum) :fixnum "(#0)-1" :exact-return-type t)
|
||||
|
||||
;; file num_co.d
|
||||
|
|
@ -507,56 +491,84 @@
|
|||
(def-inline expt :always ((integer 2 2) (integer 0 29)) :fixnum "(1<<(#1))")
|
||||
(def-inline expt :always ((integer 0 0) t) :fixnum "0")
|
||||
(def-inline expt :always ((integer 1 1) t) :fixnum "1")
|
||||
#+long-float
|
||||
(def-inline expt :always ((long-float 0.0 *) long-float) :long-double "powl((long double)#0,(long double)#1)")
|
||||
(def-inline expt :always ((double-float 0.0 *) double-float) :double "pow((double)#0,(double)#1)")
|
||||
(def-inline expt :always ((single-float 0.0 *) single-float) :float "powf((float)#0,(float)#1)")
|
||||
#+complex-float (def-inline expt :always (si:complex-single-float si:complex-single-float) :csfloat "cpowf(#0,#1)")
|
||||
#+complex-float (def-inline expt :always (si:complex-double-float si:complex-double-float) :cdfloat "cpow(#0,#1)")
|
||||
#+complex-float (def-inline expt :always (si:complex-long-float si:complex-long-float) :clfloat "cpowl(#0,#1)")
|
||||
|
||||
#+long-float
|
||||
(def-inline log :always (fixnum-float) :long-double "logl((long double)(#0))" :exact-return-type t)
|
||||
(def-inline log :always (fixnum-float) :double "log((double)(#0))" :exact-return-type t)
|
||||
(def-inline log :always (fixnum-float) :float "logf((float)(#0))" :exact-return-type t)
|
||||
#+complex-float (def-inline log :always (si:complex-single-float) :csfloat "clogf(#0)")
|
||||
#+complex-float (def-inline log :always (si:complex-double-float) :cdfloat "clog(#0)")
|
||||
#+complex-float (def-inline log :always (si:complex-long-float) :clfloat "clogl(#0)")
|
||||
|
||||
(def-inline sqrt :always (number) number "ecl_sqrt(#0)")
|
||||
#+long-float
|
||||
(def-inline sqrt :always ((long-float 0.0 *)) :long-double "sqrtl((long double)(#0))")
|
||||
(def-inline sqrt :always ((double-float 0.0 *)) :double "sqrt((double)(#0))")
|
||||
(def-inline sqrt :always ((single-float 0.0 *)) :float "sqrtf((float)(#0))")
|
||||
#+complex-float (def-inline sqrt :always (si:complex-single-float) :csfloat "csqrtf(#0)")
|
||||
#+complex-float (def-inline sqrt :always (si:complex-double-float) :cdfloat "csqrt(#0)")
|
||||
#+complex-float (def-inline sqrt :always (si:complex-long-float) :clfloat "csqrtl(#0)")
|
||||
|
||||
(def-inline sin :always (number) number "ecl_sin(#0)")
|
||||
#+long-float
|
||||
(def-inline sin :always (fixnum-float) :long-double "sinl((long double)(#0))" :exact-return-type t)
|
||||
(def-inline sin :always (fixnum-float) :double "sin((double)(#0))" :exact-return-type t)
|
||||
(def-inline sin :always (fixnum-float) :float "sinf((float)(#0))" :exact-return-type t)
|
||||
#+complex-float (def-inline sin :always (si:complex-single-float) :csfloat "csinf(#0)")
|
||||
#+complex-float (def-inline sin :always (si:complex-double-float) :cdfloat "csin(#0)")
|
||||
#+complex-float (def-inline sin :always (si:complex-long-float) :clfloat "csinl(#0)")
|
||||
|
||||
(def-inline cos :always (t) number "ecl_cos(#0)")
|
||||
#+long-float
|
||||
(def-inline cos :always (fixnum-float) :long-double "cosl((long double)(#0))" :exact-return-type t)
|
||||
(def-inline cos :always (fixnum-float) :double "cos((double)(#0))" :exact-return-type t)
|
||||
(def-inline cos :always (fixnum-float) :float "cosf((float)(#0))" :exact-return-type t)
|
||||
#+complex-float (def-inline cos :always (si:complex-single-float) :csfloat "ccosf(#0)")
|
||||
#+complex-float (def-inline cos :always (si:complex-double-float) :cdfloat "ccos(#0)")
|
||||
#+complex-float (def-inline cos :always (si:complex-long-float) :clfloat "ccosl(#0)")
|
||||
|
||||
(def-inline tan :always (t) number "ecl_tan(#0)")
|
||||
#+long-float
|
||||
(def-inline tan :always (fixnum-float) :long-double "tanl((long double)(#0))" :exact-return-type t)
|
||||
(def-inline tan :always (fixnum-float) :double "tan((double)(#0))" :exact-return-type t)
|
||||
(def-inline tan :always (fixnum-float) :float "tanf((float)(#0))" :exact-return-type t)
|
||||
#+complex-float (def-inline tan :always (si:complex-single-float) :csfloat "ctanf(#0)")
|
||||
#+complex-float (def-inline tan :always (si:complex-double-float) :cdfloat "ctan(#0)")
|
||||
#+complex-float (def-inline tan :always (si:complex-long-float) :clfloat "ctanl(#0)")
|
||||
|
||||
(def-inline sinh :always (t) number "ecl_sinh(#0)")
|
||||
#+long-float
|
||||
(def-inline sinh :always (fixnum-float) :long-double "sinhl((long double)(#0))" :exact-return-type t)
|
||||
(def-inline sinh :always (fixnum-float) :double "sinh((double)(#0))" :exact-return-type t)
|
||||
(def-inline sinh :always (fixnum-float) :float "sinhf((float)(#0))" :exact-return-type t)
|
||||
#+complex-float (def-inline sinh :always (si:complex-single-float) :csfloat "csinhf(#0)")
|
||||
#+complex-float (def-inline sinh :always (si:complex-double-float) :cdfloat "csinh(#0)")
|
||||
#+complex-float (def-inline sinh :always (si:complex-long-float) :clfloat "csinhl(#0)")
|
||||
|
||||
(def-inline cosh :always (t) number "ecl_cosh(#0)")
|
||||
#+long-float
|
||||
(def-inline cosh :always (fixnum-float) :long-double "coshl((long double)(#0))" :exact-return-type t)
|
||||
(def-inline cosh :always (fixnum-float) :double "cosh((double)(#0))" :exact-return-type t)
|
||||
(def-inline cosh :always (fixnum-float) :float "coshf((float)(#0))" :exact-return-type t)
|
||||
#+complex-float (def-inline cosh :always (si:complex-single-float) :csfloat "ccoshf(#0)")
|
||||
#+complex-float (def-inline cosh :always (si:complex-double-float) :cdfloat "ccosh(#0)")
|
||||
#+complex-float (def-inline cosh :always (si:complex-long-float) :clfloat "ccoshl(#0)")
|
||||
|
||||
(def-inline tanh :always (t) number "ecl_tanh(#0)")
|
||||
#+long-float
|
||||
(def-inline tanh :always (fixnum-float) :long-double "tanhl((long double)(#0))" :exact-return-type t)
|
||||
(def-inline tanh :always (fixnum-float) :double "tanh((double)(#0))" :exact-return-type t)
|
||||
(def-inline tanh :always (fixnum-float) :float "tanhf((float)(#0))" :exact-return-type t)
|
||||
#+complex-float (def-inline tanh :always (si:complex-single-float) :csfloat "ctanhf(#0)")
|
||||
#+complex-float (def-inline tanh :always (si:complex-double-float) :cdfloat "ctanh(#0)")
|
||||
#+complex-float (def-inline tanh :always (si:complex-long-float) :clfloat "ctanhl(#0)")
|
||||
|
||||
;; file package.d
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue