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

codetools: clean up

Browse Source 
git-svn-id: trunk@48662 -
This commit is contained in:
mattias 2015-04-06 17:42:31 +00:00
parent b1acac9beb
commit 6f305d5efe
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/linkscanner.pas
View File

@ -582,8 +582,8 @@ type
out ACleanPos: integer): integer; // 0=valid CleanPos
//-1=CursorPos was skipped, CleanPos between two links
// 1=CursorPos beyond scanned code
function CleanedPosToCursor(ACleanedPos: integer; var ACursorPos: integer;
var ACode: Pointer): boolean;
function CleanedPosToCursor(ACleanedPos: integer; out ACursorPos: integer;
out ACode: Pointer): boolean;
function CleanedPosToStr(ACleanedPos: integer): string;
function LastErrorIsInFrontOfCleanedPos(ACleanedPos: integer): boolean;
procedure RaiseLastErrorIfInFrontOfCleanedPos(ACleanedPos: integer);
@ -4392,8 +4392,8 @@ begin
Result:=1; // default: CursorPos beyond/outside scanned code
end;
function TLinkScanner.CleanedPosToCursor(ACleanedPos: integer;
var ACursorPos: integer; var ACode: Pointer): boolean;
function TLinkScanner.CleanedPosToCursor(ACleanedPos: integer; out
ACursorPos: integer; out ACode: Pointer): boolean;
procedure ConsistencyCheckI(i: integer);
begin
@ -4449,6 +4449,8 @@ begin
end;
ConsistencyCheckI(1);
end;
ACode:=nil;
ACursorPos:=0;
end;
function TLinkScanner.CleanedPosToStr(ACleanedPos: integer): string;

4
components/codetools/sourcechanger.pas
View File

@ -43,7 +43,7 @@ interface
uses
Classes, SysUtils, FileProcs, CodeToolsStrConsts, CodeCache, BasicCodeTools,
typinfo, LinkScanner, AVL_Tree, CodeBeautifier, KeywordFuncLists;
typinfo, LinkScanner, AVL_Tree, KeywordFuncLists;
type
// Insert policy types for class parts (properties, variables, method defs)
@ -131,7 +131,7 @@ type
procedure SetTabWidth(AValue: integer);
procedure SetUseTabs(AValue: boolean);
procedure StartComment(p: integer);
function EndComment(CommentStart: char; p: integer): boolean;
function EndComment(CommentStart: char; {%H-}p: integer): boolean;
public
LineLength: integer;
LineEnd: string;