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

Fix compilation failure in erroru unit, change return type to int64, as this is a memory change which can be negative

Browse Source 
git-svn-id: trunk@38524 -
This commit is contained in:
pierre 2018-03-14 10:55:45 +00:00
parent c3414c6100
commit 0a986a24e0
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/tstunits/erroru.pp
View File

@ -10,7 +10,7 @@ interface
procedure require_error(num : longint);
function DoMem (Var StartMem : sizeuint): sizeuint;
function DoMem (Var StartMem : sizeuint): int64;
implementation
@ -85,9 +85,9 @@ begin
end;
function DoMem (Var StartMem : sizeint): sizeint;
function DoMem (Var StartMem : sizeuint): int64;
function getsize(l:sizeint):string;
function getsize(l:sizeuint):string;
begin
if l<16*1024 then
begin