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

* Replace byte -> Integer for environment variable scanning

Browse Source 
(since AnsiString is on) Bug report #1647
This commit is contained in:
carl 2001-10-19 03:42:52 +00:00
parent dc0895786a
commit 3dfc2332cb
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
fcl/inc/ezcgi.pp
View File

@ -37,9 +37,9 @@ type
{ Token variables }
aString : String;
aSepStr : String;
aPos : Byte;
aLenStr : Byte;
aLenSep : Byte;
aPos : Integer;
aLenStr : Integer;
aLenSep : Integer;
procedure InitToken(aStr, aSep : String);
function NextToken(var aToken : String; var aSepChar : Char) : Boolean;
@ -345,10 +345,10 @@ end;
function TEZcgi.NextToken(var aToken : String; var aSepChar : Char) : Boolean;
var
i : Byte;
j : Byte;
BoT : Byte;
EoT : Byte;
i : Integer;
j : Integer;
BoT : Integer;
EoT : Integer;
isSep : Boolean;
begin
@ -406,7 +406,11 @@ end.
{
$Log$
Revision 1.2 2000-07-13 11:32:59 michael
Revision 1.3 2001-10-19 03:42:52 carl
* Replace byte -> Integer for environment variable scanning
(since AnsiString is on) Bug report #1647
Revision 1.2 2000/07/13 11:32:59 michael
+ removed logs
}