paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 13:19:20 +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 begin
if (Paramcount<1) then begin if (Paramcount<1) then begin
writeln('Usage:'); 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.'); writeln(' The "fpc" parameter auto generates groups for all fpc units.');
Halt; Halt;
end; end;
@ -54,7 +54,7 @@ begin
Group:=nil; Group:=nil;
try try
for i:=1 to Paramcount do begin for i:=1 to Paramcount do begin
Filename:=ParamStr(i); Filename:=ParamStrUTF8(i);
if Filename='fpc' then if Filename='fpc' then
Groups.AddFPCGroupsForCurrentCompiler(CleanAndExpandDirectory(GetCurrentDir)) Groups.AddFPCGroupsForCurrentCompiler(CleanAndExpandDirectory(GetCurrentDir))
else begin else begin

4
components/codetools/ppugraph.pas
View File

@ -632,8 +632,10 @@ begin
// search system.ppu // search system.ppu
SystemPPUFilename:=SearchFileInPath('system.ppu',BaseDirectory,FPCSearchPath, SystemPPUFilename:=SearchFileInPath('system.ppu',BaseDirectory,FPCSearchPath,
';',ctsfcDefault); ';',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'); raise Exception.Create('TPPUGroups.AddFPCGroupsForCurrentCompiler: system.ppu is not in the FPC search paths');
end;
RTLPPUDirectory:=ExtractFilePath(SystemPPUFilename); RTLPPUDirectory:=ExtractFilePath(SystemPPUFilename);
FPCPPUBaseDir:=ExtractFilePath(ChompPathDelim(RTLPPUDirectory)); FPCPPUBaseDir:=ExtractFilePath(ChompPathDelim(RTLPPUDirectory));
AddFPCGroups(FPCPPUBaseDir); AddFPCGroups(FPCPPUBaseDir);