paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 08:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
layout tests

git-svn-id: trunk@28073 -
This commit is contained in:
nickysn 2014-06-26 09:20:51 +00:00
parent 4c3eb391ef
commit be0afd9625
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -33,8 +33,16 @@ begin
ErrorsFound := True; ErrorsFound := True;
end; end;
var
ProcVar: Procedure;
begin begin
ErrorsFound := False; 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); GetMem(HeapP, 5);
CS := CSeg; CS := CSeg;
DS := DSeg; DS := DSeg;

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

@ -29,8 +29,16 @@ begin
ErrorsFound := True; ErrorsFound := True;
end; end;
var
ProcVar: Procedure;
begin begin
ErrorsFound := False; 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); GetMem(HeapP, 5);
CS := CSeg; CS := CSeg;
DS := DSeg; DS := DSeg;