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

+ added TNewExeHeaderFlags type, describing the flags in the header of win16 executables

Browse Source 
git-svn-id: trunk@42179 -
This commit is contained in:
nickysn 2019-06-06 16:00:29 +00:00
parent 180576d17c
commit 4dbccce43c
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/ogomf.pas
View File

@ -316,6 +316,36 @@ interface
property MZFlatContentSection: TMZExeSection read GetMZFlatContentSection; property MZFlatContentSection: TMZExeSection read GetMZFlatContentSection;
end; end;
TNewExeHeaderFlag = (
nehfSingleData, { bit 0 }
nehfMultipleData, { bit 1 }
{ 'Global initialization' according to BP7's TDUMP.EXE }
nehfRealMode, { bit 2 }
nehfProtectedModeOnly, { bit 3 }
{ 'EMSDIRECT' according to OpenWatcom's wdump }
{ '8086 instructions' according to Ralf Brown's Interrupt List }
nehfReserved4, { bit 4 }
{ 'EMSBANK' according to OpenWatcom's wdump }
{ '80286 instructions' according to Ralf Brown's Interrupt List }
nehfReserved5, { bit 5 }
{ 'EMSGLOBAL' according to OpenWatcom's wdump }
{ '80386 instructions' according to Ralf Brown's Interrupt List }
nehfReserved6, { bit 6 }
nehfNeedsFPU, { bit 7 }
{ Not compatible with windowing API }
nehfNotWindowAPICompatible, { bit 8 }
{ Compatible with windowing API }
{ (NotWindowAPICompatible + WindowAPICompatible) = Uses windowing API }
nehfWindowAPICompatible, { bit 9 }
{ Family Application (OS/2) according to Ralf Brown's Interrupt List }
nehfReserved10, { bit 10 }
nehfSelfLoading, { bit 11 }
nehfReserved12, { bit 12 }
nehfLinkErrors, { bit 13 }
nehfReserved14, { bit 14 }
nehfIsDLL); { bit 15 }
TNewExeHeaderFlags = set of TNewExeHeaderFlag;
TOmfAssembler = class(tinternalassembler) TOmfAssembler = class(tinternalassembler)
constructor create(info: pasminfo; smart:boolean);override; constructor create(info: pasminfo; smart:boolean);override;
end; end;