AbstractOperatingSystem.st
changeset 20619 baf43cf6d907
parent 20611 78f8766c19a7
child 20626 497a51533e0b
--- 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
+    <resource: #obsolete>
+    
     "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
+    <resource: #obsolete>
     "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
+    <resource: #obsolete>
+    
     "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
+    <resource: #obsolete>
+    
     "return a string which defines the platform,
      and which should be passed down when compiling methods.
      For example, on all unices, this is '-DUNIX'."