paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 09:50:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added unitsearch path for ide to debugger

Browse Source
This commit is contained in:
mattias 2022-01-30 19:14:45 +01:00
parent 57f8a2e341
commit 8a8bee71f8
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/definetemplates.pas
View File

@ -3115,7 +3115,7 @@ const
PrefixLen: Integer;
begin
PrefixLen:=length(Prefix);
SetLength(aName,PrefixLen+Len);
SetLength(aName{%H-},PrefixLen+Len);
if PrefixLen>0 then
Move(Prefix[1],aName[1],PrefixLen);
if Len>0 then
@ -3195,7 +3195,7 @@ const
if not (p2^ in AlphaNum) then exit; // invalid option
while p2^ in AlphaNum do inc(p2);
if (p2^<>'=') then exit; // invalid option
SetLength(aName,p2-p);
SetLength(aName{%H-},p2-p);
Move(p^,aName[1],p2-p);
inc(p2);
Add(Option+aName,p2,fpkValue);
@ -3497,7 +3497,7 @@ procedure ParseMakefileFPC(const Filename, SrcOS: string;
end;
// allocate space
SetLength(Result,DestPos);
SetLength(Result{%H-},DestPos);
// create semicolon delimited search path
SrcPos:=1;
@ -6370,7 +6370,7 @@ begin
LastDefTempl:=nil;
// find all initial compiler macros and all unit paths
// -> ask compiler with the -va switch
SetLength(Buf,1024);
SetLength(Buf{%H-},1024);
Step:='Init';
try
Params:=TStringList.Create;
@ -6691,6 +6691,7 @@ begin
d(LazarusSrcDir+'/ide;'
+LazarusSrcDir+'/ide/frames;'
+LazarusSrcDir+'/designer;'
+LazarusSrcDir+'/ide/packages/idedebugger;'
+LazarusSrcDir+'/debugger;'
+LazarusSrcDir+'/debugger/frames;'
+LazarusSrcDir+'/converter;'
@ -6705,6 +6706,7 @@ begin
+LazarusSrcDir+'/components/codetools;'
+LazarusSrcDir+'/components/lazdebuggergdbmi;'
+LazarusSrcDir+'/components/debuggerintf;'
+LazarusSrcDir+'/components/lazdebuggers/lazdebuggerintf;'
+LazarusSrcDir+'/lcl;'
+LazarusSrcDir+'/lcl/interfaces;'
+LazarusSrcDir+'/lcl/interfaces/'+WidgetType+';'