diff options
author | joye <joye> | 2013-09-05 18:15:36 (GMT) |
---|---|---|
committer | joye <joye> | 2013-09-05 18:15:36 (GMT) |
commit | db9a77f7616abf01af1e05b8ab68bc4865151743 (patch) | |
tree | b6b048e52d69c488da4a20adcfa6461db640b955 /src/bltInt.C | |
parent | ecdc9c8a4528f2d2421f9a9b4044c74c83eff96b (diff) | |
download | blt-db9a77f7616abf01af1e05b8ab68bc4865151743.zip blt-db9a77f7616abf01af1e05b8ab68bc4865151743.tar.gz blt-db9a77f7616abf01af1e05b8ab68bc4865151743.tar.bz2 |
*** empty log message ***
Diffstat (limited to 'src/bltInt.C')
-rw-r--r-- | src/bltInt.C | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/src/bltInt.C b/src/bltInt.C index b5034f5..a5213ca 100644 --- a/src/bltInt.C +++ b/src/bltInt.C @@ -45,8 +45,6 @@ #define TCL_VERSION_LOADED TCL_VERSION #endif -static double bltNaN; - BLT_EXTERN Tcl_AppInitProc Blt_core_Init; BLT_EXTERN Tcl_AppInitProc Blt_core_SafeInit; @@ -123,30 +121,6 @@ unset var path\n\ \n" }; -double -Blt_NaN(void) -{ - return bltNaN; -} - -static double -MakeNaN(void) -{ - union DoubleValue { - unsigned int words[2]; - double value; - } result; - -#ifdef WORDS_BIGENDIAN - result.words[0] = 0x7ff80000; - result.words[1] = 0x00000000; -#else - result.words[0] = 0x00000000; - result.words[1] = 0x7ff80000; -#endif - return result.value; -} - static int SetLibraryPath(Tcl_Interp *interp) { @@ -242,7 +216,6 @@ int Blt_core_Init(Tcl_Interp *interp) /* Interpreter to add extra commands */ if (Blt_VectorCmdInitProc(interp) != TCL_OK) return TCL_ERROR; - bltNaN = MakeNaN(); if (Tcl_PkgProvide(interp, "blt_core", BLT_VERSION) != TCL_OK) { return TCL_ERROR; } |