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

fixed compilation

Browse Source 
git-svn-id: trunk@6291 -
This commit is contained in:
vincents 2004-11-23 15:40:50 +00:00
parent 933c60ed11
commit 5b90209cd6
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/codetools/linkscanner.pas
View File

@ -1112,7 +1112,7 @@ begin
finally
if not FSkippingTillEndif then begin
{$IFDEF ShowUpdateCleanedSrc}
DebugLn('TLinkScanner.Scan UpdatePos=',SrcPos-1);
DebugLn('TLinkScanner.Scan UpdatePos=',DbgS(SrcPos-1));
{$ENDIF}
UpdateCleanedSource(SrcPos-1);
end;
@ -1231,7 +1231,8 @@ begin
FCleanedSrc[CleanedLen]:=Src[i];
end;
{$IFDEF ShowUpdateCleanedSrc}
DebugLn('TLinkScanner.UpdateCleanedSource A ',LastCleanSrcPos,'-',SourcePos,'="',
DebugLn('TLinkScanner.UpdateCleanedSource A ',
DbgS(LastCleanSrcPos),'-',DbgS(SourcePos),'="',
StringToPascalConst(copy(Src,LastCleanSrcPos+1,20)),
'".."',StringToPascalConst(copy(Src,SourcePos-19,20)),'"');
{$ENDIF}
@ -2278,7 +2279,7 @@ begin
IncFilename:=IncFilename+'.pas';
end;
{$IFDEF ShowUpdateCleanedSrc}
DebugLn('TLinkScanner.IncludeDirective A IncFilename=',IncFilename,' UpdatePos=',CommentEndPos-1);
DebugLn('TLinkScanner.IncludeDirective A IncFilename=',IncFilename,' UpdatePos=',DbgS(CommentEndPos-1));
{$ENDIF}
UpdateCleanedSource(CommentEndPos-1);
// put old position on stack
@ -2587,7 +2588,7 @@ var OldPos: TSourceLink;
begin
if not FSkippingTillEndif then begin
{$IFDEF ShowUpdateCleanedSrc}
DebugLn('TLinkScanner.ReturnFromIncludeFile A UpdatePos=',SrcPos-1);
DebugLn('TLinkScanner.ReturnFromIncludeFile A UpdatePos=',DbgS(SrcPos-1));
{$ENDIF}
UpdateCleanedSource(SrcPos-1);
end;
@ -2640,7 +2641,7 @@ var OldDirectiveFuncList: TKeyWordFunctionList;
begin
SrcPos:=CommentEndPos;
{$IFDEF ShowUpdateCleanedSrc}
DebugLn('TLinkScanner.SkipTillEndifElse A UpdatePos=',SrcPos-1);
DebugLn('TLinkScanner.SkipTillEndifElse A UpdatePos=',DbgS(SrcPos-1));
{$ENDIF}
UpdateCleanedSource(SrcPos-1);
OldDirectiveFuncList:=FDirectiveFuncList;