A small fix to compile on SGI cc

From: Shiro Kawai <shiro_at_squareusa.com>
Date: Wed, 30 Jun 1999 22:05:01 -1000 (HST)

SGI's C compiler (version 7.2 on IRIX 6.2) doesn't like me to use
C++ style comments in C sources.
Here's a patch for 3.99.4 to make it be compiled successfully.
It just replaces all C++ //-style comments to /* */ comments.


*** Src/stk.h Thu May 6 15:20:52 1999
--- Src/stk.h.orig Thu May 6 15:20:32 1999
***************
*** 57,71 ****
  #include <gmp.h>
    
  
! #ifdef WIN32 /* FIXME */
  # define USE_HASH
! /*#define USE_SOCKET*/
  # define USE_REGEXP
! /*#define USE_PROCESS*/
! /*#define USE_POSIX*/
  # define USE_HTML
  # define USE_PIXMAP
! /*#define USE_JPEG*/
  # define USE_BASE64
  # define USE_LOCALE
  #endif
--- 57,71 ----
  #include <gmp.h>
    
  
! #ifdef WIN32 // FIXME
  # define USE_HASH
! //#define USE_SOCKET
  # define USE_REGEXP
! //#define USE_PROCESS
! //#define USE_POSIX
  # define USE_HTML
  # define USE_PIXMAP
! //#define USE_JPEG
  # define USE_BASE64
  # define USE_LOCALE
  #endif

*** Src/dynload.c Thu May 6 15:12:23 1999
--- Src/dynload.c.orig Thu May 6 15:11:39 1999
***************
*** 561,567 ****
  
  #else
  /* Unknown architecture: no FFI */
! static char *msg = "FFI support for this architecture does not exist yet. Sorry!";
  
  PRIMITIVE STk_call_external(SCM l, int len)
  {
--- 561,567 ----
  
  #else
  /* Unknown architecture: no FFI */
! static *msg = "FFI support for this architecture does not exist yet. Sorry!";
  
  PRIMITIVE STk_call_external(SCM l, int len)
  {
*** Src/tcl-lib.c Thu May 6 15:17:41 1999
--- Src/tcl-lib.c.orig Thu May 6 15:17:23 1999
***************
*** 165,171 ****
       char *var;
       int flags;
  {
! /* FIXME Debug("Usage of Tcl_GetVar for ", STk_makestring(var)); */
    return STk_tcl_getvar(var, "#f");
  }
  
--- 165,171 ----
       char *var;
       int flags;
  {
! //FIXME Debug("Usage of Tcl_GetVar for ", STk_makestring(var));
    return STk_tcl_getvar(var, "#f");
  }
  
***************
*** 174,180 ****
       char *name1, *name2;
       int flags;
  {
! /* FIXME Debug("Usage of Tcl_GetVar2 for ", STk_makestring(name1)); */
    return STk_tcl_getvar2(name1, name2, "#f");
  
  }
--- 174,180 ----
       char *name1, *name2;
       int flags;
  {
! //FIXME Debug("Usage of Tcl_GetVar2 for ", STk_makestring(name1));
    return STk_tcl_getvar2(name1, name2, "#f");
  
  }
***************
*** 184,190 ****
       char *var, *val;
       int flags;
  {
! /* FIXME Debug("Usage of Tcl_SetVar for ", STk_makestring(var)); */
    return STk_tcl_setvar(var, val, flags, "#f");
  }
  
--- 184,190 ----
       char *var, *val;
       int flags;
  {
! //FIXME Debug("Usage of Tcl_SetVar for ", STk_makestring(var));
    return STk_tcl_setvar(var, val, flags, "#f");
  }
  
***************
*** 193,199 ****
       char *name1, *name2, *val;
       int flags;
  {
! /* FIXME Debug("Usage of Tcl_SetVar for ", STk_makestring(name1)); */
    return STk_tcl_setvar2(name1, name2, val, flags, "#f");
  }
  
--- 193,199 ----
       char *name1, *name2, *val;
       int flags;
  {
! //FIXME Debug("Usage of Tcl_SetVar for ", STk_makestring(name1));
    return STk_tcl_setvar2(name1, name2, val, flags, "#f");
  }
  
*** Src/unix.c Thu May 6 15:15:41 1999
--- Src/unix.c.orig Thu May 6 15:15:32 1999
***************
*** 135,141 ****
   */
  static void absolute(char *s, char *pathname)
  {
! /* FIXME !!!!! Quick hack to have a running version asap.*/
  #ifndef WIN32
    char *p = pathname;
    char *t;
--- 135,141 ----
   */
  static void absolute(char *s, char *pathname)
  {
! // FIXME !!!!! Quick hack to have a running version asap.
  #ifndef WIN32
    char *p = pathname;
    char *t;
Received on Thu Jul 01 1999 - 10:06:01 CEST