Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/runtime/c-libs/smlnj-math/fp-dep.h
ViewVC logotype

Diff of /sml/trunk/src/runtime/c-libs/smlnj-math/fp-dep.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1629, Thu Sep 23 22:38:06 2004 UTC revision 1630, Fri Sep 24 21:05:04 2004 UTC
# Line 165  Line 165 
165  #define RMODE_EQ(RM1, RM2)      (strcmp((RM1), (RM2)) == 0)  #define RMODE_EQ(RM1, RM2)      (strcmp((RM1), (RM2)) == 0)
166    
167  #elif defined(OPSYS_DARWIN)  #elif defined(OPSYS_DARWIN)
 /*  
  * For some reason cc does not like the __asm__ used in architecture/ppc/fp_regs.h  
  *  
168  #   include <architecture/ppc/fp_regs.h>  #   include <architecture/ppc/fp_regs.h>
169  #   define FE_TONEAREST RN_NEAREST  #   define FE_TONEAREST RN_NEAREST
170  #   define FE_UPWARD RN_TOWARD_PLUS  #   define FE_UPWARD RN_TOWARD_PLUS
# Line 176  Line 173 
173      typedef ppc_fp_rn_t  fe_rnd_mode_t;      typedef ppc_fp_rn_t  fe_rnd_mode_t;
174      PVT fe_rnd_mode_t fegetround() { return(get_fp_scr()).rn; }      PVT fe_rnd_mode_t fegetround() { return(get_fp_scr()).rn; }
175      PVT fe_rnd_mode_t fesetround(fe_rnd_mode_t rm) {      PVT fe_rnd_mode_t fesetround(fe_rnd_mode_t rm) {
176          fe_rnd_mode_t old = fegetround();          ppc_fp_scr_t fpstate = get_fp_scr();
177            fe_rnd_mode_t old = fpstate.rn;
178          (get_fp_scr()).rn = rm;          fpstate.rn = rm;
179            set_fp_scr(fpstate);
180          return (old);          return (old);
181      }      }
  *  
  */  
 #define NO_ROUNDING_MODE_CTL  
   
182  #else  #else
183  #  error do not know about FP dependencies  #  error do not know about FP dependencies
184  #endif  #endif

Legend:
Removed from v.1629  
changed lines
  Added in v.1630

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0