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

make a warning a note, so it compiles with -Sew

Browse Source 
git-svn-id: trunk@24651 -
This commit is contained in:
Károly Balogh 2013-05-30 19:04:14 +00:00
parent a36288ee68
commit b3c4450186
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/cfileutl.pas
View File

@ -142,7 +142,7 @@ interface
{$IF DEFINED(MORPHOS) OR DEFINED(AMIGA)} {$IF DEFINED(MORPHOS) OR DEFINED(AMIGA)}
{ * PATHCONV is implemented in the Amiga/MorphOS system unit * } { * PATHCONV is implemented in the Amiga/MorphOS system unit * }
{$WARNING 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;{$IFDEF USEINLINE}inline;{$ENDIF}