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

* prtobj, linklibc and reorder converted from local to member variables of the class

Browse Source 
git-svn-id: trunk@41697 -
This commit is contained in:
nickysn 2019-03-14 16:23:55 +00:00
parent a15ec46751
commit dc32554556
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/systems/t_bsd.pas
View File

@ -60,6 +60,9 @@ implementation
private private
LdSupportsNoResponseFile : boolean; LdSupportsNoResponseFile : boolean;
LibrarySuffix : Char; LibrarySuffix : Char;
prtobj : string[80];
ReOrder : Boolean;
linklibc : boolean;
Function WriteResponseFile(isdll:boolean) : Boolean; Function WriteResponseFile(isdll:boolean) : Boolean;
function GetDarwinCrt1ObjName(isdll: boolean): TCmdStr; function GetDarwinCrt1ObjName(isdll: boolean): TCmdStr;
Function GetDarwinPrtobjName(isdll: boolean): TCmdStr; Function GetDarwinPrtobjName(isdll: boolean): TCmdStr;
@ -393,15 +396,12 @@ Var
FilesList : TLinkRes; FilesList : TLinkRes;
i : longint; i : longint;
cprtobj, cprtobj,
gprtobj, gprtobj : string[80];
prtobj : string[80];
HPath : TCmdStrListItem; HPath : TCmdStrListItem;
s,s1,s2 : TCmdStr; s,s1,s2 : TCmdStr;
linkdynamic, linkdynamic : boolean;
linklibc : boolean;
Fl1,Fl2 : Boolean; Fl1,Fl2 : Boolean;
IsDarwin : Boolean; IsDarwin : Boolean;
ReOrder : Boolean;
begin begin
WriteResponseFile:=False; WriteResponseFile:=False;