01/04: gnu: libmpeg3: Fix building on many architectures.

[guix-commits]

efraim pushed a commit to branch master
in repository guix.

commit 0f646fc79a06c9857f5f28d5a1eebd09f2d17310
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Sun Jul 17 23:33:55 2022 +0300

    gnu: libmpeg3: Fix building on many architectures.
    
    * gnu/packages/video.scm (libmpeg3)[arguments]: Add a custom phase to
    set the CFLAGS based on the Makefile.  Remove trailing #t from phases.
---
 gnu/packages/video.scm | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/video.scm b/gnu/packages/video.scm
index 559048dd9e..fe7f153244 100644
--- a/gnu/packages/video.scm
+++ b/gnu/packages/video.scm
@@ -691,13 +691,17 @@ touchscreen devices and the ability to apply filters to 
their input events.")
              (("\\(A52DIR\\)/include")
               "(A52DIR)/include/a52dec")
              (("LIBS = " match)
-              (string-append match "-la52 ")))
-           #t))
+              (string-append match "-la52 ")))))
+       (add-after 'unpack 'preseed-cflags
+         (lambda _
+           (setenv "CFLAGS"
+                   (string-append "-D_FILE_OFFSET_BITS=64 "
+                                  "-D_LARGEFILE_SOURCE "
+                                  "-D_LARGEFILE64_SOURCE"))))
        (add-before 'install 'create-destination-directory
          (lambda* (#:key outputs #:allow-other-keys)
            (let* ((out (string-append (assoc-ref outputs "out"))))
-             (mkdir-p (string-append out "/bin"))
-             #t))))))
+             (mkdir-p (string-append out "/bin"))))))))
   (native-inputs
    (list nasm))
   (inputs