From 1c978e95d9366962c68ef6a648f28f1b47110146 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Sat, 9 Nov 2002 21:19:21 +0000
Subject: [PATCH]   * now check address of tc's also and give error.   + 1.1
 only

---
 tests/test/talign2.pp | 29 +++++++++++++++++++++++++----
 1 file changed, 25 insertions(+), 4 deletions(-)

diff --git a/tests/test/talign2.pp b/tests/test/talign2.pp
index 721a9c5f81..0a67a755ba 100644
--- a/tests/test/talign2.pp
+++ b/tests/test/talign2.pp
@@ -1,3 +1,5 @@
+{ %VERSION=1.1 }
+{%OPT=-Og}
 { This verifies if the strings are
   correctly aligned, normally the generated assembler
   should be verified manually.
@@ -22,10 +24,12 @@ program talign2;
 procedure test(b : boolean);
 begin
   if b then exit;
-  WriteLn('Error in length!');
+  WriteLn('Error in length/alignment!!');
   halt(1);
 end;
 
+var
+ pt: pchar;
 const
   b: byte = 0;  { lets just misalign the stuff }
   p : pchar = 'simple pchar stuff';
@@ -36,12 +40,29 @@ const
   shortstr :shortstring = 'simple shortstring';
 begin
   test(length(ansistr)=17);
-  test(length(widestr)=16);
-  test(length(shortstr)=17);
+{$ifdef haswidestring}
+  test(length(widestr)=17);
+{$endif}
+  test(length(shortstr)=18);
+  { verify if the address are correctly aligned! }
+  pt:=@shortstr;
+  test((cardinal(pt) mod sizeof(pointer))=0);
+  pt:=p;
+  test((cardinal(pt) mod sizeof(pointer))=0);
+  pt:=pchar(ansistr);
+  test((cardinal(pt) mod sizeof(pointer))=0);
+{$ifdef haswidestring}
+  pt:=pchar(widestr);
+  test((cardinal(pt) mod sizeof(pointer))=0);
+{$endif}
 end.  
 {
    $Log$
-   Revision 1.1  2002-11-09 13:18:25  carl
+   Revision 1.2  2002-11-09 21:19:21  carl
+     * now check address of tc's also and give error.
+     + 1.1 only
+
+   Revision 1.1  2002/11/09 13:18:25  carl
      * more alignment checking