mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-13 01:18:17 +02:00
+ added TNewExeHeaderFlags type, describing the flags in the header of win16 executables
git-svn-id: trunk@42179 -
This commit is contained in:
parent
180576d17c
commit
4dbccce43c
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user