paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:42:34 +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; FSourceEnd[0] := #0;
end; end;
procedure TParser.SkipBlanks; procedure TParser.SkipBlanks;
var
Count : Integer;
begin begin
Inc(FOrigin, FSourcePtr - FBuffer); while FSourcePtr^ < #33 do begin
FSourceEnd[0] := FSaveChar; if FSourcePtr^ = #0 then begin
Count := FBufPtr - FSourcePtr; ReadBuffer;
if Count <> 0 then Move(FSourcePtr[0], FBuffer[0], Count); if FSourcePtr^ = #0 then exit;
FBufPtr := FBuffer + Count; continue;
Inc(FBufPtr, FStream.Read(FBufPtr[0], FBufEnd - FBufPtr)); end else if FSourcePtr^ = #10 then Inc(FSourceLine);
FSourcePtr := FBuffer; Inc(FSourcePtr);
FSourceEnd := FBufPtr;
if FSourceEnd = FBufEnd then
begin
FSourceEnd := LineStart(FBuffer, FSourceEnd - 1);
if FSourceEnd = FBuffer then Error(SLineTooLong);
end; end;
FSaveChar := FSourceEnd[0];
FSourceEnd[0] := #0;
end; end;
constructor TParser.Create(Stream: TStream); constructor TParser.Create(Stream: TStream);
@ -311,7 +301,10 @@ begin
end; end;
{ {
$Log$ $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 * makefile updates
} }