2
0
Эх сурвалжийг харах

+ added normalization and alignment test for HeapOrg and HeapEnd in the
taddint1.pp test

git-svn-id: trunk@28785 -

nickysn 10 жил өмнө
parent
commit
c279efc9a5

+ 4 - 0
tests/test/cpu16/i8086/ttheap1.pp

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