Some build problems (patches included)

From: Michael A. Patton <MAP_at_BBN.com>
Date: Thu, 16 May 1996 19:06:32 EDT

I'm trying to build STk on this (slightly obscure) SVR4 based i860
system. So far I've found (and fixed, patches below) two minor errors
that I thought I'd report back, but I haven't quite gotten it running,
yet, so there may be more...

The first is in the build for Tcl. This system needs strncasecmp
defined, and it figures that out, but the rule is missing in the
Makefile.in (and thus the Makefile.) Adding the obvious rule fixes
that.

The second was in building Tk, since this was a strange system, it
ended up deciding it was "unknown" which caused a "-Dunknown" to be
included in the compile flags. This didn't interact well with the use
of "unknown" as a symbol in Tk/tkBitmap.c so I changed it to something
else and it compiled.

I now have everything compiled and linked, but it crashes when I try
and run it. Ah well, more debugging for another day...

        -MAP

----------------------------------------------------------------
diff -c Tcl/Makefile.in{~,}
*** Tcl/Makefile.in~ Sun Jan 21 17:39:53 1996
--- Tcl/Makefile.in Fri May 10 14:22:00 1996
***************
*** 50,55 ****
--- 50,58 ----
  strtol.o: ./compat/strtol.c
        $(CC) -c $(CFLAGS) ./compat/strtol.c
  
+ strncasecmp.o: ./compat/strncasecmp.c
+ $(CC) -c $(CFLAGS) ./compat/strncasecmp.c
+
  strtoul.o: ./compat/strtoul.c
        $(CC) -c $(CFLAGS) ./compat/strtoul.c
diff -c Tk/tkBitmap.c{~,}
*** Tk/tkBitmap.c~ Sun Oct 8 16:50:43 1995
--- Tk/tkBitmap.c Thu May 16 18:59:14 1996
***************
*** 320,326 ****
      TkBitmap *bitmapPtr;
  
      if (!initialized) {
! unknown:
        panic("Tk_NameOfBitmap received unknown bitmap argument");
      }
  
--- 320,326 ----
      TkBitmap *bitmapPtr;
  
      if (!initialized) {
! unknown_bitmap:
        panic("Tk_NameOfBitmap received unknown bitmap argument");
      }
  
***************
*** 328,334 ****
      idKey.pixmap = bitmap;
      idHashPtr = Tcl_FindHashEntry(&idTable, (char *) &idKey);
      if (idHashPtr == NULL) {
! goto unknown;
      }
      bitmapPtr = (TkBitmap *) Tcl_GetHashValue(idHashPtr);
      return ((NameKey *) bitmapPtr->hashPtr->key.words)->name;
--- 328,334 ----
      idKey.pixmap = bitmap;
      idHashPtr = Tcl_FindHashEntry(&idTable, (char *) &idKey);
      if (idHashPtr == NULL) {
! goto unknown_bitmap;
      }
      bitmapPtr = (TkBitmap *) Tcl_GetHashValue(idHashPtr);
      return ((NameKey *) bitmapPtr->hashPtr->key.words)->name;
Received on Fri May 17 1996 - 01:10:04 CEST