diff options
author | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-26 20:13:40 +0000 |
---|---|---|
committer | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-26 20:13:40 +0000 |
commit | 31b2e08082ca4844cf2ba2d941b30eebcf81302f (patch) | |
tree | 8b268addcad7f17f59222b4175a95669043533aa /tests/tbs | |
parent | 25236bba7023d3c1c2bda30c6b98e7dbed1906f2 (diff) | |
download | fpc-31b2e08082ca4844cf2ba2d941b30eebcf81302f.tar.gz |
* allow an integer expression for SetPeFlags and SetPeOptFlags (Delphi compatible)
* adjusted test to check that as well
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47602 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/tbs')
-rw-r--r-- | tests/tbs/tb0596.pp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/tbs/tb0596.pp b/tests/tbs/tb0596.pp index 6beda27c3e..28153cbd88 100644 --- a/tests/tbs/tb0596.pp +++ b/tests/tbs/tb0596.pp @@ -5,13 +5,21 @@ program tb0596; const IMAGE_FILE_LARGE_ADDRESS_AWARE = $0020; + IMAGE_REMOVABLE_RUN_FROM_SWAP = $0400; + IMAGE_NET_RUN_FROM_SWAP = $0800; + IMAGE_DLLCHARACTERISTICS_NO_ISOLATION = $0200; + IMAGE_DLLCHARACTERISTICS_APPCONTAINER = $1000; IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE = $8000; {$setpeflags IMAGE_FILE_LARGE_ADDRESS_AWARE} {$setpeflags $0800} +{$setpeflags IMAGE_REMOVABLE_RUN_FROM_SWAP or IMAGE_NET_RUN_FROM_SWAP} +{$setpeflags $0008 or $0004} {$setpeoptflags IMAGE_DLLCHARACTERISTICS_TERMINAL_SERVER_AWARE} {$setpeoptflags $0040} +{$setpeoptflags IMAGE_DLLCHARACTERISTICS_APPCONTAINER or IMAGE_DLLCHARACTERISTICS_NO_ISOLATION} +{$setpeoptflags $0008 or $0004} begin |