* Call inherited constructor

git-svn-id: trunk@40841 -
2025-09-19 23:09:21 +02:00 · 2019-01-11 10:53:45 +00:00 · 2019-01-11 10:53:45 +00:00 · 91420c7d93
commit 91420c7d93
parent 9d048470f6
1 changed files with 1 additions and 0 deletions
--- a/packages/fcl-res/src/coffwriter.pp
+++ b/packages/fcl-res/src/coffwriter.pp
@ -150,6 +150,7 @@ uses coffconsts;

 constructor TCoffStringTable.Create;
  begin
+    inherited create;
    fSize:=4;
    Duplicates:=dupIgnore;
  end;