From 924a48d440fff6959e51539a2a63ff50188a4d84 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Mon, 23 Jun 2014 10:09:14 +0000
Subject: [PATCH] * fixed test tb0212.pp to check for 2-byte alignment instead
 of 4-byte on 16-bit   CPUs

git-svn-id: trunk@28037 -
---
 tests/tbs/tb0212.pp | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/tests/tbs/tb0212.pp b/tests/tbs/tb0212.pp
index fd2a069bd2..95f534064f 100644
--- a/tests/tbs/tb0212.pp
+++ b/tests/tbs/tb0212.pp
@@ -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;