equal
deleted
inserted
replaced
49 privateIn:ObjectFileLoader |
49 privateIn:ObjectFileLoader |
50 ! |
50 ! |
51 |
51 |
52 !ObjectFileLoader primitiveDefinitions! |
52 !ObjectFileLoader primitiveDefinitions! |
53 %{ |
53 %{ |
|
54 |
|
55 #undef true |
|
56 #undef false |
54 |
57 |
55 /* |
58 /* |
56 * by default, use whatever the system provides |
59 * by default, use whatever the system provides |
57 */ |
60 */ |
58 #if defined(SYSV4) || defined(HAS_DLOPEN) /* sys5.4 dlopen interface */ |
61 #if defined(SYSV4) || defined(HAS_DLOPEN) /* sys5.4 dlopen interface */ |
243 |
246 |
244 #endif /* WIN_DL */ |
247 #endif /* WIN_DL */ |
245 |
248 |
246 #undef true |
249 #undef true |
247 #define true __STX_true |
250 #define true __STX_true |
|
251 |
248 #undef false |
252 #undef false |
249 #define false __STX_false |
253 #define false __STX_false |
250 |
254 |
251 %} |
255 %} |
252 ! ! |
256 ! ! |
730 This is very machine specific." |
734 This is very machine specific." |
731 |
735 |
732 |os| |
736 |os| |
733 |
737 |
734 OperatingSystem isMSDOSlike ifTrue:[ |
738 OperatingSystem isMSDOSlike ifTrue:[ |
735 "/ includes all Windows systems & os/2 |
739 "/ includes all Windows systems & os/2 |
736 ^ 'dll' |
740 ^ 'dll' |
737 ]. |
741 ]. |
738 OperatingSystem isVMSlike ifTrue:[ |
742 OperatingSystem isVMSlike ifTrue:[ |
739 ^ 'exe' |
743 ^ 'exe' |
740 ]. |
744 ]. |
741 |
745 |
742 os := OperatingSystem getSystemType. |
746 os := OperatingSystem getSystemType. |
743 (os = #linux and:[self loadableBinaryObjectFormat == #aout]) ifTrue:[ |
747 (os = #linux and:[self loadableBinaryObjectFormat == #aout]) ifTrue:[ |
744 "/ not really shared, but loadable |
748 "/ not really shared, but loadable |
745 ^ 'o' |
749 ^ 'o' |
746 ]. |
750 ]. |
747 (os = #hpux) ifTrue:[ |
751 (os = #hpux) ifTrue:[ |
748 ^ 'sl' |
752 ^ 'sl' |
749 ]. |
753 ]. |
750 |
754 |
751 ^ 'so' |
755 ^ 'so' |
752 |
756 |
753 " |
757 " |
4380 ! ! |
4384 ! ! |
4381 |
4385 |
4382 !ObjectFileLoader class methodsFor:'documentation'! |
4386 !ObjectFileLoader class methodsFor:'documentation'! |
4383 |
4387 |
4384 version |
4388 version |
4385 ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.326 2013-01-26 00:01:19 cg Exp $' |
4389 ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.327 2013-01-27 00:09:22 cg Exp $' |
4386 ! |
4390 ! |
4387 |
4391 |
4388 version_CVS |
4392 version_CVS |
4389 ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.326 2013-01-26 00:01:19 cg Exp $' |
4393 ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.327 2013-01-27 00:09:22 cg Exp $' |
4390 ! ! |
4394 ! ! |
4391 |
4395 |
4392 |
4396 |
4393 ObjectFileLoader initialize! |
4397 ObjectFileLoader initialize! |