diff -r bf447ad92afc -r baf43cf6d907 AbstractOperatingSystem.st --- a/AbstractOperatingSystem.st Thu Oct 13 02:25:10 2016 +0200 +++ b/AbstractOperatingSystem.st Thu Oct 13 11:39:45 2016 +0200 @@ -4199,64 +4199,32 @@ !AbstractOperatingSystem class methodsFor:'os queries'! getCCDefine + + "return a string which was used to identify the C-Compiler used when STX was compiled, and which should be passed down when compiling methods. For example, on linux, this is '__GNUC__'; - on windows, this is either '__MSC__' or '__BORLANDC__'" - -%{ /* NOCONTEXT */ -#ifndef CC_DEFINE -# ifdef __win32__ -# if defined( __BORLANDC__ ) -# define CC_DEFINE "__BORLANDC__" -# else -# if defined( __VISUALC__ ) -# define CC_DEFINE "__VISUALC__" -# else -# if defined( __MINGW64__ ) -# define CC_DEFINE "__MINGW64__" -# else -# if defined( __MINGW32__ ) -# define CC_DEFINE "__MINGW32__" -# else -# define CC_DEFINE "__CC__" -# endif -# endif -# endif -# endif -# else /* not __win32__ */ -# ifdef __CLANG__ -# define CC_DEFINE "__CLANG__" -# else -# ifdef __GNUC__ -# define CC_DEFINE "__GNUC__" -# else -# define CC_DEFINE "__CC__" -# endif -# endif -# endif -#endif - RETURN ( __MKSTRING(CC_DEFINE)); -%} + on windows, this could be '__VISUALC__', '__BORLANDC__' or '__MINGW__'" + + self obsoleteMethodWarning. + ^ STCCompilerInterface getCCDefine + " OperatingSystem getCCDefine " ! getCPUDefine + "return a string which was used to identify this CPU type when STX was compiled, and which should be passed down when compiling methods. - For example, on linux, this may be '-Di386'; on a vax, this would be '-Dvax'. + For example, on linux, this may be '-D__x86__'; on a vax, this would be '-D__vax__'. This is normally not of interest to 'normal' users; however, it is passed down to the c-compiler when methods are incrementally compiled to machine code." -%{ /* NOCONTEXT */ -# ifndef CPU_DEFINE -# define CPU_DEFINE "-DunknownCPU" -# endif - - RETURN ( __MKSTRING(CPU_DEFINE)); -%} + self obsoleteMethodWarning. + ^ STCCompilerInterface getCPUDefine + " OperatingSystem getCPUDefine " @@ -4479,26 +4447,15 @@ ! getOSDefine + + "return a string which was used to identify this machine when stx was compiled, and which should be passed down when compiling methods. - For example, on linux, this is '-DLINUX'." - -%{ /* NOCONTEXT */ - -#ifndef OS_DEFINE -# ifdef __win32__ -# define OS_DEFINE "-D__win32__" -# endif - -# ifndef OS_DEFINE -# define OS_DEFINE "-DunknownOS" -# endif -#endif - - RETURN ( __MKSTRING(OS_DEFINE)); - -#undef OS_DEFINE -%} + For example, on linux, this is '-D__linux__'." + + self obsoleteMethodWarning. + ^ STCCompilerInterface getOSDefine + " OperatingSystem getOSDefine " @@ -4660,6 +4617,8 @@ ! getPlatformDefine + + "return a string which defines the platform, and which should be passed down when compiling methods. For example, on all unices, this is '-DUNIX'."