Searched refs:SG_COMPLEX (Results 1 – 6 of 6) sorted by relevance
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/ |
| H A D | number.c | 2012 SgObject real = Sg_Add(SG_COMPLEX(x)->real, SG_COMPLEX(y)->real); in Sg_Add()
2013 SgObject imag = Sg_Add(SG_COMPLEX(x)->imag, SG_COMPLEX(y)->imag); in Sg_Add()
2120 SgObject real = Sg_Sub(SG_COMPLEX(x)->real, SG_COMPLEX(y)->real); in Sg_Sub()
2121 SgObject imag = Sg_Sub(SG_COMPLEX(x)->imag, SG_COMPLEX(y)->imag); in Sg_Sub()
2226 SgObject real = Sg_Sub(Sg_Mul(SG_COMPLEX(x)->real, SG_COMPLEX(y)->real), in Sg_Mul()
2227 Sg_Mul(SG_COMPLEX(x)->imag, SG_COMPLEX(y)->imag)); in Sg_Mul()
2228 SgObject imag = Sg_Add(Sg_Mul(SG_COMPLEX(x)->imag, SG_COMPLEX(y)->real), in Sg_Mul()
2229 Sg_Mul(SG_COMPLEX(x)->real, SG_COMPLEX(y)->imag)); in Sg_Mul()
2918 return ((Sg_NumCmp(SG_COMPLEX(x)->real, SG_COMPLEX(y)->real) == 0) in Sg_NumEq()
2919 && (Sg_NumCmp(SG_COMPLEX(x)->imag, SG_COMPLEX(y)->imag) == 0)); in Sg_NumEq()
[all …]
|
| H A D | compare.c | 389 double xr = Sg_GetDouble(SG_COMPLEX(x)->real); in eqv_internal()
390 double xi = Sg_GetDouble(SG_COMPLEX(x)->imag); in eqv_internal()
391 double yr = Sg_GetDouble(SG_COMPLEX(y)->real); in eqv_internal()
392 double yi = Sg_GetDouble(SG_COMPLEX(y)->imag); in eqv_internal()
|
| H A D | hashtable.c | 120 SgHashVal h1 = Sg_EqvHash(SG_COMPLEX(obj)->real, bound); in Sg_EqvHash()
121 SgHashVal h2 = Sg_EqvHash(SG_COMPLEX(obj)->imag, bound); in Sg_EqvHash()
|
| H A D | lib_core.stub | 290 (result (-> (SG_COMPLEX r) real)))
298 (result (-> (SG_COMPLEX r) imag)))
|
| H A D | lib_core.c | 2112 SG_RESULT=((SG_COMPLEX(r))->real);}else if( in core_real_part()
2141 SG_RESULT=((SG_COMPLEX(r))->imag);}else if( in core_imag_part()
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/src/sagittarius/private/ |
| H A D | number.h | 82 #define SG_COMPLEX(obj) ((SgComplex*)(obj)) macro
|