From 37a9467603128423015648c14575beb8911d85ae Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 19 Jan 2018 08:55:34 +0000
Subject: [PATCH] * Fix patch, unit was not recompiled on last make.. :/

git-svn-id: trunk@38007 -
---
 packages/fcl-res/src/groupresource.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-res/src/groupresource.pp b/packages/fcl-res/src/groupresource.pp
index 97439f0367..67aeb64d31 100644
--- a/packages/fcl-res/src/groupresource.pp
+++ b/packages/fcl-res/src/groupresource.pp
@@ -86,7 +86,7 @@ begin
   fItemList:=TFPList.Create;
   //read NewHeader from resource
   RawData.Position:=0;
-  if RawData.Read(nh,sizeof(nh))<>nh then 
+  if RawData.Read(nh,sizeof(nh))<>sizeof(nh) then 
     exit;
   {$IFDEF ENDIAN_BIG}
   nh.reserved:=SwapEndian(nh.reserved);