+ added huge pointer assignment and far->huge conversion tests

git-svn-id: trunk@28091 -

.gitattributes

@@ -10853,6 +10853,9 @@ tests/test/cpu16/i8086/tfarptr1.pp svneol=native#text/pascal
 tests/test/cpu16/i8086/tfarptr2.pp svneol=native#text/pascal
 tests/test/cpu16/i8086/tfarptr3.pp svneol=native#text/pascal
 tests/test/cpu16/i8086/tfarptr4.pp svneol=native#text/pascal
+tests/test/cpu16/i8086/thugeptr1.pp svneol=native#text/pascal
+tests/test/cpu16/i8086/thugeptr1a.pp svneol=native#text/pascal
+tests/test/cpu16/i8086/thugeptr1b.pp svneol=native#text/pascal
 tests/test/cpu16/i8086/tintr1.pp svneol=native#text/pascal
 tests/test/cpu16/i8086/tintr2.pp svneol=native#text/pascal
 tests/test/cpu16/i8086/tmmc.pp svneol=native#text/pascal

tests/test/cpu16/i8086/thugeptr1.pp

@@ -0,0 +1,94 @@
+{ %cpu=i8086 }
+
+program thugeptr1;
+
+var
+  ErrorCode: Integer;
+
+procedure Error(Code: Integer);
+begin
+  Writeln('Error: ', code);
+  ErrorCode := Code;
+end;
+
+type
+  THugePtrRec = packed record
+    offset: Word;
+    segment: Word;
+  end;
+
+var
+  HugePtr: HugePointer;
+  HugePtr2: HugePointer;
+  HugePtrRec: THugePtrRec absolute HugePtr;
+  I: Integer;
+  W1, W2: Word;
+begin
+  ErrorCode := 0;
+
+  Writeln('Ptr(const, const)');
+  HugePtr := HugePointer(Ptr($1234, $5678));
+  if HugePtrRec.offset <> $5678 then
+    Error(1);
+  if HugePtrRec.segment <> $1234 then
+    Error(2);
+
+  Writeln('Ptr(const, var)');
+  for I := 1 to 1000 do
+  begin
+    HugePtr := HugePointer(Ptr($1234, $5678));
+    W2 := Random($10000);
+    HugePtr := HugePointer(Ptr($4321, W2));
+    if HugePtrRec.offset <> W2 then
+      Error(3);
+    if HugePtrRec.segment <> $4321 then
+      Error(4);
+  end;
+
+  Writeln('Ptr(var, const)');
+  for I := 1 to 1000 do
+  begin
+    HugePtr := HugePointer(Ptr($1234, $5678));
+    W1 := Random($10000);
+    HugePtr := HugePointer(Ptr(W1, $8765));
+    if HugePtrRec.segment <> W1 then
+      Error(5);
+    if HugePtrRec.offset <> $8765 then
+      Error(6);
+  end;
+
+  Writeln('Ptr(var, var)');
+  for I := 1 to 1000 do
+  begin
+    HugePtr := HugePointer(Ptr($1234, $5678));
+    W1 := Random($10000);
+    W2 := Random($10000);
+    HugePtr := HugePointer(Ptr(W1, W2));
+    if HugePtrRec.segment <> W1 then
+      Error(7);
+    if HugePtrRec.offset <> W2 then
+      Error(8);
+  end;
+
+  Writeln('nil');
+  HugePtr := HugePointer(Ptr($1234, $5678));
+  HugePtr := nil;
+  if HugePtrRec.segment <> 0 then
+    Error(9);
+  if HugePtrRec.offset <> 0 then
+    Error(10);
+
+  Writeln('assignment');
+  HugePtr := nil;
+  HugePtr2 := HugePointer(Ptr($2143, $6587));
+  HugePtr := HugePtr2;
+  if HugePtrRec.segment <> $2143 then
+    Error(11);
+  if HugePtrRec.offset <> $6587 then
+    Error(12);
+
+  if ErrorCode = 0 then
+    Writeln('Success!')
+  else
+    Halt(ErrorCode);
+end.

tests/test/cpu16/i8086/thugeptr1a.pp

@@ -0,0 +1,99 @@
+{ %cpu=i8086 }
+
+program thugeptr1a;
+
+var
+  ErrorCode: Integer;
+
+procedure Error(Code: Integer);
+begin
+  Writeln('Error: ', code);
+  ErrorCode := Code;
+end;
+
+function HPtr(sel, off: Word): HugePointer;
+begin
+  HPtr := HugePointer(Ptr(sel, off));
+end;
+
+type
+  THugePtrRec = packed record
+    offset: Word;
+    segment: Word;
+  end;
+
+var
+  HugePtr: HugePointer;
+  HugePtr2: HugePointer;
+  HugePtrRec: THugePtrRec absolute HugePtr;
+  I: Integer;
+  W1, W2: Word;
+begin
+  ErrorCode := 0;
+
+  Writeln('Ptr(const, const)');
+  HugePtr := HPtr($1234, $5678);
+  if HugePtrRec.offset <> $5678 then
+    Error(1);
+  if HugePtrRec.segment <> $1234 then
+    Error(2);
+
+  Writeln('Ptr(const, var)');
+  for I := 1 to 1000 do
+  begin
+    HugePtr := HPtr($1234, $5678);
+    W2 := Random($10000);
+    HugePtr := HPtr($4321, W2);
+    if HugePtrRec.offset <> W2 then
+      Error(3);
+    if HugePtrRec.segment <> $4321 then
+      Error(4);
+  end;
+
+  Writeln('Ptr(var, const)');
+  for I := 1 to 1000 do
+  begin
+    HugePtr := HPtr($1234, $5678);
+    W1 := Random($10000);
+    HugePtr := HPtr(W1, $8765);
+    if HugePtrRec.segment <> W1 then
+      Error(5);
+    if HugePtrRec.offset <> $8765 then
+      Error(6);
+  end;
+
+  Writeln('Ptr(var, var)');
+  for I := 1 to 1000 do
+  begin
+    HugePtr := HPtr($1234, $5678);
+    W1 := Random($10000);
+    W2 := Random($10000);
+    HugePtr := HPtr(W1, W2);
+    if HugePtrRec.segment <> W1 then
+      Error(7);
+    if HugePtrRec.offset <> W2 then
+      Error(8);
+  end;
+
+  Writeln('nil');
+  HugePtr := HPtr($1234, $5678);
+  HugePtr := nil;
+  if HugePtrRec.segment <> 0 then
+    Error(9);
+  if HugePtrRec.offset <> 0 then
+    Error(10);
+
+  Writeln('assignment');
+  HugePtr := nil;
+  HugePtr2 := HPtr($2143, $6587);
+  HugePtr := HugePtr2;
+  if HugePtrRec.segment <> $2143 then
+    Error(11);
+  if HugePtrRec.offset <> $6587 then
+    Error(12);
+
+  if ErrorCode = 0 then
+    Writeln('Success!')
+  else
+    Halt(ErrorCode);
+end.

tests/test/cpu16/i8086/thugeptr1b.pp

@@ -0,0 +1,99 @@
+{ %cpu=i8086 }
+
+program thugeptr1b;
+
+var
+  ErrorCode: Integer;
+
+procedure Error(Code: Integer);
+begin
+  Writeln('Error: ', code);
+  ErrorCode := Code;
+end;
+
+function HPtr(sel, off: Word): HugePointer; inline;
+begin
+  HPtr := HugePointer(Ptr(sel, off));
+end;
+
+type
+  THugePtrRec = packed record
+    offset: Word;
+    segment: Word;
+  end;
+
+var
+  HugePtr: HugePointer;
+  HugePtr2: HugePointer;
+  HugePtrRec: THugePtrRec absolute HugePtr;
+  I: Integer;
+  W1, W2: Word;
+begin
+  ErrorCode := 0;
+
+  Writeln('Ptr(const, const)');
+  HugePtr := HPtr($1234, $5678);
+  if HugePtrRec.offset <> $5678 then
+    Error(1);
+  if HugePtrRec.segment <> $1234 then
+    Error(2);
+
+  Writeln('Ptr(const, var)');
+  for I := 1 to 1000 do
+  begin
+    HugePtr := HPtr($1234, $5678);
+    W2 := Random($10000);
+    HugePtr := HPtr($4321, W2);
+    if HugePtrRec.offset <> W2 then
+      Error(3);
+    if HugePtrRec.segment <> $4321 then
+      Error(4);
+  end;
+
+  Writeln('Ptr(var, const)');
+  for I := 1 to 1000 do
+  begin
+    HugePtr := HPtr($1234, $5678);
+    W1 := Random($10000);
+    HugePtr := HPtr(W1, $8765);
+    if HugePtrRec.segment <> W1 then
+      Error(5);
+    if HugePtrRec.offset <> $8765 then
+      Error(6);
+  end;
+
+  Writeln('Ptr(var, var)');
+  for I := 1 to 1000 do
+  begin
+    HugePtr := HPtr($1234, $5678);
+    W1 := Random($10000);
+    W2 := Random($10000);
+    HugePtr := HPtr(W1, W2);
+    if HugePtrRec.segment <> W1 then
+      Error(7);
+    if HugePtrRec.offset <> W2 then
+      Error(8);
+  end;
+
+  Writeln('nil');
+  HugePtr := HPtr($1234, $5678);
+  HugePtr := nil;
+  if HugePtrRec.segment <> 0 then
+    Error(9);
+  if HugePtrRec.offset <> 0 then
+    Error(10);
+
+  Writeln('assignment');
+  HugePtr := nil;
+  HugePtr2 := HPtr($2143, $6587);
+  HugePtr := HugePtr2;
+  if HugePtrRec.segment <> $2143 then
+    Error(11);
+  if HugePtrRec.offset <> $6587 then
+    Error(12);
+
+  if ErrorCode = 0 then
+    Writeln('Success!')
+  else
+    Halt(ErrorCode);
+end.