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

lazarus starter: fixed using --debug parameter (bug #11537)

Browse Source 
git-svn-id: trunk@15514 -
This commit is contained in:
vincents 2008-06-22 19:41:07 +00:00
parent 431619eac4
commit eb7bf70ca6
3 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/lazarus.lpi
View File

@ -23,22 +23,22 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<CommandLineParams Value="--no-splash-screen"/>
<CommandLineParams Value="--no-splash-screen --primary-config-path=&quot;c:\temp\lazarus config&quot;"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="4">
<Item1>
<PackageName Value="SynEdit"/>
<PackageName Value="CodeTools"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
<PackageName Value="IDEIntf"/>
</Item2>
<Item3>
<PackageName Value="IDEIntf"/>
<PackageName Value="LCL"/>
</Item3>
<Item4>
<PackageName Value="CodeTools"/>
<PackageName Value="SynEdit"/>
</Item4>
</RequiredPackages>
<Units Count="2">
@ -61,6 +61,7 @@
<Filename Value="../lazarus"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(LazarusDir)\ide\include\"/>
<UnitOutputDirectory Value="$(LazarusDir)\units\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>

11
ide/lazarusmanager.pas
View File

@ -109,7 +109,6 @@ type
FLazarusProcess: TLazarusProcess;
FLazarusPath: string;
FLazarusPID: Integer;
FLazarusDebug: Boolean;
FCmdLineParams: TStrings;
FShowSplashOption: boolean;
procedure ParseCommandLine;
@ -144,11 +143,12 @@ var
begin
FCmdLineParams := TStringList.Create;
FLazarusPID := 0;
FLazarusDebug := false;
for i := 1 to ParamCount do begin
Param := ParamStr(i);
if LeftStr(Param,length(LazarusDebugOpt))=LazarusDebugOpt then
FLazarusDebug := true;
if Param=LazarusDebugOpt then begin
FCmdLineParams.Add('--debug-log=' +
AppendPathDelim(GetPrimaryConfigPath) + 'debug.log');
end;
if LeftStr(Param,length(LazarusPidOpt))=LazarusPidOpt then begin
try
FLazarusPID :=
@ -177,9 +177,6 @@ begin
Result := ' --no-splash-screen --started-by-startlazarus';
for i := 0 to FCmdLineParams.Count - 1 do
Result := Result + ' ' + FCmdLineParams[i];
if FLazarusDebug then
Result := Result + ' --debug-log=' +
AppendPathDelim(GetPrimaryConfigPath) + 'debug.log';
end;
function TLazarusManager.GetLazarusPath(const FileName: string) : string;

4
ide/startlazarus.lpi
View File

@ -18,7 +18,7 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<CommandLineParams Value="--nsc"/>
<CommandLineParams Value="--nsc --primary-config-path=&quot;C:\Documents and Settings\Vincent Snijders\Local Settings\Application Data\lazarus&quot;"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
@ -57,7 +57,7 @@
<Version Value="5"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="D:\lazarus\source\lazarus\startlazarus.exe"/>
<Filename Value="C:\lazarus\source\lazarus\startlazarus.exe"/>
</Target>
<SearchPaths>
<IncludeFiles Value="include\;include\$(TargetOS)\"/>