mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

(system base target) doesn't load (system foreign)

Browse source 
* module/system/base/target.scm (%native-word-size): Use
most-positive-fixnum instead of importing (system foreign).
This commit is contained in:
Andy Wingo 2024-03-06 10:18:08 +01:00
parent 5bbc2d41d9
commit 137b0e85b9
1 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

14
module/system/base/target.scm
View file

@ -1,6 +1,6 @@
;;; Compilation targets
;; Copyright (C) 2011-2014,2017-2018,2023 Free Software Foundation, Inc.
;; Copyright (C) 2011-2014,2017-2018,2023-2024 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
@ -44,8 +44,16 @@
;;; Target types
;;;
(define %native-word-size
((@ (system foreign) sizeof) '*))
;; Hacky way to get native pointer size without having to load (system
;; foreign).
(define-syntax %native-word-size
(lambda (stx)
(syntax-case stx ()
(id (identifier? #'id)
(cond
((< most-positive-fixnum (ash 1 32)) 4)
((< most-positive-fixnum (ash 1 64)) 8)
(else (error "unexpected!" most-positive-fixnum)))))))
(define %target-type (make-fluid %host-type))
(define %target-endianness (make-fluid (native-endianness)))