paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-17 04:22:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed readrawatom

Browse Source 
git-svn-id: trunk@26904 -
This commit is contained in:
mattias 2010-07-29 13:59:54 +00:00
parent eaa54292de
commit 48fb897a73
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/basiccodetools.pas
View File

@ -1637,8 +1637,8 @@ begin
SrcStart:=PChar(Source); SrcStart:=PChar(Source);
SrcPos:=@Source[Position]; SrcPos:=@Source[Position];
ReadRawNextPascalAtom(SrcPos,SrcAtomStart,SrcStart+len); ReadRawNextPascalAtom(SrcPos,SrcAtomStart,SrcStart+len);
Position:=SrcPos-SrcStart; Position:=SrcPos-SrcStart+1;
AtomStart:=SrcAtomStart-SrcStart; AtomStart:=SrcAtomStart-SrcStart+1;
{$IFDEF RangeChecking}{$R+}{$UNDEF RangeChecking}{$ENDIF} {$IFDEF RangeChecking}{$R+}{$UNDEF RangeChecking}{$ENDIF}
end; end;