diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-07-29 15:43:35 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-07-29 15:43:35 +0000 |
| commit | 17004f202c892fd4d933b94c6b7441c45a06e80b (patch) | |
| tree | 803b7e6d144ba54c0a3a8911483f0043fdcfbddc /src/interp | |
| parent | ec8a295158088547ea1f686c40ec61937bb60122 (diff) | |
| download | open-axiom-17004f202c892fd4d933b94c6b7441c45a06e80b.tar.gz | |
* algebra/sf.spad.pamphlet (DoubleFloat): Use builtin
trigonometric functions.
* interp/g-opt.boot ($VMsideEffectFreeOperators): Include them.
* interp/g-util.boot: Expand them.
* include/edible.H1: Move declarations to clef/edible.c. Remove.
* driver/utils.h: Give G linkage to declarations.
* sman/Makefile.in: Link programs against C++ runtime.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/g-opt.boot | 2 | ||||
| -rw-r--r-- | src/interp/g-util.boot | 17 |
2 files changed, 19 insertions, 0 deletions
diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot index 32f7c426..1c45d60f 100644 --- a/src/interp/g-opt.boot +++ b/src/interp/g-opt.boot @@ -446,6 +446,8 @@ $VMsideEffectFreeOperators == %irem %iquo %idivide %feq %flt %fle %fgt %fge %fmul %fadd %fsub %fexp %fmin %fmax %float? %fpow %fdiv %fneg %i2f %fminval %fmaxval %fbase %fprec %ftrunc + %fsin %fcos %ftan %fcot %fsec %fcsc %fatan %facot + %fsinh %fcosh %ftanh %fcsch %fcoth %fsech %fasinh %facsch %nil %pair? %lconcat %llength %lfirst %lsecond %lthird %lreverse %lempty? %hash %ismall? %string? %f2s %ccst %ceq %clt %cle %cgt %cge %c2i %i2c %sname diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot index d9145d47..96bbe1fd 100644 --- a/src/interp/g-util.boot +++ b/src/interp/g-util.boot @@ -413,6 +413,23 @@ for x in [ ['%fpow, :'EXPT], ['%fsub, :"-"], + ['%fsin, :'SIN], + ['%fcos, :'COS], + ['%ftan, :'TAN], + ['%fcot, :'COT], + ['%fsec, :'SEC], + ['%fcsc, :'CSC], + ['%fatan, :'ATAN], + ['%facot, :'ACOT], + ['%fsinh, :'SINH], + ['%fcosh, :'COSH], + ['%ftanh, :'TANH], + ['%fcsch, :'CSCH], + ['%fcoth, :'COTH], + ['%fsech, :'SECH], + ['%fasinh, :'ASINH], + ['%facsch, :'ACSCH], + -- string operations ['%f2s, :'DFLOAT_-FORMAT_-GENERAL], |