libInit.cc
changeset 4713 34f5f09b0412
parent 4709 8a5c0a8183f6
child 4719 fe071b140185
--- a/libInit.cc	Thu Sep 09 15:01:28 1999 +0200
+++ b/libInit.cc	Thu Sep 09 18:06:14 1999 +0200
@@ -4,12 +4,23 @@
  */
 #define __INDIRECTVMINITCALLS__
 #include <stc.h>
+#define INIT_TEXT_SECT /* as nothing */
 #ifdef WIN32
 # pragma codeseg INITCODE "INITCODE"
-#endif /* WIN32 */
-_libbasic_Init(pass, __pRT__, snd)
+#else /* not WIN32 */
+# if defined(__GNUC__)
+#  if (__GNUC__  == 2 && __GNUC_MINOR__ >= 7) || __GNUC__ > 2
+#   undef INIT_TEXT_SECT
+#   define INIT_TEXT_SECT __attribute__((section(".stxitext")))
+#  endif
+# endif /* not GNUC */
+#endif /* not WIN32 */
+#ifdef INIT_TEXT_SECT
+extern void _libbasic_Init() INIT_TEXT_SECT;
+#endif
+void _libbasic_Init(pass, __pRT__, snd)
 OBJ snd; struct __vmData__ *__pRT__; {
-__BEGIN_PACKAGE__("libbasic", _libbasic_Init);
+__BEGIN_PACKAGE2__("libbasic", _libbasic_Init, "stx:libbasic");
 _Object_Init(pass,__pRT__,snd);
 _Autoload_Init(pass,__pRT__,snd);
 _Project_Init(pass,__pRT__,snd);