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

* workaround breakage due to fpgetenv deprecation in combination with

Browse Source 
-Se.

git-svn-id: trunk@22368 -
This commit is contained in:
marco 2012-09-10 17:40:07 +00:00
parent c3a91c5022
commit e4c0132109
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/globals.pas
View File

@ -473,7 +473,7 @@ interface
procedure DefaultReplacements(var s:ansistring); procedure DefaultReplacements(var s:ansistring);
function GetEnvPChar(const envname:string):pchar; function GetEnvPChar(const envname:ansistring):pchar;
procedure FreeEnvPChar(p:pchar); procedure FreeEnvPChar(p:pchar);
function is_number_float(d : double) : boolean; function is_number_float(d : double) : boolean;
@ -840,7 +840,7 @@ implementation
OS Dependent things OS Dependent things
****************************************************************************} ****************************************************************************}
function GetEnvPChar(const envname:string):pchar; function GetEnvPChar(const envname:ansistring):pchar;
{$ifdef mswindows} {$ifdef mswindows}
var var
s : string; s : string;
@ -849,7 +849,7 @@ implementation
{$endif} {$endif}
begin begin
{$ifdef hasunix} {$ifdef hasunix}
GetEnvPchar:=BaseUnix.fpGetEnv(envname); GetEnvPchar:=BaseUnix.fpGetEnv(pansichar(envname));
{$define GETENVOK} {$define GETENVOK}
{$endif} {$endif}
{$ifdef mswindows} {$ifdef mswindows}