--- 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