+ added checks for the pointer and procvar sizes in the compact and large memory

  layout tests

git-svn-id: trunk@28073 -

tests/test/cpu16/i8086/tmmc.pp

@@ -33,8 +33,16 @@ begin
   ErrorsFound := True;
 end;
 
+var
+  ProcVar: Procedure;
 begin
   ErrorsFound := False;
+  Writeln('SizeOf(Pointer)=', SizeOf(Pointer));
+  if SizeOf(Pointer) <> 4 then
+    Error('SizeOf(Pointer) <> 4');
+  Writeln('SizeOf(ProcVar)=', SizeOf(ProcVar));
+  if SizeOf(ProcVar) <> 2 then
+    Error('SizeOf(ProcVar) <> 2');
   GetMem(HeapP, 5);
   CS := CSeg;
   DS := DSeg;
@@ -60,4 +68,4 @@ begin
     Writeln('Ok!');
 end
 {$ENDIF SKIP_TEST}
-.
+.

tests/test/cpu16/i8086/tmml.pp

@@ -29,8 +29,16 @@ begin
   ErrorsFound := True;
 end;
 
+var
+  ProcVar: Procedure;
 begin
   ErrorsFound := False;
+  Writeln('SizeOf(Pointer)=', SizeOf(Pointer));
+  if SizeOf(Pointer) <> 4 then
+    Error('SizeOf(Pointer) <> 4');
+  Writeln('SizeOf(ProcVar)=', SizeOf(ProcVar));
+  if SizeOf(ProcVar) <> 4 then
+    Error('SizeOf(ProcVar) <> 4');
   GetMem(HeapP, 5);
   CS := CSeg;
   DS := DSeg;