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

* Fixed some severe bugs (sg)

Browse Source
This commit is contained in:
fcl 1999-09-28 10:28:21 +00:00
parent 6b1ab5eb31
commit eec7aaad52
1 changed files with 11 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
fcl/inc/parser.inc
View File

@ -58,26 +58,16 @@ begin
FSourceEnd[0] := #0;
end;
procedure TParser.SkipBlanks;
var
Count : Integer;
begin
Inc(FOrigin, FSourcePtr - FBuffer);
FSourceEnd[0] := FSaveChar;
Count := FBufPtr - FSourcePtr;
if Count <> 0 then Move(FSourcePtr[0], FBuffer[0], Count);
FBufPtr := FBuffer + Count;
Inc(FBufPtr, FStream.Read(FBufPtr[0], FBufEnd - FBufPtr));
FSourcePtr := FBuffer;
FSourceEnd := FBufPtr;
if FSourceEnd = FBufEnd then
begin
FSourceEnd := LineStart(FBuffer, FSourceEnd - 1);
if FSourceEnd = FBuffer then Error(SLineTooLong);
while FSourcePtr^ < #33 do begin
if FSourcePtr^ = #0 then begin
ReadBuffer;
if FSourcePtr^ = #0 then exit;
continue;
end else if FSourcePtr^ = #10 then Inc(FSourceLine);
Inc(FSourcePtr);
end;
FSaveChar := FSourceEnd[0];
FSourceEnd[0] := #0;
end;
constructor TParser.Create(Stream: TStream);
@ -311,7 +301,10 @@ begin
end;
{
$Log$
Revision 1.6 1999-04-08 10:18:53 peter
Revision 1.7 1999-09-28 10:28:21 fcl
* Fixed some severe bugs (sg)
Revision 1.6 1999/04/08 10:18:53 peter
* makefile updates
}