branch master updated: gnu: fpc: Fix reproducibility problem.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

bavier pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 46daff3  gnu: fpc: Fix reproducibility problem.
46daff3 is described below

commit 46daff38bc2ce03d28480fa7a479c5c51e61001f
Author: Eric Bavier <bavier@member.fsf.org>
AuthorDate: Fri Sep 4 09:29:31 2020 -0500

    gnu: fpc: Fix reproducibility problem.
    
    * gnu/packages/pascal.scm (fpc)[arguments]: Add 'patch-release-date' to
    replace a build timestamp with the release date instead.
---
 gnu/packages/pascal.scm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/pascal.scm b/gnu/packages/pascal.scm
index 9ae1b29..811d02f 100644
--- a/gnu/packages/pascal.scm
+++ b/gnu/packages/pascal.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2017 Kei Kebreau <address@hidden>
+;;; Copyright © 2020 Eric Bavier <bavier@posteo.net>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -54,7 +55,7 @@
 (define-public fpc
   (package
     (name "fpc")
-    (version "3.2.0")
+    (version "3.2.0")                   ; Update release date below!
     (source (origin
               (method url-fetch)
               (uri (string-append "mirror://sourceforge/freepascal/Source/"
@@ -132,6 +133,18 @@
                (substitute* "fpcsrc/compiler/cscript.pas"
                  (("#!/bin/sh") (string-append "#!" (which "sh"))))
                #t))
+           (add-before 'build 'patch-release-date
+             (lambda _                  ; reproducibility
+               (substitute* (list "fpcdocs/prog.tex"
+                                  
"fpcsrc/packages/amunits/examples/sortdemo.pas"
+                                  
"fpcsrc/packages/libogcfpc/src/ogc/libversion.inc"
+                                  "fpcsrc/utils/fpcres/fpcjres.pas"
+                                  "fpcsrc/utils/fpcres/fpcres.pas"
+                                  "fpcsrc/utils/fpcm/fpcmmain.pp"
+                                  "fpcsrc/utils/fpcreslipo/fpcreslipo.pp"
+                                  "fpcsrc/compiler/version.pas")
+                 (("\\{\\$I(NCLUDE)? %DATE%\\}") "'2020/06/19'"))
+               #t))
            (replace 'configure
              (lambda* (#:key inputs outputs #:allow-other-keys)
                (substitute* "fpcsrc/compiler/systems/t_linux.pas"