paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-22 04:51:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* we halt if the currency values are *not* equal, not if they're equal... m(

Browse Source 
git-svn-id: trunk@42487 -
This commit is contained in:
svenbarth 2019-07-23 20:53:50 +00:00
parent 73acb4d1c1
commit 0c27ea83be
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/tcustomattr13.pp
View File

@ -131,7 +131,7 @@ begin
Halt(61); Halt(61);
if aStrm.Read(cu, SizeOf(cu)) <> SizeOf(cu) then if aStrm.Read(cu, SizeOf(cu)) <> SizeOf(cu) then
Halt(62); Halt(62);
if SameValue(cu, CurrVal, 0.00009) then if not SameValue(cu, CurrVal, 0.00009) then
Halt(63); Halt(63);
if aStrm.Read(g, SizeOf(g)) <> SizeOf(g) then if aStrm.Read(g, SizeOf(g)) <> SizeOf(g) then
Halt(64); Halt(64);