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

Fix fpc 1.0.x compilation.

Browse Source 
git-svn-id: trunk@6123 -
This commit is contained in:
vincents 2004-10-09 11:43:25 +00:00
parent 1ff00689cf
commit cbe38a8df2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/lclproc.pas
View File

@ -734,7 +734,7 @@ var
function GetDebugFileName: string;
const
DebugLogStart = '--debug-log=';
DebugLogStartLength = length(DebugLogStart);
DebugLogStartLength = {$IFNDEF VER1_0}length(DebugLogStart){$ELSE}12{$ENDIF};
var
i: integer;
EnvVarName: string;
@ -742,9 +742,9 @@ var
Result := '';
// first try to find the log file name in the command line parameters
for i:= 1 to Paramcount do begin
if copy(ParamStr(i),1, length(DebugLogStart))=DebugLogStart then begin
Result := copy(ParamStr(i), length(DebugLogStart)+1,
Length(ParamStr(i))-length(DebugLogStart));
if copy(ParamStr(i),1, DebugLogStartLength)=DebugLogStart then begin
Result := copy(ParamStr(i), DebugLogStartLength+1,
Length(ParamStr(i))-DebugLogStartLength);
end;
end;
// if not found yet, then try to find in the environment variables