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

codetools: examples: utf8

Browse Source 
git-svn-id: trunk@41810 -
This commit is contained in:
mattias 2013-06-23 10:33:16 +00:00
parent 556f193194
commit a5e3b332c6
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/examples/ppudependencies.lpr
View File

@ -42,7 +42,7 @@ var
begin
if (Paramcount<1) then begin
writeln('Usage:');
writeln(' ',ParamStr(0),' [fpc] <ppu filename1> ...');
writeln(' ',ParamStrUTF8(0),' [fpc] <ppu filename1> ...');
writeln(' The "fpc" parameter auto generates groups for all fpc units.');
Halt;
end;
@ -54,7 +54,7 @@ begin
Group:=nil;
try
for i:=1 to Paramcount do begin
Filename:=ParamStr(i);
Filename:=ParamStrUTF8(i);
if Filename='fpc' then
Groups.AddFPCGroupsForCurrentCompiler(CleanAndExpandDirectory(GetCurrentDir))
else begin

4
components/codetools/ppugraph.pas
View File

@ -632,8 +632,10 @@ begin
// search system.ppu
SystemPPUFilename:=SearchFileInPath('system.ppu',BaseDirectory,FPCSearchPath,
';',ctsfcDefault);
if SystemPPUFilename='' then
if SystemPPUFilename='' then begin
debugln(['TPPUGroups.AddFPCGroupsForCurrentCompiler BaseDir="',BaseDirectory,'" FPCSearchPath="',FPCSearchPath,'"']);
raise Exception.Create('TPPUGroups.AddFPCGroupsForCurrentCompiler: system.ppu is not in the FPC search paths');
end;
RTLPPUDirectory:=ExtractFilePath(SystemPPUFilename);
FPCPPUBaseDir:=ExtractFilePath(ChompPathDelim(RTLPPUDirectory));
AddFPCGroups(FPCPPUBaseDir);