diff options
| author | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-10 13:06:58 +0000 |
|---|---|---|
| committer | nickysn <nickysn@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2019-06-10 13:06:58 +0000 |
| commit | 346afda5ca596ecafe9ba5e7c517ffb3e3f121bd (patch) | |
| tree | 102e2799521050fbbf180cca43205fc118f1f98a | |
| parent | 3295947f02c70496670318c72853957ba482466d (diff) | |
| download | fpc-346afda5ca596ecafe9ba5e7c517ffb3e3f121bd.tar.gz | |
+ added set TNewExeSegmentFlags
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@42203 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | compiler/ogomf.pas | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas index 7a03a53011..71ad478339 100644 --- a/compiler/ogomf.pas +++ b/compiler/ogomf.pas @@ -363,6 +363,25 @@ interface netoPharLap286DosExtenderOS2 = $81, netoPharLap286DosExtenderWindows = $82); + TNewExeSegmentFlag = ( + nesfData, { bit 0 } + nesfLoaderAllocatedMemory, { bit 1 } + nesfLoaded, { bit 2 } + nesfReserved3, { bit 3 } + nesfMovable, { bit 4 } + nesfShareable, { bit 5 } + nesfPreload, { bit 6 } + nesfExecuteOnlyCodeOrReadOnlyData, { bit 7 } + nesfHasRelocationData, { bit 8 } + nesfReserved9, { bit 9 } + nesfReserved10, { bit 10 } + nesfReserved11, { bit 11 } + nesfDiscardable, { bit 12 } + nesfReserved13, { bit 13 } + nesfReserved14, { bit 14 } + nesfReserved15); { bit 15 } + TNewExeSegmentFlags = set of TNewExeSegmentFlag; + TOmfAssembler = class(tinternalassembler) constructor create(info: pasminfo; smart:boolean);override; end; |