mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 14:23:25 +02:00
1366498255
+ check if tnodeflags is 4 bytes or less * do not do cse on expressions which address is taken git-svn-id: trunk@26713 -
9 lines
121 B
ObjectPascal
9 lines
121 B
ObjectPascal
{ %OPT=-O3 }
|
|
{ %norun }
|
|
program test4;
|
|
var
|
|
S : ansistring;
|
|
begin
|
|
writeln((PByte(@S[1])^ = $1) or (S[1] = '.'));
|
|
end.
|