Method.st
changeset 23827 d9f5a3454db2
parent 23786 fee4d65305fd
child 23830 802fef671b06
--- a/Method.st	Sun Mar 03 23:18:13 2019 +0100
+++ b/Method.st	Mon Mar 04 09:35:04 2019 +0100
@@ -1062,7 +1062,6 @@
     "Modified (format): / 18-11-2011 / 14:47:06 / cg"
 ! !
 
-
 !Method methodsFor:'accessing-visibility'!
 
 isIgnored
@@ -2573,39 +2572,47 @@
     |newMethod function|
 
     (self
-	literalsDetect:[:lit |
-	    #(
-		#'invoke'
-		#'invokeWith:'
-		#'invokeWith:with:'
-		#'invokeWith:with:with:'
-		#'invokeWith:with:with:with:'
-		#'invokeWithArguments:'
-		#'invokeCPPVirtualOn:'
-		#'invokeCPPVirtualOn:with:'
-		#'invokeCPPVirtualOn:with:with:'
-		#'invokeCPPVirtualOn:with:with:with:'
-		#'invokeCPPVirtualOn:with:with:with:with:'
-		#'invokeCPPVirtualOn:withArguments:'
-	    ) includes:lit
-	]
-	ifNone:nil) notNil
+        literalsDetect:[:lit |
+            #(
+                #'invoke'
+                #'invokeWith:'
+                #'invokeWith:with:'
+                #'invokeWith:with:with:'
+                #'invokeWith:with:with:with:'
+                #'invokeWithArguments:'
+                #'invokeCPPVirtualOn:'
+                #'invokeCPPVirtualOn:with:'
+                #'invokeCPPVirtualOn:with:with:'
+                #'invokeCPPVirtualOn:with:with:with:'
+                #'invokeCPPVirtualOn:with:with:with:with:'
+                #'invokeCPPVirtualOn:withArguments:'
+                #'invokeObjCOn:'
+                #'invokeObjCOn:with:'
+                #'invokeObjCOn:with:with:'
+                #'invokeObjCOn:with:with:with:'
+                #'invokeObjCOn:with:with:with:with:'
+                #'invokeObjCOn:withArguments:'
+            ) includes:lit
+        ]
+        ifNone:nil) notNil
     ifTrue:[
-	"/ sigh - for stc-compiled code, this does not work:
-	function := self literalsDetect:[:lit | lit isExternalLibraryFunction] ifNone:nil.
-	function isNil ifTrue:[
-	    "/ parse it and ask the parser
-	    newMethod := Compiler compile:self source forClass:self mclass install:false.
-	    function := newMethod literalsDetect:[:lit | lit isExternalLibraryFunction] ifNone:nil.
-	].
-	^ function
+        "/ sigh - for stc-compiled code, this does not work:
+        function := self literalsDetect:[:lit | lit isExternalLibraryFunction] ifNone:nil.
+        function isNil ifTrue:[
+            "/ parse it and ask the parser
+            newMethod := Compiler compile:self source forClass:self mclass install:false.
+            function := newMethod literalsDetect:[:lit | lit isExternalLibraryFunction] ifNone:nil.
+        ].
+        ^ function
     ].
     ^ nil
 
     "
      (IDispatchPointer compiledMethodAt:#'invokeGetTypeInfo:_:_:')
-	externalLibraryFunction
+        externalLibraryFunction
     "
+
+    "Modified: / 04-03-2019 / 09:34:46 / Claus Gittinger"
 !
 
 hasAnnotation
@@ -3819,7 +3826,6 @@
     "Created: / 23-07-2012 / 11:16:36 / cg"
 ! !
 
-
 !Method methodsFor:'source management'!
 
 revisionInfo