diff -r f122be17a8d0 -r d9f5a3454db2 Method.st --- 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