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

* Removed inline for Unix2AmigaPath since it is not necessary and can't be inlined anyway due to ansistring conversion.

Browse Source 
git-svn-id: trunk@40226 -
This commit is contained in:
yury 2018-11-05 14:37:01 +00:00
parent a7642b70c1
commit f5ce7c572b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cfileutl.pas
View File

@ -146,7 +146,7 @@ interface
{$NOTE TODO Amiga: implement PathConv() in System unit, which works with AnsiString} {$NOTE TODO Amiga: implement PathConv() in System unit, which works with AnsiString}
function Unix2AmigaPath(path: ShortString): ShortString; external name 'PATHCONV'; function Unix2AmigaPath(path: ShortString): ShortString; external name 'PATHCONV';
{$ELSE} {$ELSE}
function Unix2AmigaPath(path: String): String;{$IFDEF USEINLINE}inline;{$ENDIF} function Unix2AmigaPath(path: String): String;
{$ENDIF} {$ENDIF}
{$if FPC_FULLVERSION < 20701} {$if FPC_FULLVERSION < 20701}
@ -191,7 +191,7 @@ implementation
{$IFNDEF HASAMIGA} {$IFNDEF HASAMIGA}
{ Stub function for Unix2Amiga Path conversion functionality, only available in { Stub function for Unix2Amiga Path conversion functionality, only available in
Amiga/MorphOS RTL. I'm open for better solutions. (KB) } Amiga/MorphOS RTL. I'm open for better solutions. (KB) }
function Unix2AmigaPath(path: String): String;{$IFDEF USEINLINE}inline;{$ENDIF} function Unix2AmigaPath(path: String): String;
begin begin
Unix2AmigaPath:=path; Unix2AmigaPath:=path;
end; end;