mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 22:28:06 +02:00
2e186a91fa
scandir.pas: + add function "get_peflag_const" to retrieve the value of a constant * dir_setpeflags & dir_setpeoptflags: first check for an identifier (value is retrieved through "get_peflag_const") and then read a value + added messages for illegal parameters for SetPEFlags and SetPEOptFlags respectively + added tests git-svn-id: trunk@24887 -
13 lines
92 B
ObjectPascal
13 lines
92 B
ObjectPascal
{ %FAIL }
|
|
|
|
program tb0238;
|
|
|
|
const
|
|
Invalid = False;
|
|
|
|
{$setpeoptflags Invalid}
|
|
|
|
begin
|
|
|
|
end.
|