* Undid last commit, wrong branchrelease_3_0_2_rc1

git-svn-id: http://svn.freepascal.org/svn/fpc/tags/release_3_0_2_rc1@34735 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 10 insertions, 10 deletions

diff --git a/packages/fcl-base/src/streamex.pp b/packages/fcl-base/src/streamex.pp
index 72795bb589..58b0087a21 100644
--- a/packages/fcl-base/src/streamex.pp
+++ b/packages/fcl-base/src/streamex.pp
@@ -611,19 +611,19 @@ end;
 
 function  TStreamHelper.ReadSingle:Single;
 begin
-  self.ReadBuffer(result,sizeof(result));
+  self.Read(result,sizeof(result));
 end;
 function  TStreamHelper.ReadDouble:Double;
 begin
-  self.ReadBuffer(result,sizeof(result));
+  self.Read(result,sizeof(result));
 end;
 procedure TStreamHelper.WriteSingle(s:Single);
 begin
-  self.WriteBuffer(s,sizeof(s));
+  self.Write(s,sizeof(s));
 end;
 procedure TStreamHelper.WriteDouble(d:double);
 begin
-  self.WriteBuffer(d,sizeof(d));
+  self.Write(d,sizeof(d));
 end;
 
 
@@ -631,32 +631,32 @@ end;
 // there can only be one helper per class, and I use these in Delphi for FPC compatibility.
 function TStreamHelper.ReadByte: Byte;
 begin
- self.ReadBuffer(result,sizeof(result));
+ self.Read(result,sizeof(result));
 end;
 
 function TStreamHelper.ReadDWord: DWord;
 begin
- self.ReadBuffer(result,sizeof(result));
+ self.Read(result,sizeof(result));
 end;
 
 function TStreamHelper.ReadWord: Word;
 begin
- self.ReadBuffer(result,sizeof(result));
+ self.Read(result,sizeof(result));
 end;
 
 procedure TStreamHelper.WriteByte(b: Byte);
 begin
- self.WriteBuffer(b,sizeof(b));
+ self.Write(b,sizeof(b));
 end;
 
 procedure TStreamHelper.WriteDWord(b: DWord);
 begin
- self.WriteBuffer(b,sizeof(b));
+ self.Write(b,sizeof(b));
 end;
 
 procedure TStreamHelper.WriteWord(b: Word);
 begin
- self.WriteBuffer(b,sizeof(b));
+ self.Write(b,sizeof(b));
 end;
 {$endif}