wingo pushed a commit to branch main in repository guile. commit 19c3bdc5cabdfff97aaef1dddaa02e993b50b1f8 Author: Andy Wingo <wi...@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