paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 00:50:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Changed TExternalAssembler.CreateSmartLinkPath to use ansistrings (TPathStr), like the rest of file handling routines do.

Browse Source 
git-svn-id: trunk@23214 -
This commit is contained in:
sergei 2012-12-23 14:11:27 +00:00
parent 27c626245b
commit d967566a37
1 changed files with 3 additions and 3 deletions

6
compiler/assemble.pas
View File

@ -66,7 +66,7 @@ interface
}
TExternalAssembler=class(TAssembler)
private
procedure CreateSmartLinkPath(const s:string);
procedure CreateSmartLinkPath(const s:TPathStr);
protected
{outfile}
AsmSize,
@ -291,7 +291,7 @@ Implementation
end;
procedure TExternalAssembler.CreateSmartLinkPath(const s:string);
procedure TExternalAssembler.CreateSmartLinkPath(const s:TPathStr);
procedure DeleteFilesWithExt(const AExt:string);
var
@ -307,7 +307,7 @@ Implementation
end;
var
hs : string;
hs : TPathStr;
begin
if PathExists(s,false) then
begin