mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-08-05 05:17:07 +02:00
community/chicken: upgrade to 4.13.0
This commit is contained in:
parent
2078d1ea63
commit
97eb361775
@ -2,8 +2,8 @@
|
||||
# Contributor: Sören Tempel <soeren+alpine@soeren-tempel.net>
|
||||
# Maintainer: Sören Tempel <soeren+alpine@soeren-tempel.net>
|
||||
pkgname=chicken
|
||||
pkgver=4.12.0
|
||||
pkgrel=5
|
||||
pkgver=4.13.0
|
||||
pkgrel=0
|
||||
pkgdesc="R5RS and R7RS compatible scheme compiler and interpreter"
|
||||
url="http://call-cc.org/"
|
||||
arch="all"
|
||||
@ -13,10 +13,7 @@ depends_dev=""
|
||||
makedepends="$depends_dev"
|
||||
install=""
|
||||
subpackages="$pkgname-doc $pkgname-libs $pkgname-dev $pkgname-feathers::noarch"
|
||||
source="http://code.call-cc.org/releases/$pkgver/$pkgname-$pkgver.tar.gz
|
||||
CVE-2017-6949.patch
|
||||
CVE-2017-9334.patch
|
||||
"
|
||||
source="http://code.call-cc.org/releases/$pkgver/$pkgname-$pkgver.tar.gz"
|
||||
|
||||
# secfixes:
|
||||
# 4.12.0-r3:
|
||||
@ -67,6 +64,4 @@ feathers() {
|
||||
"$subpkgdir"/usr/share/chicken/ || return 1
|
||||
}
|
||||
|
||||
sha512sums="190bdc9e53aa50e93419e2483fd5baf3e2ef3bebe4e605653f2aadd9b8bbc98b192cfbb64ab1c99eeefb13a7795757f013799963bfb775862d746ed5c93d602f chicken-4.12.0.tar.gz
|
||||
7709b6558c01490116cda11162833affa884afaed1ba2d34ee301f5439fad02a6550193266c38c3a93e88c19a680a7140eeafb23100f783979265a7c1a1eaf57 CVE-2017-6949.patch
|
||||
7d594a6abaffe59a050305878ba9cc75cf588743407b2cc44e369fb22a94d42662bf8101bec93b60cacdc0046da5bc74ff1e8ac8d9e6aacfb280406cbbabce7c CVE-2017-9334.patch"
|
||||
sha512sums="02c2035b4f81da6f4af2d246361ce8debdc9d9c663c3f43b7afb9abbf1ff591a2bb8fa144511b4d747a373dea4dcd9c10cac48466bf97032db76f3830c08709d chicken-4.13.0.tar.gz"
|
||||
|
File diff suppressed because it is too large
Load Diff
@ -1,41 +0,0 @@
|
||||
From 76bbb0c92c0a9e2cadac9796e55fdd2836424fdb Mon Sep 17 00:00:00 2001
|
||||
From: Peter Bex <address@hidden>
|
||||
Date: Sun, 28 May 2017 12:37:44 +0200
|
||||
Subject: [PATCH] Fix segmentation fault in "length" on improper lists.
|
||||
|
||||
This fixes #1375
|
||||
---
|
||||
runtime.c | 2 +-
|
||||
tests/library-tests.scm | 6 ++++++
|
||||
3 files changed, 9 insertions(+), 1 deletion(-)
|
||||
|
||||
diff --git a/runtime.c b/runtime.c
|
||||
index 86db413..7a513c2 100644
|
||||
--- a/runtime.c
|
||||
+++ b/runtime.c
|
||||
@@ -5379,7 +5379,7 @@ C_regparm C_word C_fcall C_i_length(C_word lst)
|
||||
}
|
||||
}
|
||||
|
||||
- if(C_immediatep(slow) || C_block_header(lst) != C_PAIR_TAG)
|
||||
+ if(C_immediatep(slow) || C_block_header(slow) != C_PAIR_TAG)
|
||||
barf(C_NOT_A_PROPER_LIST_ERROR, "length", lst);
|
||||
|
||||
slow = C_u_i_cdr(slow);
|
||||
diff --git a/tests/library-tests.scm b/tests/library-tests.scm
|
||||
index cd2f6e9..9c7cab4 100644
|
||||
--- a/tests/library-tests.scm
|
||||
+++ b/tests/library-tests.scm
|
||||
@@ -693,3 +693,9 @@ A
|
||||
(assert (not (member "foo" '("bar"))))
|
||||
(assert (not (member "foo" '())))
|
||||
(assert-fail (member "foo" "foo"))
|
||||
+
|
||||
+
|
||||
+;; length
|
||||
+
|
||||
+(assert-fail (length 1))
|
||||
+(assert-fail (length '(x . y)))
|
||||
--
|
||||
2.1.4
|
||||
|
Loading…
Reference in New Issue
Block a user