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

+ added a FFixupThreads property with a TOmfThreads object to TOmfObjInput

Browse Source 
git-svn-id: trunk@39149 -
This commit is contained in:
nickysn 2018-05-30 14:10:12 +00:00
parent 189cba817e
commit ebecfb1ce9
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ogomf.pas
View File

@ -151,6 +151,7 @@ interface
FLNames: TOmfOrderedNameCollection;
FExtDefs: TFPHashObjectList;
FPubDefs: TFPHashObjectList;
FFixupThreads: TOmfThreads;
FRawRecord: TOmfRawRecord;
FCaseSensitiveSegments: Boolean;
FCaseSensitiveSymbols: Boolean;
@ -1870,6 +1871,7 @@ implementation
FLNames:=TOmfOrderedNameCollection.Create(True);
FExtDefs:=TFPHashObjectList.Create;
FPubDefs:=TFPHashObjectList.Create;
FFixupThreads:=TOmfThreads.Create;
FRawRecord:=TOmfRawRecord.Create;
CaseSensitiveSegments:=False;
CaseSensitiveSymbols:=True;
@ -1878,6 +1880,7 @@ implementation
destructor TOmfObjInput.destroy;
begin
FRawRecord.Free;
FFixupThreads.Free;
FPubDefs.Free;
FExtDefs.Free;
FLNames.Free;