[Guile-commits] 01/19: Fix target-max-size-t/scm to not be a fraction (oops)

[Andy Wingo]

wingo pushed a commit to branch main
in repository guile.

commit 19c3bdc5cabdfff97aaef1dddaa02e993b50b1f8
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Thu Jun 22 16:00:49 2023 +0200

    Fix target-max-size-t/scm to not be a fraction (oops)
    
    * module/system/base/target.scm (target-max-size-t/scm): Use floor/
    instead of /.
---
 module/system/base/target.scm | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/module/system/base/target.scm b/module/system/base/target.scm
index a218daa52..cc4c23654 100644
--- a/module/system/base/target.scm
+++ b/module/system/base/target.scm
@@ -1,6 +1,6 @@
 ;;; Compilation targets
 
-;; Copyright (C) 2011-2014,2017-2018 Free Software Foundation, Inc.
+;; Copyright (C) 2011-2014,2017-2018,2023 Free Software Foundation, Inc.
 
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
@@ -178,9 +178,7 @@
 (define (target-max-size-t/scm)
   "Return the maximum size_t value of the target platform, in units of
 SCM words."
-  ;; Apply the currently-universal restriction of a maximum 48-bit
-  ;; address space.
-  (/ (target-max-size-t) (target-word-size)))
+  (floor/ (target-max-size-t) (target-word-size)))
 
 (define (target-max-vector-length)
   "Return the maximum vector length of the target platform, in units of