mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 01:48:00 +02:00
2a3eeab96d
index expressions (mantis #34055) * prevent all indirect structure indexing instead of only ansi/wide/unicodestrings git-svn-id: trunk@40010 -
25 lines
473 B
ObjectPascal
25 lines
473 B
ObjectPascal
{$mode objfpc}
|
|
|
|
type
|
|
TDOS_FIELDNAMES = (
|
|
Dos_Signature, // ord = 0
|
|
Dos_OffsetToNewExecutable // ord = 1
|
|
);
|
|
|
|
|
|
|
|
const
|
|
DosFieldLabelsB : array[TDOS_FIELDNAMES]
|
|
of pwidechar =
|
|
(
|
|
'DOS signature',
|
|
'offset to new executable'
|
|
);
|
|
|
|
d : ppwidechar = @DosFieldLabelsB[Dos_OffsetToNewExecutable];
|
|
|
|
begin
|
|
if d<>@DosFieldLabelsB[Dos_OffsetToNewExecutable] then
|
|
halt(1);
|
|
end.
|