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

* do not use upcase for strings, reported by Kovacs Attila Zoltan

Browse Source
This commit is contained in:
pierre 2000-05-11 09:37:25 +00:00
parent 3523aea209
commit 3697d3c985
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/globals.pas
View File

@ -1398,7 +1398,7 @@ implementation
s:=strpas(hp);
i:=pos('=',s);
len:=strlen(hp);
if upcase(copy(s,1,i-1))=upcase(envname) then
if upper(copy(s,1,i-1))=upcase(envname) then
begin
GetMem(p2,len-length(envname));
Move(hp[i],p2^,len-length(envname));
@ -1568,7 +1568,10 @@ begin
end.
{
$Log$
Revision 1.60 2000-05-04 20:46:17 peter
Revision 1.61 2000-05-11 09:37:25 pierre
* do not use upcase for strings, reported by Kovacs Attila Zoltan
Revision 1.60 2000/05/04 20:46:17 peter
* ansistrings are now default on for delphi mode, as most ppl expect
this
@ -1684,4 +1687,4 @@ end.
* define FPC_DELPHI,FPC_OBJFPC,FPC_TP,FPC_GPC
* initial support for ansistring default with modes
}
}