From a2b06de074286ca2c261c095b0c489669b80f8de Mon Sep 17 00:00:00 2001
From: Dmitry Arkhipov <grisumbras@yandex.ru>
Date: Tue, 2 Apr 2024 18:52:31 +0300
Subject: [PATCH] fix deduction of architecture and address-model

---
 boostcpp.jam | 31 ++++++++++++++++++++-----------
 1 file changed, 20 insertions(+), 11 deletions(-)

diff --git a/boostcpp.jam b/boostcpp.jam
index be6b49142f..91eda62e89 100644
--- a/boostcpp.jam
+++ b/boostcpp.jam
@@ -620,15 +620,18 @@ rule deduce-address-model ( properties * )
         : /boost/architecture//64 "64-bit" ] ;
     result = $(names[$(idx)]) ;
 
-    if $(result)
+    local am = [ property.select <address-model> : $(properties) ] ;
+    if ! $(am)
     {
-        # Normally, returning composite feature here is equivalent to forcing
-        # constituent properties as well. But we only want to indicate toolset
-        # deduced default, so also pick whatever address-model is explicitly
-        # specified, if any.
-        result = <deduced-address-model>$(result) [ property.select <address-model> : $(properties) ] ;
+        return <deduced-address-model>$(result) ;
     }
-    return $(result) ;
+
+    if $(am:G=) = $(result)
+    {
+        return <deduced-address-model>$(result) $(am) ;
+    }
+
+    return ;
 }
 
 rule address-model ( )
@@ -660,12 +663,18 @@ rule deduce-architecture ( properties * )
         : /boost/architecture//combined ] ;
     result = $(names[$(idx)]) ;
 
-    if $(result)
+    local arch = [ property.select <architecture> : $(properties) ] ;
+    if ! $(arch)
     {
-        # See comment in deduce-address-model.
-        result = <deduced-architecture>$(result) [ property.select <architecture> : $(properties) ] ;
+        return <deduced-architecture>$(result) ;
     }
-    return $(result) ;
+
+    if $(arch:G=) = $(result)
+    {
+        return <deduced-architecture>$(result) $(arch) ;
+    }
+
+    return ;
 }
 
 rule architecture ( )