paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 09:18:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: disable the wrapper functions in FileUtil by default. The wrapper functions will be removed later on.

Browse Source 
git-svn-id: trunk@51834 -
This commit is contained in:
bart 2016-03-06 13:19:23 +00:00
parent 0520897120
commit 9c050f164e
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/fileutil.inc
View File

@ -11,7 +11,7 @@
*****************************************************************************
}
{$IFnDEF DisableWrapperFunctions}
{$IFDEF EnableWrapperFunctions}
function NeedRTLAnsi: boolean;
begin
Result := LazUtf8.NeedRTLAnsi;
@ -340,7 +340,7 @@ begin
end;
{$ENDIF}
{$ENDIF DisableWrapperFunctions}
{$ENDIF EnableWrapperFunctions}
// ToDo: For ExpandUNCFileNameUTF8
//

4
components/lazutils/fileutil.pas
View File

@ -54,7 +54,7 @@ const
// AnsiToUTF8 and UTF8ToAnsi need a widestring manager under Linux, BSD, MacOSX
// but normally these OS use UTF-8 as system encoding so the widestringmanager
// is not needed.
{$IFnDEF DisableWrapperFunctions}
{$IFDEF EnableWrapperFunctions}
// *** Wrappers for LazUTF8 ***
function NeedRTLAnsi: boolean; inline; deprecated 'Use the function in LazUTF8 unit';
procedure SetNeedRTLAnsi(NewValue: boolean); inline; deprecated 'Use the function in LazUTF8 unit';
@ -133,7 +133,7 @@ function CreateRelativePath(const Filename, BaseDirectory: string;
function GetDarwinSystemFilename(Filename: string): string; inline;
{$ENDIF}
{$ENDIF DisableWrapperFunctions}
{$ENDIF EnableWrapperFunctions}
// file and directory operations
function ComparePhysicalFilenames(const Filename1, Filename2: string): integer;