libInit.cc
changeset 808 33f969acfda0
parent 797 d7ae18254534
child 821 40b0b69bf4b5
--- a/libInit.cc	Wed Sep 08 23:28:27 1999 +0200
+++ b/libInit.cc	Thu Sep 09 18:06:15 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 */
-_libbasic2_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 _libbasic2_Init() INIT_TEXT_SECT;
+#endif
+void _libbasic2_Init(pass, __pRT__, snd)
 OBJ snd; struct __vmData__ *__pRT__; {
-__BEGIN_PACKAGE__("libbasic2", _libbasic2_Init);
+__BEGIN_PACKAGE2__("libbasic2", _libbasic2_Init, "stx:libbasic2");
 _MappedCollection_Init(pass,__pRT__,snd);
 _TwoByteString_Init(pass,__pRT__,snd);
 _JISEncodedString_Init(pass,__pRT__,snd);