1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
Description: Replaced instantfpc by ifpc.
Debian renames instantfpc into ifpc, so we need to patch Lazarus sources.
Author: Abou Al Montacir <abou.almontacir@sfr.fr>
Forwarded: Not-Needed
Origin: Debian
Last-Update: 2024-01-01
diff --git a/components/instantfpc/instantfpcregisterlaz.pas b/components/instantfpc/instantfpcregisterlaz.pas
index 8d6962a0..91284b07 100644
--- a/components/instantfpc/instantfpcregisterlaz.pas
+++ b/components/instantfpc/instantfpcregisterlaz.pas
@@ -88,14 +88,14 @@ begin
AProject.LazCompilerOptions.TargetFilename:='program1';
AProject.LazCompilerOptions.Win32GraphicApp:=false;
AProject.LazCompilerOptions.SetAlternativeCompile(
- 'instantfpc --skip-run -B -gl "-Fu$(ProjUnitPath)" $Name($(ProjFile))',true);
+ 'ifpc --skip-run -B -gl "-Fu$(ProjUnitPath)" $Name($(ProjFile))',true);
RunParams := AProject.RunParameters.GetOrCreate('default');
RunParams.HostApplicationFilename:='$(InstantFPCCache)/$NameOnly($(ProjFile))';
RunParams.WorkingDirectory:='$(ProjPath)';
// create program source
NewSource:=TStringList.Create;
- NewSource.Add('#!/usr/bin/env instantfpc');
+ NewSource.Add('#!/usr/bin/env ifpc');
NewSource.Add('{$mode objfpc}{$H+}');
NewSource.Add('uses');
NewSource.Add(' Classes, SysUtils;');
@@ -142,7 +142,7 @@ end;
function TFileDescInstantFPCScript.CreateSource(const Filename, SourceName,
ResourceName: string): string;
begin
- Result:='#!/usr/bin/instantfpc'+LineEnding
+ Result:='#!/usr/bin/ifpc'+LineEnding
+'{$mode objfpc}{$H+}'+LineEnding
+LineEnding
+'uses Classes, SysUtils;'+LineEnding
diff --git a/tools/find_merged_revisions.pas b/tools/find_merged_revisions.pas
index b2887e39..a7341c26 100755
--- a/tools/find_merged_revisions.pas
+++ b/tools/find_merged_revisions.pas
@@ -1,4 +1,4 @@
-#!/usr/bin/instantfpc
+#!/usr/bin/ifpc
// Author: Mattias Gaertner 2016
{$mode objfpc}{$H+}
--
2.39.2
|
