From 79190c984aa0aea369a774b5f10835307c0ffbd4 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sun, 23 Aug 2020 16:04:34 +0200
Subject: [PATCH] fix #54 - SEGFAULT on exit when build with FPC 3.2.0

---
 CHANGELOG.md        | 1 +
 src/u_procinput.pas | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 35e25359..45b2da2b 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -8,6 +8,7 @@
 ## Regressions fixed
 
 - Messages, the messages matching to the call stack printed on assert failure were not clickable anymore. The regression was introduced when the support for GNU-style messages was added.
+- Segfault on exit since built with FPC 3.2.0. (#54)
 
 ## Bugs fixed
 
diff --git a/src/u_procinput.pas b/src/u_procinput.pas
index 139a6da7..d73488c6 100644
--- a/src/u_procinput.pas
+++ b/src/u_procinput.pas
@@ -63,7 +63,7 @@ begin
   EntitiesConnector.addSingleService(self);
   fname := getDocPath + OptsFname;
   if OptsFname.fileExists then
-    fMru.LoadFromFile(fname);
+    fMru.LoadFromFile(fname, TEncoding.Default);
   if fMru.Count.equals(0) then
     fMru.Insert(0, '(your input here)');
 
@@ -94,7 +94,7 @@ end;
 destructor TProcInputWidget.destroy;
 begin
   // note that mru list max count is not saved.
-  fMru.SaveToFile(getDocPath + OptsFname);
+  fMru.SaveToFile(getDocPath + OptsFname, TEncoding.UTF8);
   fMru.Free;
   inherited;
 end;