paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-15 08:43:07 +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);
SrcPos:=@Source[Position];
ReadRawNextPascalAtom(SrcPos,SrcAtomStart,SrcStart+len);
Position:=SrcPos-SrcStart;
AtomStart:=SrcAtomStart-SrcStart;
Position:=SrcPos-SrcStart+1;
AtomStart:=SrcAtomStart-SrcStart+1;
{$IFDEF RangeChecking}{$R+}{$UNDEF RangeChecking}{$ENDIF}
end;