506  */

   506  */

   507 

   507 

   508 #if defined(_sgi) || defined(__sgi) || (defined(__APPLE__) && defined(__DYNAMIC__))

   508 #if defined(_sgi) || defined(__sgi) || (defined(__APPLE__) && defined(__DYNAMIC__))

   509 #   define environ _environ

   509 #   define environ _environ

   510 #endif

   510 #endif

   511 extern char **environ;

   512 extern char **environ;

   512 

   514 

   513 /*

   515 /*

   514  * At present (12/91) not all stdlib.h implementations declare strtod.

   516  * At present (12/91) not all stdlib.h implementations declare strtod.

   515  * The declaration below is here to ensure that it's declared, so that

   517  * The declaration below is here to ensure that it's declared, so that

   516  * the compiler won't take the default approach of assuming it returns

   518  * the compiler won't take the default approach of assuming it returns

   517  * an int.  There's no ANSI prototype for it because there would end

   519  * an int.  There's no ANSI prototype for it because there would end

   518  * up being too many conflicts with slightly-different prototypes.

   520  * up being too many conflicts with slightly-different prototypes.

   519  */

   521  */

   521 extern double strtod();

   523 extern double strtod();

   522 

   525 

   523 /*

   526 /*

   524  * There is no platform-specific panic routine for Unix in the Tcl internals.

   527  * There is no platform-specific panic routine for Unix in the Tcl internals.

   525  */

   528  */

   526 

   529