|
@@ -3,6 +3,9 @@
|
|
{ This verifies if the strings are
|
|
{ This verifies if the strings are
|
|
correctly aligned, normally the generated assembler
|
|
correctly aligned, normally the generated assembler
|
|
should be verified manually.
|
|
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;
|
|
program talign2;
|
|
|
|
|
|
@@ -50,6 +53,10 @@ begin
|
|
test((ptruint(pt) mod sizeof(pointer))=0);
|
|
test((ptruint(pt) mod sizeof(pointer))=0);
|
|
{$ifdef haswidestring}
|
|
{$ifdef haswidestring}
|
|
pt:=pchar(widestr);
|
|
pt:=pchar(widestr);
|
|
|
|
+{$ifdef FPC_WINLIKEWIDESTRING}
|
|
|
|
+ test((ptruint(pt) mod 4)=0);
|
|
|
|
+{$else FPC_WINLIKEWIDESTRING}
|
|
test((ptruint(pt) mod sizeof(pointer))=0);
|
|
test((ptruint(pt) mod sizeof(pointer))=0);
|
|
|
|
+{$endif FPC_WINLIKEWIDESTRING}
|
|
{$endif}
|
|
{$endif}
|
|
end.
|
|
end.
|