forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix #54 - SEGFAULT on exit when build with FPC 3.2.0

This commit is contained in:
Basile Burg 2020-08-23 16:04:34 +02:00
parent c48a8f7e8a
commit 79190c984a
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -8,6 +8,7 @@
## Regressions fixed ## 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. - 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 ## Bugs fixed

4
src/u_procinput.pas
View File

@ -63,7 +63,7 @@ begin
EntitiesConnector.addSingleService(self); EntitiesConnector.addSingleService(self);
fname := getDocPath + OptsFname; fname := getDocPath + OptsFname;
if OptsFname.fileExists then if OptsFname.fileExists then
fMru.LoadFromFile(fname); fMru.LoadFromFile(fname, TEncoding.Default);
if fMru.Count.equals(0) then if fMru.Count.equals(0) then
fMru.Insert(0, '(your input here)'); fMru.Insert(0, '(your input here)');
@ -94,7 +94,7 @@ end;
destructor TProcInputWidget.destroy; destructor TProcInputWidget.destroy;
begin begin
// note that mru list max count is not saved. // note that mru list max count is not saved.
fMru.SaveToFile(getDocPath + OptsFname); fMru.SaveToFile(getDocPath + OptsFname, TEncoding.UTF8);
fMru.Free; fMru.Free;
inherited; inherited;
end; end;