casa-mp-base

Description: Remaining unsplit changes from previous packager

 Includes the rest of the changes that were applied to the source code by

 previous packager.

Author: Paul E. Johnson (Debian Packaging) <pauljohn32@freefaculty.org>

​

--- a/configure.in

+++ b/configure.in

@@ -349,7 +349,7 @@

   old_flags="$CFLAGS"

   CFLAGS="-g -lm"

   AC_MSG_CHECKING([whether DBL_EPSILON can be computed])

-  AC_TRY_RUN_WITH_OUTPUT(blt_cv_dbl_epsilon, [

+  AC_TRY_RUN_WITH_OUTPUT([blt_cv_dbl_epsilon], [

 main () {

     double e, u;

     /* 

--- a/generic/bltTree.c

+++ b/generic/bltTree.c

@@ -114,16 +114,18 @@

 #define REBUILD_MULTIPLIER 3

-#define START_LOGSIZE      5 /* Initial hash table size is 32. */

-#define MAX_LIST_VALUES        21 /* Convert to hash table when node

-                   * value list gets bigger than this

-                   * many values. */

-

 #if (SIZEOF_VOID_P == 8)

 #define RANDOM_INDEX(i)        HashOneWord(mask, downshift, i)

 #define BITSPERWORD        64

+#define START_LOGSIZE      10 

+#define MAX_LIST_VALUES        40 

 #else 

+#define START_LOGSIZE      5 /* Initial hash table size is 32. */

+#define MAX_LIST_VALUES        21 /* Convert to hash table when node

+                   * value list gets bigger than this

+                   * many values. */

+

 /*

  * The following macro takes a preliminary integer hash value and

  * produces an index into a hash tables bucket list.  The idea is

--- a/generic/bltText.c

+++ b/generic/bltText.c

@@ -881,6 +881,9 @@

     Pixmap bitmap;

     int active;

+    if (!textPtr)

+   return;

+    

     display = Tk_Display(tkwin);

     theta = FMOD(tsPtr->theta, (double)360.0);

     if (theta < 0.0) {

--- a/generic/bltNsUtil.h

+++ b/generic/bltNsUtil.h

@@ -54,7 +54,7 @@

 #ifndef WIN32

 #if 0

 EXTERN Tcl_Command Tcl_FindCommand _ANSI_ARGS_((Tcl_Interp *interp,

-   char *name, Tcl_Namespace *nsPtr, int flags));

+   CONST char *name, Tcl_Namespace *nsPtr, int flags));

 /*

@@ -66,15 +66,15 @@

 #if (TCL_MAJOR_VERSION >= 8)

 EXTERN Tcl_Namespace *Tcl_CreateNamespace _ANSI_ARGS_((Tcl_Interp *interp,

-   char *name, ClientData clientData, Tcl_NamespaceDeleteProc *nsDelProc));

+   CONST char *name, ClientData clientData, Tcl_NamespaceDeleteProc *nsDelProc));

 EXTERN void Tcl_DeleteNamespace _ANSI_ARGS_((Tcl_Namespace *nsPtr));

 EXTERN Tcl_Namespace *Tcl_FindNamespace _ANSI_ARGS_((Tcl_Interp *interp,

-   char *name, Tcl_Namespace *context, int flags));

+   CONST char *name, Tcl_Namespace *context, int flags));

 EXTERN int Tcl_Export _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Namespace *nsPtr,

-   char *name, int resetFlag));

+   CONST char *name, int resetFlag));

 EXTERN Tcl_Var Tcl_FindNamespaceVar _ANSI_ARGS_((Tcl_Interp *interp, char *name,

    Tcl_Namespace *contextNsPtr, int flags));

--- a/demos/scripts/page.tcl

+++ b/demos/scripts/page.tcl

@@ -1,4 +1,4 @@

-#!/usr/local/bin/tclsh

+#!/usr/bin/tclsh8.6

 array set page "