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

- removed test that shortstring is aligned to a multiple of pointer size,

Browse Source 
as the compiler does not guarantee any such thing

git-svn-id: trunk@42053 -
This commit is contained in:
Jonas Maebe 2019-05-12 21:08:42 +00:00
parent 0227c55b53
commit 883d1f2a79
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/test/talign2.pp
View File

@ -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);