paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 02:50:42 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/assemble.pas
View File

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