JavaMethod.st
branchcvs_MAIN
changeset 3519 dca32f681eab
parent 3412 df11bb428463
child 3573 4f594dd731dd
--- a/JavaMethod.st	Thu Jan 21 11:00:30 2016 +0100
+++ b/JavaMethod.st	Thu Jan 21 11:01:18 2016 +0100
@@ -20,6 +20,8 @@
 "
 "{ Package: 'stx:libjava' }"
 
+"{ NameSpace: Smalltalk }"
+
 CompiledCode variableSubclass:#JavaMethod
 	instanceVariableNames:'accessFlags selector javaClass descriptor signature lookupObject
 		lineNumberTable localVariableTable source annotations'
@@ -1852,8 +1854,8 @@
     "Marcel, continue here!! And ALWAYS commit ALL the code!! Sigh"
 
     [
-	JavaByteCodePreresolver preresolve: self.
-	accessFlags := accessFlags | A_RESOLVED.
+        JavaByteCodePreresolver preresolve: self.
+        accessFlags := accessFlags bitOr: A_RESOLVED.
         ^1.
     ] on: Error do:[:ex|
         self breakPoint: #mh.  "Marcel, please fix it"
@@ -2449,7 +2451,7 @@
 !
 
 isPackagePrivate
-    ^ (accessFlags bitAnd:A_PRIVATE | A_PUBLIC | A_PROTECTED) = 0
+    ^ (accessFlags bitAnd:((A_PRIVATE bitOr: A_PUBLIC) bitOr: A_PROTECTED)) = 0
 
     "Created: / 05-07-2012 / 10:12:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -2874,15 +2876,15 @@
 !JavaMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libjava/JavaMethod.st,v 1.118 2015-03-20 12:08:00 vrany Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libjava/JavaMethod.st,v 1.118 2015-03-20 12:08:00 vrany Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ 'Id'
+    ^ '$Id$'
 ! !