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

* fixed test tb0212.pp to check for 2-byte alignment instead of 4-byte on 16-bit

Browse Source 
CPUs

git-svn-id: trunk@28037 -
This commit is contained in:
nickysn 2014-06-23 10:09:14 +00:00
parent da041f9ae6
commit 924a48d440
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/tbs/tb0212.pp
View File

@ -7,6 +7,11 @@ uses erroru;
const
c : byte = 5;
r : real = 3.4;
{$ifdef cpu16}
alignment = 2;
{$else cpu16}
alignment = 4;
{$endif cpu16}
var
l : longint;
cc : char;
@ -14,14 +19,14 @@ var
begin
l:=longint(@r);
if (l mod 4)<>0 then
if (l mod alignment)<>0 then
begin
Writeln('static const are not aligned properly !');
error;
end;
cc:='d';
l:=longint(@rr);
if (l mod 4)<>0 then
if (l mod alignment)<>0 then
begin
Writeln('static var are not aligned properly !');
error;