From: Pascal Packaging Team <pkg-pascal-devel@lists.alioth.debian.org>
Date: Mon, 18 Dec 2023 22:01:08 +0000 (+0100)
Subject: version
X-Git-Tag: archive/raspbian/3.2.2+dfsg-32+rpi1~1^2~37
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=b9dea68b6d33d835d61ebe3d71d6d3a397005f5c;p=fpc.git

version

This patch adds Debian build version to compiler full version.


Gbp-Pq: Name version.diff
---

diff --git a/fpcsrc/compiler/version.pas b/fpcsrc/compiler/version.pas
index b5627d3e..f7895191 100644
--- a/fpcsrc/compiler/version.pas
+++ b/fpcsrc/compiler/version.pas
@@ -81,6 +81,9 @@ function full_version_string:string;
 
 implementation
 
+const
+  FullVersionString={$INCLUDE version.inc};
+
 function version_string:string;
 begin
   version_string := version_nr+'.'+release_nr+'.'+patch_nr;
@@ -89,11 +92,7 @@ end;
 
 function full_version_string:string;
 begin
-  full_version_string := version_nr+'.'+release_nr+'.'+patch_nr+minorpatch
-{$ifdef REVINC}
-  +'-r'+{$i revision.inc}
-{$endif REVINC}
-  ;
+  full_version_string := FullVersionString;
 end;
 
 end.