oops
authorClaus Gittinger <cg@exept.de>
Wed, 13 Dec 1995 18:51:07 +0100
changeset 748 d1b534685ea6
parent 747 ea3b6f7fd7ce
child 749 be57bbb9ad3d
oops
Method.st
--- a/Method.st	Wed Dec 13 17:55:23 1995 +0100
+++ b/Method.st	Wed Dec 13 18:51:07 1995 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.63 1995-12-13 16:55:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.64 1995-12-13 17:51:07 cg Exp $'
 !
 
 documentation
@@ -510,7 +510,7 @@
 %{  /* NOCONTEXT */
     /* I made this a primitive to get the define constant from stc.h */
 
-#ifdef F_PRIVATE
+#if defined(F_PRIVATE) && defined(M_PRIVACY)
     int f = _intVal(_INST(flags));
 
     f = (f & ~M_PRIVACY) | F_PRIVATE;
@@ -538,7 +538,7 @@
 %{  /* NOCONTEXT */
     /* I made this a primitive to get the define constant from stc.h */
 
-#ifdef F_CLASSPRIVATE
+#if defined(F_CLASSPRIVATE) && defined(M_PRIVACY)
     int f = _intVal(_INST(flags));
 
     f = (f & ~M_PRIVACY) | F_CLASSPRIVATE;
@@ -565,7 +565,7 @@
 %{  /* NOCONTEXT */
     /* I made this a primitive to get the define constant from stc.h */
 
-#if M_PRIVACY
+#ifdef M_PRIVACY
     int f = _intVal(_INST(flags));
 
     f = f & ~M_PRIVACY;
@@ -589,7 +589,7 @@
 %{  /* NOCONTEXT */
     int f = _intVal(_INST(flags));
 
-#if F_IGNORED
+#if defined(F_IGNORED) && defined(M_PRIVACY)
     f = (f & ~M_PRIVACY) | F_IGNORED;
 #endif
     _INST(flags) = _MKSMALLINT(f);
@@ -611,7 +611,7 @@
 %{  /* NOCONTEXT */
     /* I made this a primitive to get the define constant from stc.h */
 
-#ifdef F_PRIVATE
+#if defined(F_PRIVATE) && defined(M_PRIVACY)
     int f = _intVal(_INST(flags));
 
     if ((f & M_PRIVACY) == F_PRIVATE) {
@@ -638,7 +638,7 @@
 %{  /* NOCONTEXT */
     /* I made this a primitive to get the define constant from stc.h */
 
-#ifdef F_CLASSPRIVATE
+#if defined(F_CLASSPRIVATE) && defined(M_PRIVACY)
     int f = _intVal(_INST(flags));
 
     if ((f & M_PRIVACY) == F_CLASSPRIVATE) {
@@ -662,7 +662,7 @@
 %{  /* NOCONTEXT */
     /* I made this a primitive to get the define constant from stc.h */
 
-#if defined(F_PRIVATE) || defined(F_CLASSPRIVATE) || defined(F_IGNORED)
+#if defined(M_PRIVACY) && (defined(F_PRIVATE) || defined(F_CLASSPRIVATE) || defined(F_IGNORED))
 
     int f = _intVal(_INST(flags));
 # ifdef F_PRIVATE
@@ -701,7 +701,7 @@
      It may change or even vanish (if it shows to be not useful)."
 
 %{  /* NOCONTEXT */
-#ifdef F_IGNORED
+#if defined(F_IGNORED) && defined(M_PRIVACY)
     int f = _intVal(_INST(flags));
 
     if ((f & M_PRIVACY) == F_IGNORED) {