Преглед на файлове

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

git-svn-id: trunk@28785 -

nickysn преди 11 години
родител
ревизия
c279efc9a5
променени са 1 файла, в които са добавени 4 реда и са изтрити 0 реда
  1. 4 0
      tests/test/cpu16/i8086/ttheap1.pp

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

@@ -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;