Hello community,
here is the log from the commit of package guile-bytestructures for
openSUSE:Factory checked in at 2020-11-26 23:14:38
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/guile-bytestructures (Old)
and /work/SRC/openSUSE:Factory/.guile-bytestructures.new.5913 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "guile-bytestructures"
Thu Nov 26 23:14:38 2020 rev:6 rq:850984 version:1.0.9
Changes:
--------
---
/work/SRC/openSUSE:Factory/guile-bytestructures/guile-bytestructures.changes
2020-01-14 21:13:55.766946804 +0100
+++
/work/SRC/openSUSE:Factory/.guile-bytestructures.new.5913/guile-bytestructures.changes
2020-11-26 23:15:51.109058922 +0100
@@ -1,0 +2,7 @@
+Fri Nov 6 16:56:37 UTC 2020 - Jonathan Brielmaier <[email protected]>
+
+- Update to version 1.0.9:
+ * two small bug fixes
+- Adjust source url as upstream tag removed 'v' suffix
+
+-------------------------------------------------------------------
Old:
----
v1.0.7.tar.gz
New:
----
1.0.9.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ guile-bytestructures.spec ++++++
--- /var/tmp/diff_new_pack.Yh8K0V/_old 2020-11-26 23:15:51.673059361 +0100
+++ /var/tmp/diff_new_pack.Yh8K0V/_new 2020-11-26 23:15:51.677059363 +0100
@@ -17,13 +17,13 @@
Name: guile-bytestructures
-Version: 1.0.7
+Version: 1.0.9
Release: 0
Summary: Bytestructures for Guile
License: GPL-3.0-only
Group: Development/Libraries/Other
URL: https://github.com/TaylanUB/scheme-bytestructures
-Source0:
https://github.com/TaylanUB/scheme-bytestructures/archive/v%{version}.tar.gz
+Source0:
https://github.com/TaylanUB/scheme-bytestructures/archive/%{version}.tar.gz
BuildRequires: autoconf
BuildRequires: automake
BuildRequires: guile-devel >= 2.0
++++++ v1.0.7.tar.gz -> 1.0.9.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/scheme-bytestructures-1.0.7/bytestructures/body/numeric.scm
new/scheme-bytestructures-1.0.9/bytestructures/body/numeric.scm
--- old/scheme-bytestructures-1.0.7/bytestructures/body/numeric.scm
2019-12-29 18:35:56.000000000 +0100
+++ new/scheme-bytestructures-1.0.9/bytestructures/body/numeric.scm
2020-10-22 20:37:17.000000000 +0200
@@ -21,9 +21,30 @@
;; native or specific endianness, as made possible by the bytevector
referencing
;; and assigning procedures in the (rnrs bytevectors) module.
+;; We use the strange cond-expand/runtime macro to make sure that certain
checks
+;; for CPU architecture and data model are done at library-load-time and not
+;; compile time, since one might cross-compile the library.
+
;;; Code:
+(define base-environment
+ (cond-expand
+ (guile-2
+ (environment '(guile)
+ '(bytestructures guile numeric-data-model)))
+ (else
+ (environment '(scheme base)))))
+
+(define-syntax cond-expand/runtime
+ (syntax-rules ()
+ ((_ (<cond> <expr>) ...)
+ (let ((const (eval '(cond-expand (<cond> '<expr>) ...)
+ base-environment)))
+ (cond
+ ((equal? const '<expr>) <expr>)
+ ...)))))
+
(define i8align 1)
(define i16align 2)
@@ -31,14 +52,14 @@
(define i32align 4)
(define i64align
- (cond-expand
+ (cond-expand/runtime
(i386 4)
(else 8)))
(define f32align 4)
(define f64align
- (cond-expand
+ (cond-expand/runtime
(i386 4)
(else 8)))
@@ -259,22 +280,22 @@
(define short int16)
(define unsigned-short uint16)
-(define int (cond-expand
+(define int (cond-expand/runtime
(lp32 int16)
(ilp64 int64)
(else int32)))
-(define unsigned-int (cond-expand
+(define unsigned-int (cond-expand/runtime
(lp32 uint16)
(ilp64 uint64)
(else uint32)))
-(define long (cond-expand
+(define long (cond-expand/runtime
(ilp64 int64)
(lp64 int64)
(else int32)))
-(define unsigned-long (cond-expand
+(define unsigned-long (cond-expand/runtime
(ilp64 uint64)
(lp64 uint64)
(else uint32)))
@@ -282,7 +303,7 @@
(define long-long int64)
(define unsigned-long-long uint64)
-(define arch32bit? (cond-expand
+(define arch32bit? (cond-expand/runtime
(lp32 #t)
(ilp32 #t)
(else #f)))
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/scheme-bytestructures-1.0.7/bytestructures/guile/numeric-all.scm
new/scheme-bytestructures-1.0.9/bytestructures/guile/numeric-all.scm
--- old/scheme-bytestructures-1.0.7/bytestructures/guile/numeric-all.scm
2019-12-29 18:35:56.000000000 +0100
+++ new/scheme-bytestructures-1.0.9/bytestructures/guile/numeric-all.scm
2020-10-22 20:37:17.000000000 +0200
@@ -1,5 +1,6 @@
(define-module (bytestructures guile numeric-all))
(import
+ (scheme eval)
(bytestructures guile bytevectors)
(bytestructures guile utils)
(bytestructures guile base)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/scheme-bytestructures-1.0.7/bytestructures/r7/numeric-all.sld
new/scheme-bytestructures-1.0.9/bytestructures/r7/numeric-all.sld
--- old/scheme-bytestructures-1.0.7/bytestructures/r7/numeric-all.sld
2019-12-29 18:35:56.000000000 +0100
+++ new/scheme-bytestructures-1.0.9/bytestructures/r7/numeric-all.sld
2020-10-22 20:37:17.000000000 +0200
@@ -2,6 +2,7 @@
(import
(scheme base)
(scheme complex)
+ (scheme eval)
(bytestructures r7 utils)
(bytestructures r7 base)
(bytestructures r7 bytevectors)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/scheme-bytestructures-1.0.7/configure.ac
new/scheme-bytestructures-1.0.9/configure.ac
--- old/scheme-bytestructures-1.0.7/configure.ac 2019-12-29
18:35:56.000000000 +0100
+++ new/scheme-bytestructures-1.0.9/configure.ac 2020-10-22
20:37:17.000000000 +0200
@@ -1,4 +1,4 @@
-AC_INIT([bytestructures], [1.0.7], [], [],
[https://github.com/TaylanUB/scheme-bytestructures/])
+AC_INIT([bytestructures], [1.0.9], [], [],
[https://github.com/TaylanUB/scheme-bytestructures/])
AC_CONFIG_SRCDIR(bytestructures)
AC_CONFIG_MACRO_DIR([m4])
AM_INIT_AUTOMAKE([-Wall -Werror foreign color-tests])
_______________________________________________
openSUSE Commits mailing list -- [email protected]
To unsubscribe, email [email protected]
List Netiquette: https://en.opensuse.org/openSUSE:Mailing_list_netiquette
List Archives:
https://lists.opensuse.org/archives/list/[email protected]
