paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 19:11:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #33880

Browse Source 
git-svn-id: trunk@39274 -
This commit is contained in:
michael 2018-06-21 20:54:03 +00:00
parent 8a34bd22b8
commit dae7d20d69
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/rtl-extra/src/unix/serial.pp
View File

@ -63,7 +63,7 @@ function SerRead(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt;
{ Tries to write "Count" bytes from "Buffer". { Tries to write "Count" bytes from "Buffer".
Result: Number of bytes written. } 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; procedure SerSetParams(Handle: TSerialHandle; BitsPerSec: LongInt;
ByteSize: Integer; Parity: TParityType; StopBits: Integer; ByteSize: Integer; Parity: TParityType; StopBits: Integer;
@ -156,7 +156,7 @@ begin
Result := fpRead(Handle, Buffer, Count); Result := fpRead(Handle, Buffer, Count);
end; end;
function SerWrite(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt; function SerWrite(Handle: TSerialHandle; Const Buffer; Count: LongInt): LongInt;
begin begin
Result := fpWrite(Handle, Buffer, Count); Result := fpWrite(Handle, Buffer, Count);
end; end;

4
packages/rtl-extra/src/win/serial.pp
View File

@ -60,7 +60,7 @@ function SerRead(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt;
{ Tries to write "Count" bytes from "Buffer". { Tries to write "Count" bytes from "Buffer".
Result: Number of bytes written. } 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; procedure SerSetParams(Handle: TSerialHandle; BitsPerSec: LongInt;
ByteSize: Integer; Parity: TParityType; StopBits: Integer; ByteSize: Integer; Parity: TParityType; StopBits: Integer;
@ -278,7 +278,7 @@ begin
end { SerRead } ; end { SerRead } ;
function SerWrite(Handle: TSerialHandle; var Buffer; Count: LongInt): LongInt; function SerWrite(Handle: TSerialHandle; const Buffer; Count: LongInt): LongInt;
var BytesWritten: DWORD; var BytesWritten: DWORD;