<pre style='margin:0'>
Herby Gillot (herbygillot) pushed a commit to branch master
in repository macports-ports.
</pre>
<p><a href="https://github.com/macports/macports-ports/commit/c42e7b47bed40feaf51773e01b60653b8c6f86f6">https://github.com/macports/macports-ports/commit/c42e7b47bed40feaf51773e01b60653b8c6f86f6</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'> new c42e7b47bed chez-scheme: fix build
</span>c42e7b47bed is described below
<span style='display:block; white-space:pre;color:#808000;'>commit c42e7b47bed40feaf51773e01b60653b8c6f86f6
</span>Author: Mohamed Akram <mohd.akram@outlook.com>
AuthorDate: Thu Apr 27 16:57:31 2023 +0400
<span style='display:block; white-space:pre;color:#404040;'> chez-scheme: fix build
</span><span style='display:block; white-space:pre;color:#404040;'>
</span><span style='display:block; white-space:pre;color:#404040;'> Fixes: https://trac.macports.org/ticket/67312
</span>---
lang/chez-scheme/Portfile | 3 +
lang/chez-scheme/files/patch-compile.diff | 110 ++++++++++++++++++++++++++++++
2 files changed, 113 insertions(+)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/chez-scheme/Portfile b/lang/chez-scheme/Portfile
</span><span style='display:block; white-space:pre;color:#808080;'>index adf45f8e780..1d6419f28c4 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/lang/chez-scheme/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/chez-scheme/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -33,6 +33,9 @@ depends_lib port:zlib \
</span> port:libiconv \
port:xorg-libX11
<span style='display:block; white-space:pre;background:#e0ffe0;'>+patch.pre_args -p1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+patchfiles patch-compile.diff
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> configure.pre_args --installprefix=${prefix}
configure.args --temproot=${destroot} \
--threads \
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/chez-scheme/files/patch-compile.diff b/lang/chez-scheme/files/patch-compile.diff
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 00000000000..02a96686e1a
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/chez-scheme/files/patch-compile.diff
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,110 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+From e3d12a3f97841c807418a58b670dc3da6654e167 Mon Sep 17 00:00:00 2001
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+From: ur4t <46435411+ur4t@users.noreply.github.com>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Date: Mon, 27 Feb 2023 01:43:20 +0800
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Subject: [PATCH] Update remaining K&R function declarations to modern style
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ (#683)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+---
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ c/fasl.c | 3 +--
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ c/foreign.c | 2 +-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ c/number.c | 3 +--
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ c/prim5.c | 3 +--
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ c/scheme.c | 2 +-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ c/segment.c | 2 +-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ c/thread.c | 2 +-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ 7 files changed, 7 insertions(+), 10 deletions(-)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/c/fasl.c b/c/fasl.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index b0f51fa56..765ee9806 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- a/c/fasl.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ b/c/fasl.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -1553,8 +1553,7 @@ static uptr sparc64_get_literal(void *address) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return item;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-static U32 adjust_delay_inst(delay_inst, old_call_addr, new_call_addr)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- U32 delay_inst; U32 *old_call_addr, *new_call_addr; {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++static U32 adjust_delay_inst(U32 delay_inst, U32 *old_call_addr, U32 *new_call_addr) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ INT offset;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ offset = sizeof(U32) * (old_call_addr - new_call_addr);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/c/foreign.c b/c/foreign.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index fbe9a12a2..48a253bc7 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- a/c/foreign.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ b/c/foreign.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -270,7 +270,7 @@ void S_foreign_entry(void) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ AC0(tc) = x;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-static void *lookup_foreign_entry(s) const char *s; {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++static void *lookup_foreign_entry(const char *s) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return ptr_to_addr(lookup(s));
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/c/number.c b/c/number.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 105e94cec..61c0cf29d 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- a/c/number.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ b/c/number.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -778,8 +778,7 @@ static void big_short_trunc(ptr tc, ptr x, bigit s, iptr xl, IBOOL qs, IBOOL rs,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (r != (ptr *)NULL) *r = copy_normalize(tc, &k,1,rs);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-static void big_trunc(tc, x, y, xl, yl, qs, rs, q, r)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- ptr tc, x, y; iptr xl, yl; IBOOL qs, rs; ptr *q, *r; {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++static void big_trunc(ptr tc, ptr x, ptr y, iptr xl, iptr yl, IBOOL qs, IBOOL rs, ptr *q, ptr *r) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ iptr i;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ bigit *p, *xp, *yp;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ iptr m = xl-yl+1;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/c/prim5.c b/c/prim5.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index f552e74da..3f413e488 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- a/c/prim5.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ b/c/prim5.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -872,8 +872,7 @@ static ptr s_flush_instruction_cache(void) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return Svoid;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-static ptr s_make_code(flags, free, name, arity_mark, n, info, pinfos)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- iptr flags, free, n; ptr name, arity_mark, info, pinfos; {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++static ptr s_make_code(iptr flags, iptr free, ptr name, ptr arity_mark, iptr n, ptr info, ptr pinfos) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ ptr co;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ tc_mutex_acquire()
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/c/scheme.c b/c/scheme.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 04f4c03a2..f4b2e42aa 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- a/c/scheme.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ b/c/scheme.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -420,7 +420,7 @@ static IBOOL next_path(char *path, const char *name, const char *ext, const char
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ static const char *path_last(const char *path);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ static char *get_defaultheapdirs(void);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-static const char *path_last(p) const char *p; {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++static const char *path_last(const char *p) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ const char *s;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #ifdef WIN32
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ char c;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/c/segment.c b/c/segment.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 24fb3773a..0c7e73bce 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- a/c/segment.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ b/c/segment.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -325,7 +325,7 @@ iptr S_find_segments(ISPC s, IGEN g, iptr n) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * allocates a group of n contiguous fresh segments, returning the
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * segment number of the first segment of the group.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-static seginfo *allocate_segments(nreq) uptr nreq; {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++static seginfo *allocate_segments(uptr nreq) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ uptr nact, bytes, base; void *addr;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ iptr i;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ chunkinfo *chunk; seginfo *si;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/c/thread.c b/c/thread.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index e836aee56..b4be8e320 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- a/c/thread.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ b/c/thread.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -259,7 +259,7 @@ ptr S_fork_thread(ptr thunk) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return thread;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-static s_thread_rv_t start_thread(p) void *p; {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++static s_thread_rv_t start_thread(void *p) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ ptr tc = (ptr)p; ptr cp;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ s_thread_setspecific(S_tc_key, tc);
</span></pre><pre style='margin:0'>
</pre>