Permalink
Browse files

find 64-bit git.exe, if any

  • Loading branch information...
Arnaud Bouchez
Arnaud Bouchez committed Nov 7, 2017
1 parent 6ee5be2 commit 7e0af6043cc8815fe5d2df2a6eccb54adad73c69
@@ -128,8 +128,11 @@ procedure TMainForm.FormCreate(Sender: TObject);
fDevPath := 'd:\dev\lib' else
fDevPath := fFossilRepository;
fGitExe := GetEnvironmentVariable('GIT_PATH');
if fGitExe = '' then
if fGitExe = '' then begin
fGitExe := 'c:\Program Files (x86)\Git\bin\git.exe';
if not FileExists(fGitExe) then
fGitExe := 'c:\Program Files\Git\bin\git.exe';
end;
fGitRepository := GetEnvironmentVariable('SYN_GITREPO_PATH');
if fGitRepository = '' then
fGitRepository := 'd:\dev\github\mORMot';
@@ -1,90 +1,90 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="SpiderMonkey45Binding"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="SpiderMonkey45Binding.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="ufrmSM45Demo.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmSM45Demo"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="SpiderMonkey45Binding"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir);../../..;../.."/>
<OtherUnitFiles Value="../../..;../..;../../../SQLite3"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Conditionals Value="if TargetOS='darwin' then
CustomOptions := ' -Cg-';"/>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CustomOptions Value="-dSM52"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="SpiderMonkey45Binding"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="SpiderMonkey45Binding.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="ufrmSM45Demo.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmSM45Demo"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="SpiderMonkey45Binding"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir);../../..;../.."/>
<OtherUnitFiles Value="../../..;../..;../../../SQLite3"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Conditionals Value="if TargetOS='darwin' then
CustomOptions := ' -Cg-';"/>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CustomOptions Value="-dSM52"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>
@@ -1,31 +1,31 @@
program SpiderMonkey45Binding;
uses
{$I SynDprUses.inc}
Forms,
{$ifdef FPC}
Interfaces,
{$endif}
ufrmSM45Demo in 'ufrmSM45Demo.pas' {frmSM45Demo},
NSPRApi in '..\..\NSPRAPI.pas',
SpiderMonkey in '..\..\SpiderMonkey.pas',
SyNode in '..\..\SyNode.pas',
SyNodeBinding_fs in '..\..\SyNodeBinding_fs.pas',
SyNodeBinding_HTTPClient in '..\..\SyNodeBinding_HTTPClient.pas',
SyNodeProto in '..\..\SyNodeProto.pas',
SyNodeRemoteDebugger in '..\..\SyNodeRemoteDebugger.pas',
SyNodeSimpleProto in '..\..\SyNodeSimpleProto.pas';
{$R *.res}
begin
InitJS;
try
Application.Initialize;
Application.CreateForm(TfrmSM45Demo, frmSM45Demo);
Application.Run;
finally
frmSM45Demo.Free;
ShutDownJS;
end;
end.
program SpiderMonkey45Binding;
uses
{$I SynDprUses.inc}
Forms,
{$ifdef FPC}
Interfaces,
{$endif}
ufrmSM45Demo in 'ufrmSM45Demo.pas' {frmSM45Demo},
NSPRApi in '..\..\NSPRAPI.pas',
SpiderMonkey in '..\..\SpiderMonkey.pas',
SyNode in '..\..\SyNode.pas',
SyNodeBinding_fs in '..\..\SyNodeBinding_fs.pas',
SyNodeBinding_HTTPClient in '..\..\SyNodeBinding_HTTPClient.pas',
SyNodeProto in '..\..\SyNodeProto.pas',
SyNodeRemoteDebugger in '..\..\SyNodeRemoteDebugger.pas',
SyNodeSimpleProto in '..\..\SyNodeSimpleProto.pas';
{$R *.res}
begin
InitJS;
try
Application.Initialize;
Application.CreateForm(TfrmSM45Demo, frmSM45Demo);
Application.Run;
finally
frmSM45Demo.Free;
ShutDownJS;
end;
end.
@@ -1,6 +1,6 @@
program HelloSpiderMonkey52;
uses
SpiderMonkey;
begin
// TODO: implementation for Delphi
end.
program HelloSpiderMonkey52;
uses
SpiderMonkey;
begin
// TODO: implementation for Delphi
end.
Oops, something went wrong.

0 comments on commit 7e0af60

Please sign in to comment.