diff options
author | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-03-14 10:55:45 +0000 |
---|---|---|
committer | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2018-03-14 10:55:45 +0000 |
commit | 6b380b21fb0e2b7b0a000a4aa4f8c78628448149 (patch) | |
tree | a55c71286b2edebca2dcd385de84295500f57cd4 /tests/tstunits | |
parent | 0cfe7b18d28e3429a49a4e7d0e99e3c69a1cfc17 (diff) | |
download | fpc-6b380b21fb0e2b7b0a000a4aa4f8c78628448149.tar.gz |
Fix compilation failure in erroru unit, change return type to int64, as this is a memory change which can be negative
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@38524 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/tstunits')
-rw-r--r-- | tests/tstunits/erroru.pp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/tstunits/erroru.pp b/tests/tstunits/erroru.pp index 9de91b81c9..11b1989d25 100644 --- a/tests/tstunits/erroru.pp +++ b/tests/tstunits/erroru.pp @@ -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 |