paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 08:29:20 +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 } { Token variables }
aString : String; aString : String;
aSepStr : String; aSepStr : String;
aPos : Byte; aPos : Integer;
aLenStr : Byte; aLenStr : Integer;
aLenSep : Byte; aLenSep : Integer;
procedure InitToken(aStr, aSep : String); procedure InitToken(aStr, aSep : String);
function NextToken(var aToken : String; var aSepChar : Char) : Boolean; function NextToken(var aToken : String; var aSepChar : Char) : Boolean;
@ -345,10 +345,10 @@ end;
function TEZcgi.NextToken(var aToken : String; var aSepChar : Char) : Boolean; function TEZcgi.NextToken(var aToken : String; var aSepChar : Char) : Boolean;
var var
i : Byte; i : Integer;
j : Byte; j : Integer;
BoT : Byte; BoT : Integer;
EoT : Byte; EoT : Integer;
isSep : Boolean; isSep : Boolean;
begin begin
@ -406,7 +406,11 @@ end.
{ {
$Log$ $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 + removed logs
} }