From c5c9fd1d2bbcd26a2b6d77f831aec441ae720c9e Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Tue, 15 Nov 2016 10:15:23 +0100
Subject: [PATCH] #104, fix error on huge module

---
 src/ce_dastworx.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/ce_dastworx.pas b/src/ce_dastworx.pas
index fa7bbdb4..aa951579 100644
--- a/src/ce_dastworx.pas
+++ b/src/ce_dastworx.pas
@@ -93,11 +93,13 @@ var
   prs: TJSONParser;
   jps: TJSONData;
   str: string;
+  lst: TStringList;
 begin
   str := getToolName;
   if str.isEmpty then
     exit;
   prc := TProcess.Create(nil);
+  lst := TStringList.create;
   try
     prc.Executable := str;
     prc.Parameters.Add('-H');
@@ -107,7 +109,8 @@ begin
     str := source.Text;
     prc.Input.Write(str[1], str.length);
     prc.CloseInput;
-    prs := TJSONParser.Create(prc.Output, [joIgnoreTrailingComma, joUTF8]);
+    processOutputToStrings(prc, lst);
+    prs := TJSONParser.Create(lst.Text, [joIgnoreTrailingComma, joUTF8]);
     jps := prs.Parse;
     if jps.isNotNil and (jps.JSONType = jtObject) then
       jsn := TJSONObject(jps.Clone);
@@ -118,6 +121,7 @@ begin
   finally
     prs.Free;
     prc.Free;
+    lst.free;
   end;
 end;