Log slow type-checkers.

Author: johnno1962

App/InjectionNext/Info.plist

@@ -19,7 +19,7 @@
 	<key>CFBundleShortVersionString</key>
 	<string>$(MARKETING_VERSION)</string>
 	<key>CFBundleVersion</key>
-	<string>10838</string>
+	<string>10852</string>
 	<key>LSApplicationCategoryType</key>
 	<string>public.app-category.developer-tools</string>
 	<key>LSMinimumSystemVersion</key>

App/InjectionNext/NextCompiler.swift

@@ -176,6 +176,7 @@ class NextCompiler {
         let baseOptionsToAdd = ["-o", object, "-DDEBUG", "-DINJECTING"]
         let languageSpecific = (isSwift ?
             ["-c", "-filelist", filesfile, "-primary-file", source,
+             "-warn-long-expression-type-checking=150",
              "-external-plugin-path",
              platformUsr+"lib/swift/host/plugins#" +
              platformUsr+"bin/swift-plugin-server",
@@ -189,13 +190,18 @@ class NextCompiler {
         // Call compiler process
         if let errors = Popen.task(exec: compiler,
                arguments: stored.arguments + languageSpecific,
-               cd: stored.workingDir, errors: nil), // Always returns stdout
-           errors.contains(" error: ") {
-            print(([compiler] + stored.arguments +
-                   languageSpecific).joined(separator: " "))
-            _ = error("Recompile failed for: \(source)\n"+errors)
-            lastError = errors
-            return nil
+               cd: stored.workingDir, errors: nil) { // Always returns stdout
+            if errors.contains(" error: ") {
+                print(([compiler] + stored.arguments +
+                       languageSpecific).joined(separator: " "))
+                _ = error("Recompile failed for: \(source)\n"+errors)
+                lastError = errors
+                return nil
+            }
+            for slow: String in errors[
+                #"(?<=/)\w+\.swift:\d+:\d+: warning: expression took \d+ms to type-check.*"#] {
+                log(slow)
+            }
         }
 
         return object