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

+ added normalization and alignment test for HeapOrg and HeapEnd in the

Browse Source 
taddint1.pp test

git-svn-id: trunk@28785 -
This commit is contained in:
nickysn 2014-10-07 14:02:47 +00:00
parent 2843194124
commit c279efc9a5
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/cpu16/i8086/ttheap1.pp
View File

@ -133,6 +133,10 @@ begin
Writeln('HeapEnd = ', PtrStr(HeapEnd));
Writeln('HeapPtr = ', PtrStr(HeapPtr));
Writeln('FreeList = ', PtrStr(FreeList));
CheckNormalization(HeapOrg);
CheckAlignment(HeapOrg);
CheckNormalization(HeapEnd);
CheckAlignment(HeapEnd);
CheckSequence_AllowEquals(HeapOrg, FreeList);
CheckSequence_AllowEquals(HeapPtr, HeapEnd);
WalkFreeList;