[bug#73006] [PATCH 1/2] utils: Add 'objcopy-for-target' and 'objdump-for-target'.

[Zheng Junjie <zhengjunjie@iscas.ac.cn>]

* guix/utils.scm (objcopy-for-target, objdump-for-target): New procedures.

Change-Id: I302be242752cd1f4f23368bcbfc8c1674a815224
---
 guix/utils.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/guix/utils.scm b/guix/utils.scm
index d8ce6ed886..368a34dfbf 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -115,6 +115,8 @@ (define-module (guix utils)
             cc-for-target
             cxx-for-target
             ld-for-target
+            objcopy-for-target
+            objdump-for-target
             pkg-config-for-target
             strip-for-target
 
@@ -826,6 +828,16 @@ (define* (ld-for-target #:optional (target (%current-target-system)))
       (string-append target "-ld")
       "ld"))
 
+(define* (objcopy-for-target #:optional (target (%current-target-system)))
+  (if target
+      (string-append target "-objcopy")
+      "objcopy"))
+
+(define* (objdump-for-target #:optional (target (%current-target-system)))
+  (if target
+      (string-append target "-objdump")
+      "objdump"))
+
 (define* (pkg-config-for-target #:optional (target (%current-target-system)))
   (if target
       (string-append target "-pkg-config")
-- 
2.45.2