Import Debian changes 5e5-3debian/5e5-3

scm (5e5-3) unstable; urgency=low

  * build.scm (build-continue-ia64): New function, to encapsulate the method
  for building continue-ia64.o.
  (link-c-program/linux-ia64): Use build-continue-ia64.
  (make-archive/linux-ia64): New command, to use build-continue-ia64.
  (Closes: #483273).

1 files changed, 18 insertions, 6 deletions

diff --git a/build.scm b/build.scm
index 7ea579c..c991ec4 100644
--- a/build.scm
+++ b/build.scm
@@ -1087,14 +1087,17 @@
 	   (append objects libs)))
 	 oname)))
 
+(define (build-continue-ia64 parms)
+  (and (batch:try-command
+	parms "gcc -o get-contoffset-ia64 get-contoffset-ia64.c")
+       (batch:try-command
+	parms "./get-contoffset-ia64 contoffset-ia64.S")
+       (batch:try-command
+	parms "gcc -c continue-ia64.S")))
+
 (defcommand link-c-program linux-ia64
   (lambda (oname objects libs parms)
-    (and (and (batch:try-command
-	       parms "gcc -o get-contoffset-ia64 get-contoffset-ia64.c")
-	      (batch:try-command
-	       parms "./get-contoffset-ia64 contoffset-ia64.S")
-	      (batch:try-command
-	       parms "gcc -c continue-ia64.S"))
+    (and (build-continue-ia64 parms)
 	 (batch:try-command
 	  parms "gcc" "-rdynamic" "-o" oname "continue-ia64.o"
 	  (must-be-first
@@ -1578,6 +1581,15 @@
       (and (batch:try-command parms "ar rc" aname objects)
 	   (batch:try-command parms "ranlib" aname)
 	   aname))))
+
+(defcommand make-archive linux-ia64
+  (lambda (oname objects libs parms)
+    (let ((aname (string-append "lib" oname ".a")))
+      (and (build-continue-ia64 parms)
+	   (batch:try-command parms "ar rc" aname objects "continue-ia64.o")
+	   (batch:try-command parms "ranlib" aname)
+	   aname))))
+  
 (defcommand compile-dll-c-files *unknown*
   (lambda (files parms)
     (and (batch:try-chopped-command parms