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

   512 extern char **environ;

   511 extern char **environ;

   514 

   512 

   515 /*

   513 /*

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

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

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

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

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

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

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

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

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

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

   521  */

   519  */

   523 extern double strtod();

   521 extern double strtod();

   525 

   522 

   526 /*

   523 /*

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

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

   528  */

   525  */

   529 

   526