paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added set TNewExeSegmentFlags

Browse Source 
git-svn-id: trunk@42203 -
This commit is contained in:
nickysn 2019-06-10 13:06:58 +00:00
parent 7c02f2b531
commit 2487fa7605
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/ogomf.pas
View File

@ -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;