mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-01 21:33:45 +02:00
+ added class (empty for now) TOmfLibObjectWriter and hook it as an internal ar
in the omf internal assembler constructor. Note it is not used yet, because of the af_needar assembler flag. git-svn-id: trunk@30698 -
This commit is contained in:
parent
85fc1c349f
commit
a365da0b44
@ -126,7 +126,7 @@ implementation
|
||||
SysUtils,
|
||||
cutils,verbose,globals,
|
||||
fmodule,aasmtai,aasmdata,
|
||||
ogmap,
|
||||
ogmap,owomflib,
|
||||
version
|
||||
;
|
||||
|
||||
@ -843,6 +843,7 @@ implementation
|
||||
begin
|
||||
inherited Create(smart);
|
||||
CObjOutput:=TOmfObjOutput;
|
||||
CInternalAr:=TOmfLibObjectWriter;
|
||||
end;
|
||||
|
||||
{*****************************************************************************
|
||||
|
@ -32,6 +32,14 @@ uses
|
||||
cclasses,
|
||||
owbase;
|
||||
|
||||
type
|
||||
|
||||
{ TOmfLibObjectWriter }
|
||||
|
||||
TOmfLibObjectWriter=class(TObjectWriter)
|
||||
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
|
Loading…
Reference in New Issue
Block a user