diff options
Diffstat (limited to 'compiler/ogomf.pas')
-rw-r--r-- | compiler/ogomf.pas | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/compiler/ogomf.pas b/compiler/ogomf.pas index a7b15bddee..cff3595382 100644 --- a/compiler/ogomf.pas +++ b/compiler/ogomf.pas @@ -460,6 +460,20 @@ interface property ExpectedWindowsVersion: Word read FExpectedWindowsVersion write FExpectedWindowsVersion; end; + { TNewExeOutput } + + TNewExeOutput = class(TExeOutput) + private + FHeader: TNewExeHeader; + protected + procedure DoRelocationFixup(objsec:TObjSection);override; + public + constructor create;override; + destructor destroy;override; + + function writeData:boolean;override; + end; + TOmfAssembler = class(tinternalassembler) constructor create(info: pasminfo; smart:boolean);override; end; @@ -3446,6 +3460,35 @@ cleanup: end; {**************************************************************************** + TNewExeOutput +****************************************************************************} + + procedure TNewExeOutput.DoRelocationFixup(objsec: TObjSection); + begin + {todo} + end; + + constructor TNewExeOutput.create; + begin + inherited create; + CObjData:=TOmfObjData; + CObjSymbol:=TOmfObjSymbol; + FHeader:=TNewExeHeader.Create; + end; + + destructor TNewExeOutput.destroy; + begin + FHeader.Free; + inherited destroy; + end; + + function TNewExeOutput.writeData: boolean; + begin + {todo} + Result:=False; + end; + +{**************************************************************************** TOmfAssembler ****************************************************************************} |