From d03e1e8fd9550107abe63767bb63e4bbcd890b89 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Mon, 26 Dec 2022 16:58:56 +0100
Subject: [PATCH] Update gnugettext.pas to rev 148 from
 http://svn.code.sf.net/p/dxgettext/code/trunk/dxgettext/sample/gnugettext.pas

---
 source/gnugettext.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/source/gnugettext.pas b/source/gnugettext.pas
index 33e21c6e..85866d31 100644
--- a/source/gnugettext.pas
+++ b/source/gnugettext.pas
@@ -3290,7 +3290,7 @@ begin
 
   SetLength (a, bufsize);
   SetLength (b, bufsize);
-  str.Read(a[1],bufsize);
+  str.ReadBuffer(a[1],bufsize);
 
   while true do begin
     rd:=str.Read(b[1],bufsize);
@@ -3307,10 +3307,10 @@ begin
     a:=b;
     offset:=offset+bufsize;
   end;
-{$IFNDEF VER340} // Delphi 10.4 Sydney / BDS 21
-  // this causes a hint in Deohi 10.4
+{$IF CompilerVersion<34}
+  // this causes a hint in Delphi 10.4 and newer
   Result:=0;
-{$ENDIF}
+{$IFEND}
 end;
 
 procedure TFileLocator.Analyze;