paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 12:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed typo

Browse Source 
git-svn-id: trunk@9153 -
This commit is contained in:
mattias 2006-04-21 12:32:12 +00:00
parent b8345ce9c0
commit 8b2b8e4176
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/definetemplates.pas
View File

@ -1944,7 +1944,7 @@ var
begin begin
FuncData.Param:=Params; FuncData.Param:=Params;
FuncData.Result:=''; FuncData.Result:='';
FMacroFunctions.DoDataFunction(@FuncName[1],length(FuncName),@FuncData); FMacroFunctions.DoDataFunction(PChar(FuncName),length(FuncName),@FuncData);
Result:=FuncData.Result; Result:=FuncData.Result;
end; end;
@ -1954,8 +1954,8 @@ var
begin begin
FuncData.Param:=MacroVariable; FuncData.Param:=MacroVariable;
FuncData.Result:=''; FuncData.Result:='';
Result:=FMacroFunctions.DoDataFunction( Result:=FMacroVariables.DoDataFunction(
PChar(MacroVariable),length(MacroVariable),@FuncData); PChar(MacroVariable),length(MacroVariable),@FuncData);
if Result then if Result then
MacroVariable:=FuncData.Result; MacroVariable:=FuncData.Result;
end; end;

2
ide/main.pp
View File

@ -9215,6 +9215,7 @@ begin
Result:=false; Result:=false;
if Project1<>nil then begin if Project1<>nil then begin
FuncData^.Result:=Project1.CompilerOptions.GetUnitPath(false); FuncData^.Result:=Project1.CompilerOptions.GetUnitPath(false);
//DebugLn('TMainIDE.OnMacroFuncProjectSrcPath "',FuncData^.Result,'"');
Result:=true; Result:=true;
end; end;
end; end;
@ -9239,6 +9240,7 @@ begin
Result:=false; Result:=false;
if Project1<>nil then begin if Project1<>nil then begin
FuncData^.Result:=Project1.CompilerOptions.GetSrcPath(false); FuncData^.Result:=Project1.CompilerOptions.GetSrcPath(false);
//DebugLn('TMainIDE.OnMacroFuncProjectSrcPath "',FuncData^.Result,'"');
Result:=true; Result:=true;
end; end;
end; end;