From 48fb897a7369815d01ea8c07f10ac3e2dfd924b2 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 29 Jul 2010 13:59:54 +0000
Subject: [PATCH] codetools: fixed readrawatom

git-svn-id: trunk@26904 -
---
 components/codetools/basiccodetools.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/codetools/basiccodetools.pas b/components/codetools/basiccodetools.pas
index e7c4e05e8d..05ba0d53ab 100644
--- a/components/codetools/basiccodetools.pas
+++ b/components/codetools/basiccodetools.pas
@@ -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;