paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added checks for the Program Segment Prefix's relative position to the code

Browse Source 
segment in the compact and large memory layout tests

git-svn-id: trunk@28074 -
This commit is contained in:
nickysn 2014-06-26 09:58:12 +00:00
parent be0afd9625
commit 57de15e071
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/cpu16/i8086/tmmc.pp
View File

@ -48,10 +48,15 @@ begin
DS := DSeg;
SS := SSeg;
HS := Seg(HeapP^);
Writeln('PrefixSeg=', PrefixSeg);
Writeln('CS=', CS);
Writeln('DS=', DS);
Writeln('SS=', SS);
Writeln('Heap Seg=', HS);
if not (PrefixSeg < CS) then
Error('PrefixSeg >= CS');
if (CS - PrefixSeg) <> 16 then
Error('(CS - PrefixSeg) <> 16');
if not (CS < DS) then
Error('CS >= DS');
if not (DS < SS) then

3
tests/test/cpu16/i8086/tmml.pp
View File

@ -44,10 +44,13 @@ begin
DS := DSeg;
SS := SSeg;
HS := Seg(HeapP^);
Writeln('PrefixSeg=', PrefixSeg);
Writeln('CS=', CS);
Writeln('DS=', DS);
Writeln('SS=', SS);
Writeln('Heap Seg=', HS);
if not (PrefixSeg < CS) then
Error('PrefixSeg >= CS');
if not (CS < DS) then
Error('CS >= DS');
if not (DS < SS) then