me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Eric Bavier 2020-09-04 09:29:31 -05:00
parent e9db10ae7f
commit 46daff38bc
No known key found for this signature in database
GPG Key ID: FD73CAC719D32566
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gnu/packages/pascal.scm
View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Kei Kebreau <address@hidden> ;;; Copyright © 2017 Kei Kebreau <address@hidden>
;;; Copyright © 2020 Eric Bavier <bavier@posteo.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -54,7 +55,7 @@
(define-public fpc (define-public fpc
(package (package
(name "fpc") (name "fpc")
(version "3.2.0") (version "3.2.0") ; Update release date below!
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://sourceforge/freepascal/Source/" (uri (string-append "mirror://sourceforge/freepascal/Source/"
@ -132,6 +133,18 @@
(substitute* "fpcsrc/compiler/cscript.pas" (substitute* "fpcsrc/compiler/cscript.pas"
(("#!/bin/sh") (string-append "#!" (which "sh")))) (("#!/bin/sh") (string-append "#!" (which "sh"))))
#t)) #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 (replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(substitute* "fpcsrc/compiler/systems/t_linux.pas" (substitute* "fpcsrc/compiler/systems/t_linux.pas"