paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 17:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

method resolution clause, class ancestor find declaration, 1.1. makros

Browse Source 
git-svn-id: trunk@2848 -
This commit is contained in:
mattias 2002-08-18 08:54:54 +00:00
parent cb09242eb0
commit 2cdbcdaa0b
6 changed files with 67 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/include/freebsd/lazconf.inc
View File

@ -109,6 +109,16 @@ begin
Result:=SearchFileInPath('make','',GetEnv('PATH'),':');
end;
function CreateCompilerTestPascalFilename: string;
var
fs: TFileStream;
begin
Result:=AppendPathDelim(GetPrimaryConfigPath)+'compilertest.pas';
if not FileExists(Result) then begin
fs:=TFileStream.Create(Result,fmCreate);
fs.Free;
end;
end;
initialization
PrimaryConfigPath:=FExpand('~/.lazarus');
@ -117,6 +127,9 @@ initialization
{
$Log$
Revision 1.7 2002/12/20 11:08:47 mattias
method resolution clause, class ancestor find declaration, 1.1. makros
Revision 1.6 2002/07/01 05:53:31 lazarus
MG: improved default make path for build lazarus

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

@ -101,6 +101,17 @@ begin
end;
end;
function CreateCompilerTestPascalFilename: string;
var
fs: TFileStream;
begin
Result:=AppendPathDelim(GetPrimaryConfigPath)+'compilertest.pas';
if not FileExists(Result) then begin
fs:=TFileStream.Create(Result,fmCreate);
fs.Free;
end;
end;
function FindDefaultCompilerPath: string;
begin
Result:=SearchFileInPath('ppc386','',GetEnv('PATH'),':');
@ -117,6 +128,9 @@ initialization
{
$Log$
Revision 1.9 2002/12/20 11:08:47 mattias
method resolution clause, class ancestor find declaration, 1.1. makros
Revision 1.8 2002/07/01 05:53:31 lazarus
MG: improved default make path for build lazarus

13
ide/include/netbsd/lazconf.inc
View File

@ -109,6 +109,16 @@ begin
Result:=SearchFileInPath('make','',GetEnv('PATH'),':');
end;
function CreateCompilerTestPascalFilename: string;
var
fs: TFileStream;
begin
Result:=AppendPathDelim(GetPrimaryConfigPath)+'compilertest.pas';
if not FileExists(Result) then begin
fs:=TFileStream.Create(Result,fmCreate);
fs.Free;
end;
end;
initialization
PrimaryConfigPath:=FExpand('~/.lazarus');
@ -117,6 +127,9 @@ initialization
{
$Log$
Revision 1.4 2002/12/20 11:08:47 mattias
method resolution clause, class ancestor find declaration, 1.1. makros
Revision 1.3 2002/07/01 05:53:31 lazarus
MG: improved default make path for build lazarus

18
ide/include/win32/lazconf.inc
View File

@ -103,17 +103,29 @@ begin
Result:='';
end;
function CreateCompilerTestPascalFilename: string;
var
fs: TFileStream;
begin
Result:=AppendPathDelim(GetPrimaryConfigPath)+'compilertest.pas';
if not FileExists(Result) then begin
fs:=TFileStream.Create(Result,fmCreate);
fs.Free;
end;
end;
initialization
PrimaryConfigPath:=ExtractFilePath(Paramstr(0));
{ This might need some work because on WinNT the
the path is called something different on almost every
version of Windows. Probably can use the Windows API to
{ This need some work. Probably one can use the Windows API to
get the system path. }
SecondaryConfigPath:='\windows\system';
{
$Log$
Revision 1.7 2002/12/20 11:08:47 mattias
method resolution clause, class ancestor find declaration, 1.1. makros
Revision 1.6 2002/07/01 05:53:31 lazarus
MG: improved default make path for build lazarus

7
ide/lazconf.pp
View File

@ -46,7 +46,7 @@ interface
{$endif}
uses
SysUtils, Classes, IDEProcs;
SysUtils, Classes, FileProcs, IDEProcs;
{ Config Path Functions }
@ -67,6 +67,8 @@ uses
function FindDefaultCompilerPath: string;
function FindDefaultMakePath: string;
function CreateCompilerTestPascalFilename: string;
implementation
@ -76,6 +78,9 @@ end.
{
$Log$
Revision 1.9 2002/12/20 11:08:47 mattias
method resolution clause, class ancestor find declaration, 1.1. makros
Revision 1.8 2002/07/01 05:53:31 lazarus
MG: improved default make path for build lazarus

8
ide/main.pp
View File

@ -2352,7 +2352,8 @@ var EnvironmentOptionsDialog: TEnvironmentOptionsDialog;
// rescan compiler defines
// ask the compiler for its settings
CompilerTemplate:=CodeToolBoss.DefinePool.CreateFPCTemplate(
EnvironmentOptions.CompilerFilename,CompilerUnitSearchPath);
EnvironmentOptions.CompilerFilename,
CreateCompilerTestPascalFilename,CompilerUnitSearchPath);
if CompilerTemplate<>nil then begin
CodeToolBoss.DefineTree.ReplaceRootSameNameAddFirst(CompilerTemplate);
// create compiler macros to simulate the Makefiles of the FPC sources
@ -6209,7 +6210,7 @@ begin
with CodeToolBoss.DefinePool do begin
// start the compiler and ask for his settings
ADefTempl:=CreateFPCTemplate(EnvironmentOptions.CompilerFilename,
CompilerUnitSearchPath);
CreateCompilerTestPascalFilename,CompilerUnitSearchPath);
AddTemplate(ADefTempl,false,
'NOTE: Could not create Define Template for Free Pascal Compiler');
@ -7520,6 +7521,9 @@ end.
{ =============================================================================
$Log$
Revision 1.439 2002/12/20 11:08:47 mattias
method resolution clause, class ancestor find declaration, 1.1. makros
Revision 1.438 2002/12/17 19:49:33 mattias
finished publish project