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

* fix compilation of objpas if ansistrings are disabled as requested by Michael Ring on fpc-devel

Browse Source 
git-svn-id: trunk@23256 -
This commit is contained in:
florian 2012-12-31 14:26:48 +00:00
parent 020b3e02ea
commit 0215f00490
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/objpas.pp
View File

@ -87,11 +87,11 @@ Var
Function ParamStr(Param : Integer) : Ansistring; Function ParamStr(Param : Integer) : Ansistring;
{$endif FPC_HAS_FEATURE_COMMANDARGS} {$endif FPC_HAS_FEATURE_COMMANDARGS}
{$ifdef FPC_HAS_FEATURE_FILEIO} {$if defined(FPC_HAS_FEATURE_FILEIO) and defined(FPC_HAS_FEATURE_ANSISTRINGS)}
Procedure MkDir(s:ansistring);overload; Procedure MkDir(s:ansistring);overload;
Procedure RmDir(s:ansistring);overload; Procedure RmDir(s:ansistring);overload;
Procedure ChDir(s:ansistring);overload; Procedure ChDir(s:ansistring);overload;
{$endif FPC_HAS_FEATURE_FILEIO} {$endif defined(FPC_HAS_FEATURE_FILEIO) and defined(FPC_HAS_FEATURE_ANSISTRINGS)}
{**************************************************************************** {****************************************************************************
Resource strings. Resource strings.
@ -244,7 +244,7 @@ end;
{$endif FPC_HAS_FEATURE_COMMANDARGS} {$endif FPC_HAS_FEATURE_COMMANDARGS}
{$ifdef FPC_HAS_FEATURE_FILEIO} {$if defined(FPC_HAS_FEATURE_FILEIO) and defined(FPC_HAS_FEATURE_ANSISTRINGS)}
{ xxDirPChar procedures can adjust directory separators in supplied string (at least { xxDirPChar procedures can adjust directory separators in supplied string (at least
Windows implementation does so). Therefore full copy of argument is needed, Windows implementation does so). Therefore full copy of argument is needed,
just passing by value isn't enough because it won't copy a string literal. } just passing by value isn't enough because it won't copy a string literal. }
@ -265,7 +265,7 @@ begin
UniqueString(s); UniqueString(s);
ChDirpchar(pchar(s),length(s)); ChDirpchar(pchar(s),length(s));
end; end;
{$endif FPC_HAS_FEATURE_FILEIO} {$endif defined(FPC_HAS_FEATURE_FILEIO) and defined(FPC_HAS_FEATURE_ANSISTRINGS)}
{$ifdef FPC_HAS_FEATURE_RESOURCES} {$ifdef FPC_HAS_FEATURE_RESOURCES}
{ --------------------------------------------------------------------- { ---------------------------------------------------------------------