Procházet zdrojové kódy

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

git-svn-id: trunk@28785 -

nickysn před 10 roky
rodič
revize
c279efc9a5
1 změnil soubory, kde provedl 4 přidání a 0 odebrání
  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;