libInit.cc
changeset 827 e5b70e6d6fb7
parent 819 92325a593b9b
child 828 121654743fe7
--- a/libInit.cc	Thu Sep 09 13:22:07 1999 +0200
+++ b/libInit.cc	Thu Sep 09 18:06:16 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 */
-_libbasic3_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
+void _libbasic3_Init(pass, __pRT__, snd) INIT_TEXT_SECT;
+#endif
+void _libbasic3_Init(pass, __pRT__, snd)
 OBJ snd; struct __vmData__ *__pRT__; {
-__BEGIN_PACKAGE__("libbasic3", _libbasic3_Init);
+__BEGIN_PACKAGE2__("libbasic3", _libbasic3_Init, "stx:libbasic3");
 _Change_Init(pass,__pRT__,snd);
 _ClassChange_Init(pass,__pRT__,snd);
 _ClassCommentChange_Init(pass,__pRT__,snd);