From 7038d18d5025accdbf95d3b6f8ddea4025542b06 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Fri, 9 Aug 2019 14:51:35 +0000
Subject: [PATCH] * fixed wrong typecast in TNewExeImportedNameTable.GetSize

git-svn-id: trunk@42617 -
---
 compiler/ogomf.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas
index 78562e8f01..90eade9efd 100644
--- a/compiler/ogomf.pas
+++ b/compiler/ogomf.pas
@@ -3829,7 +3829,7 @@ cleanup:
         Result:=1;
         { each entry is 1 byte, plus the length of the name }
         for i:=0 to Count-1 do
-          Inc(Result,1+Length(TNewExeResidentNameTableEntry(Items[i]).Name));
+          Inc(Result,1+Length(TNewExeImportedNameTableEntry(Items[i]).Name));
       end;
 
     procedure TNewExeImportedNameTable.AddImportedName(const name: TSymStr);