summaryrefslogtreecommitdiff
path: root/gnu/packages/pascal.scm
diff options
context:
space:
mode:
authorEric Bavier <bavier@member.fsf.org>2020-09-04 09:29:31 -0500
committerEric Bavier <bavier@member.fsf.org>2020-09-04 09:33:13 -0500
commit46daff38bc2ce03d28480fa7a479c5c51e61001f (patch)
treec284d2178e00af6e80df287cec97d8e0bac3063f /gnu/packages/pascal.scm
parente9db10ae7ff67b8d368b6557d6be5ddca5e6358d (diff)
downloadguix-patches-46daff38bc2ce03d28480fa7a479c5c51e61001f.tar
guix-patches-46daff38bc2ce03d28480fa7a479c5c51e61001f.tar.gz
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.
Diffstat (limited to 'gnu/packages/pascal.scm')
-rw-r--r--gnu/packages/pascal.scm15
1 files changed, 14 insertions, 1 deletions
diff --git a/gnu/packages/pascal.scm b/gnu/packages/pascal.scm
index 9ae1b29085..811d02f128 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"