From 883d1f2a792ddc42403ca08d7a5202ba1f1333e1 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 12 May 2019 21:08:42 +0000
Subject: [PATCH]   - removed test that shortstring is aligned to a multiple of
 pointer size,     as the compiler does not guarantee any such thing

git-svn-id: trunk@42053 -
---
 tests/test/talign2.pp | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/tests/test/talign2.pp b/tests/test/talign2.pp
index 606233e1cb..8649126fb0 100644
--- a/tests/test/talign2.pp
+++ b/tests/test/talign2.pp
@@ -3,9 +3,6 @@
 { This verifies if the strings are
   correctly aligned, normally the generated assembler
   should be verified manually.
-
-  I consider this test as flawed, or is there a reason, why a
-  shortstring should be aligned to pointer boundaries? (FK)
 }
 program talign2;
 
@@ -78,16 +75,12 @@ const
 {$ifdef haswidestring}
   widestr : widestring = 'simple widestring';
 {$endif}
-  shortstr :shortstring = 'simple shortstring';
 begin
   test(length(ansistr)=17);
 {$ifdef haswidestring}
   test(length(widestr)=17);
 {$endif}
-  test(length(shortstr)=18);
   { verify if the address are correctly aligned! }
-  pt:=@shortstr;
-  test((ptruint(pt) mod pointer_alignment)=0);
   pt:=p;
   test((ptruint(pt) mod pointer_alignment)=0);
   pt:=pchar(ansistr);