#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Mon, 04 Mar 2019 09:45:05 +0100
changeset 23830 802fef671b06
parent 23829 209adc65cf44
child 23831 c741a73646f0
#REFACTORING by cg class: Method changed: #externalLibraryFunction
Method.st
--- a/Method.st	Mon Mar 04 09:44:29 2019 +0100
+++ b/Method.st	Mon Mar 04 09:45:05 2019 +0100
@@ -2569,31 +2569,11 @@
     "if this is an externalLibraryFunction call, return the externalLibraryFunction.
      Returns nil otherwise."
 
-    |newMethod function|
-
+    |invokeSelectors newMethod function|
+
+    invokeSelectors := ExternalLibraryFunction invokeSelectors.
     (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:'
-                #'invokeObjCOn:'
-                #'invokeObjCOn:with:'
-                #'invokeObjCOn:with:with:'
-                #'invokeObjCOn:with:with:with:'
-                #'invokeObjCOn:with:with:with:with:'
-                #'invokeObjCOn:withArguments:'
-            ) includes:lit
-        ]
+        literalsDetect:[:lit | invokeSelectors includes:lit]
         ifNone:nil) notNil
     ifTrue:[
         "/ sigh - for stc-compiled code, this does not work:
@@ -2612,7 +2592,7 @@
         externalLibraryFunction
     "
 
-    "Modified: / 04-03-2019 / 09:34:46 / Claus Gittinger"
+    "Modified: / 04-03-2019 / 09:37:01 / Claus Gittinger"
 !
 
 hasAnnotation