From dae7d20d69b1d22de9e50d0c18a02852ac32cfd9 Mon Sep 17 00:00:00 2001 From: michael Date: Thu, 21 Jun 2018 20:54:03 +0000 Subject: [PATCH] * Fix bug #33880 git-svn-id: trunk@39274 - --- packages/rtl-extra/src/unix/serial.pp | 4 ++-- packages/rtl-extra/src/win/serial.pp | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/packages/rtl-extra/src/unix/serial.pp b/packages/rtl-extra/src/unix/serial.pp index a0b670257c..f48edac92d 100644 --- a/packages/rtl-extra/src/unix/serial.pp +++ b/packages/rtl-extra/src/unix/serial.pp @@ -63,7 +63,7 @@ function SerRead(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt; { Tries to write "Count" bytes from "Buffer". Result: Number of bytes written. } -function SerWrite(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt; +function SerWrite(Handle: TSerialHandle; Const Buffer; Count: LongInt): LongInt; procedure SerSetParams(Handle: TSerialHandle; BitsPerSec: LongInt; ByteSize: Integer; Parity: TParityType; StopBits: Integer; @@ -156,7 +156,7 @@ begin Result := fpRead(Handle, Buffer, Count); end; -function SerWrite(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt; +function SerWrite(Handle: TSerialHandle; Const Buffer; Count: LongInt): LongInt; begin Result := fpWrite(Handle, Buffer, Count); end; diff --git a/packages/rtl-extra/src/win/serial.pp b/packages/rtl-extra/src/win/serial.pp index 5d48cbd702..1b007a555a 100644 --- a/packages/rtl-extra/src/win/serial.pp +++ b/packages/rtl-extra/src/win/serial.pp @@ -60,7 +60,7 @@ function SerRead(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt; { Tries to write "Count" bytes from "Buffer". Result: Number of bytes written. } -function SerWrite(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt; +function SerWrite(Handle: TSerialHandle; Const Buffer; Count: LongInt): LongInt; procedure SerSetParams(Handle: TSerialHandle; BitsPerSec: LongInt; ByteSize: Integer; Parity: TParityType; StopBits: Integer; @@ -278,7 +278,7 @@ begin end { SerRead } ; -function SerWrite(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt; +function SerWrite(Handle: TSerialHandle; const Buffer; Count: LongInt): LongInt; var BytesWritten: DWORD;