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

* explicitly call *A routines from ansistring environment variable routines

Browse Source 
git-svn-id: branches/cpstrrtl@25102 -
This commit is contained in:
Jonas Maebe 2013-07-15 09:21:03 +00:00
parent d919794fdf
commit 08099c8558
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/win/sysutils.pp
View File

@ -978,7 +978,7 @@ begin
oemenvvar:=uppercase(envvar);
SetCodePage(oemenvvar,CP_OEMCP);
Result:='';
p:=GetEnvironmentStrings;
p:=GetEnvironmentStringsA;
hp:=p;
while hp^<>#0 do
begin
@ -996,7 +996,7 @@ begin
{ next string entry}
hp:=hp+hplen+1;
end;
FreeEnvironmentStrings(p);
FreeEnvironmentStringsA(p);
end;
Function GetEnvironmentVariableCount : Integer;
@ -1005,7 +1005,7 @@ var
hp,p : pchar;
begin
Result:=0;
p:=GetEnvironmentStrings;
p:=GetEnvironmentStringsA;
hp:=p;
If (Hp<>Nil) then
while hp^<>#0 do
@ -1013,7 +1013,7 @@ begin
Inc(Result);
hp:=hp+strlen(hp)+1;
end;
FreeEnvironmentStrings(p);
FreeEnvironmentStringsA(p);
end;
Function GetEnvironmentString(Index : Integer) : String;
@ -1022,7 +1022,7 @@ var
hp,p : pchar;
begin
Result:='';
p:=GetEnvironmentStrings;
p:=GetEnvironmentStringsA;
hp:=p;
If (Hp<>Nil) then
begin
@ -1034,7 +1034,7 @@ begin
If (hp^<>#0) then
Result:=StrPas(HP);
end;
FreeEnvironmentStrings(p);
FreeEnvironmentStringsA(p);
end;
{$pop}