paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 08:50:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix test after r32820

Browse Source 
git-svn-id: trunk@32855 -
This commit is contained in:
florian 2016-01-05 13:46:06 +00:00
parent 57c7b32490
commit df82921cd8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/webtbs/tw16161.pp
View File

@ -11,9 +11,9 @@ uses
var
Stream1: TMemoryStream;
_Stream1, _Stream2: IStream;
cbRead, cbWritten: LargeInt;
cbRead, cbWritten: LargeUInt;
cbRead1: DWord;
NewPos: Int64;
NewPos: LargeUInt;
buf: array[0..3] of char;
begin
Stream1 := TMemoryStream.Create;
@ -32,4 +32,4 @@ begin
if (cbRead <> 3) or (cbRead1 <> 3) then
halt(3);
Stream1.Free;
end.
end.