paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-09 09:59:15 +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
FuncData.Param:=Params;
FuncData.Result:='';
FMacroFunctions.DoDataFunction(@FuncName[1],length(FuncName),@FuncData);
FMacroFunctions.DoDataFunction(PChar(FuncName),length(FuncName),@FuncData);
Result:=FuncData.Result;
end;
@ -1954,8 +1954,8 @@ var
begin
FuncData.Param:=MacroVariable;
FuncData.Result:='';
Result:=FMacroFunctions.DoDataFunction(
PChar(MacroVariable),length(MacroVariable),@FuncData);
Result:=FMacroVariables.DoDataFunction(
PChar(MacroVariable),length(MacroVariable),@FuncData);
if Result then
MacroVariable:=FuncData.Result;
end;

2
ide/main.pp
View File

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