summaryrefslogtreecommitdiff
path: root/module/system
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2023-06-22 16:00:49 +0200
committerAndy Wingo <wingo@pobox.com>2023-06-22 16:01:44 +0200
commit19c3bdc5cabdfff97aaef1dddaa02e993b50b1f8 (patch)
treedc25e8108d13a1ff66f236eeff8ef72827ca7ec3 /module/system
parentaa2cfe7cf69327285a17de97682d696f2f6c43ef (diff)
downloadguile-19c3bdc5cabdfff97aaef1dddaa02e993b50b1f8.tar.gz
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 /.
Diffstat (limited to 'module/system')
-rw-r--r--module/system/base/target.scm6
1 files 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