paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +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);
function GetEnvPChar(const envname:string):pchar;
function GetEnvPChar(const envname:ansistring):pchar;
procedure FreeEnvPChar(p:pchar);
function is_number_float(d : double) : boolean;
@ -840,7 +840,7 @@ implementation
OS Dependent things
****************************************************************************}
function GetEnvPChar(const envname:string):pchar;
function GetEnvPChar(const envname:ansistring):pchar;
{$ifdef mswindows}
var
s : string;
@ -849,7 +849,7 @@ implementation
{$endif}
begin
{$ifdef hasunix}
GetEnvPchar:=BaseUnix.fpGetEnv(envname);
GetEnvPchar:=BaseUnix.fpGetEnv(pansichar(envname));
{$define GETENVOK}
{$endif}
{$ifdef mswindows}