paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 07:59:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: improved default path to lazarus and ppc386

Browse Source 
git-svn-id: trunk@1767 -
This commit is contained in:
lazarus 2002-07-01 05:11:34 +00:00
parent c6cf9cfbda
commit 435157e80e
4 changed files with 9 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/codetoolsoptions.pas
View File

@ -314,7 +314,7 @@ begin
try
XMLConfig:=TXMLConfig.Create(FFileName);
FileVersion:=XMLConfig.GetValue('CodeToolsOptions/Version/Value',0);
if FileVersion<CodeToolsOptionsVersion then
if (FileVersion<>0) and (FileVersion<CodeToolsOptionsVersion) then
writeln('Note: loading old codetools options file: ',FFileName);
// General

2
ide/environmentopts.pp
View File

@ -495,7 +495,7 @@ begin
FShowHintsForMainSpeedButtons:=false;
// files
FLazarusDirectory:=ExtractFilePath(ParamStr(0));
FLazarusDirectory:=ExpandFilename(ExtractFilePath(ParamStr(0)));
FLazarusDirsHistory:=TStringList.Create;
FCompilerFilename:='';
FCompilerFileHistory:=TStringList.Create;

10
ide/include/linux/lazconf.inc
View File

@ -103,12 +103,7 @@ end;
function FindDefaultCompilerPath: string;
begin
if FileIsExecutable('/usr/bin/ppc386') then
Result:='/usr/bin/ppc386'
else if FileIsExecutable('/opt/fpc/ppc386') then
Result:='/opt/fpc/ppc386'
else
Result:='';
Result:=SearchFileInPath('ppc386','',GetEnv('PATH'),':');
end;
initialization
@ -117,6 +112,9 @@ initialization
{
$Log$
Revision 1.7 2002/07/01 05:11:34 lazarus
MG: improved default path to lazarus and ppc386
Revision 1.6 2002/05/10 06:57:51 lazarus
MG: updated licenses

10
ide/lazconf.pp
View File

@ -46,15 +46,9 @@ interface
{$endif}
uses
// Windows,
SysUtils, Classes, IDEProcs;
{ Config Path Functions }
{
@abstract(Use a these functions to manage config paths )
Introduced by Curtis White <cwhite@aracnet.com>
Currently maintained by Curtis White <cwhite@aracnet.com>
}
{ The primary config path is the local or user specific path.
If the primary config path does not exists, it will automatically be
@ -77,11 +71,13 @@ implementation
{$I lazconf.inc}
end.
{
$Log$
Revision 1.7 2002/07/01 05:11:34 lazarus
MG: improved default path to lazarus and ppc386
Revision 1.6 2002/05/10 06:57:42 lazarus
MG: updated licenses