I am working from sources directly on Windows and I am having a problem with the startlazarus.exe program. When I go to start up it gives me the error that it can't find "D:\freepascal\lazarus\trunk\lazarus". I noticed the lack of the ".exe" file extension. I found the source for this and looked into it and there is a function in the fileutil.inc file that is as follows:
interface
...
function GetExeExt: string; inline;
...
implementation
...
function GetExeExt: string;
begin
{$IFDEF WINDOWS}
Result:='.exe';
{$ELSE}
Result:='';
{$ENDIF}
end;
I noticed when I compile it that it is picking up the code from the WINDOWS block of code in the compiler directive block. If I make a syntax error in that code it fails to compile. So, I know it isn't a compiler directive issue. However, when I trace this program executing here (line 319 of LazarusManager.pas):
DefaultExe:=DefaultDir+'lazarus'+GetExeExt;
There isn't any extension added to the value given to DefaultExe.
This tells me that for some reason the code that was supposed to be inlined into this didn't make it. I proved this out by commenting out the inline directive on the GetExeExt() function and then it worked as expected.
I can hardcode things for now and make it work, but I thought I should report this somewhere. This could be causing problems elsewhere too.
I apologize if there is a better place to make this kind of report. I neglected to take the time to figure out if so.
Jason Wharton
www.ibobjects.com
Recent
