From 6bf78a5e2b7fea7e7fbfb3947b730aefe1a6ec20 Mon Sep 17 00:00:00 2001
From: Justin LaPolla <jlapolla@cray.com>
Date: Wed, 7 Feb 2018 09:55:22 -0600
Subject: [PATCH] Refactor to reuse updating rule procedures

---
 src/tools/cray.jam | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/src/tools/cray.jam b/src/tools/cray.jam
index 971bf2759..2c3803c2b 100644
--- a/src/tools/cray.jam
+++ b/src/tools/cray.jam
@@ -522,25 +522,17 @@ rule compile-c-procedure ( targets * : sources * : properties * )
 
 rule compile-asm-procedure ( targets * : sources * : properties * )
 {
-    set-cxxstd-procedure $(targets) : $(sources) : $(properties) ;
-    set-debug-symbols-procedure $(targets) : $(sources) : $(properties) ;
-    add-space-procedure $(targets) : $(sources) : $(properties) ;
-    debug-driver-procedure $(targets) : $(sources) : $(properties) ;
+    compile-c++-procedure $(targets) : $(sources) : $(properties) ;
 }
 
 rule compile-c++-preprocess-procedure ( targets * : sources * : properties * )
 {
-    set-cxxstd-procedure $(targets) : $(sources) : $(properties) ;
-    set-debug-symbols-procedure $(targets) : $(sources) : $(properties) ;
-    add-space-procedure $(targets) : $(sources) : $(properties) ;
-    debug-driver-procedure $(targets) : $(sources) : $(properties) ;
+    compile-c++-procedure $(targets) : $(sources) : $(properties) ;
 }
 
 rule compile-c-preprocess-procedure ( targets * : sources * : properties * )
 {
-    set-debug-symbols-procedure $(targets) : $(sources) : $(properties) ;
-    add-space-procedure $(targets) : $(sources) : $(properties) ;
-    debug-driver-procedure $(targets) : $(sources) : $(properties) ;
+    compile-c-procedure $(targets) : $(sources) : $(properties) ;
 }
 
 rule link-procedure ( targets * : sources * : properties * )