<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">
<html lang="en">
<head>
<meta content="text/html; charset=US-ASCII" http-equiv="Content-Type">
<title>
GitLab
</title>
<style>img {
max-width: 100%; height: auto;
}
</style>
</head>
<body>
<div class="content">
<p class="details" style="font-style: italic; color: #666;">
<a href="https://gitlab.com/unspecd">Evgeny Ermakov</a> created an issue <a href="https://gitlab.com/gnutls/gnutls/-/issues/1137">#1137</a>:
</p>
<div></div>
<p dir="auto">Hello! I'm trying to cross build <code>gnutls</code> with <code>guile-3.0.4</code>, but I got an error:</p>
<pre class="code highlight js-syntax-highlight plaintext" lang="plaintext" v-pre="true"><code><span id="LC1" class="line" lang="plaintext"> GEN modules/gnutls.scm</span>
<span id="LC2" class="line" lang="plaintext"> GUILEC modules/gnutls.go</span>
<span id="LC3" class="line" lang="plaintext"> GUILEC modules/gnutls/extra.go</span>
<span id="LC4" class="line" lang="plaintext">Backtrace:</span>
<span id="LC5" class="line" lang="plaintext">In ice-9/psyntax.scm:</span>
<span id="LC6" class="line" lang="plaintext"> 1241:36 19 (expand-top-sequence ((define-module (gnutls extra) *)) *)</span>
<span id="LC7" class="line" lang="plaintext"> 1233:19 18 (parse _ (("placeholder" placeholder)) ((top) #(# # *)) *)</span>
<span id="LC8" class="line" lang="plaintext"> 285:10 17 (parse _ (("placeholder" placeholder)) (()) _ c&e (# #) #)</span>
<span id="LC9" class="line" lang="plaintext">In ice-9/eval.scm:</span>
<span id="LC10" class="line" lang="plaintext"> 293:34 16 (_ #<module (#{ g97}#) 7fe40b3bac80>)</span>
<span id="LC11" class="line" lang="plaintext">In ice-9/boot-9.scm:</span>
<span id="LC12" class="line" lang="plaintext"> 3380:4 15 (define-module* _ #:filename _ #:pure _ #:version _ # _ *)</span>
<span id="LC13" class="line" lang="plaintext"> 2565:24 14 (call-with-deferred-observers #<procedure 7fe40b9b1050 *>)</span>
<span id="LC14" class="line" lang="plaintext"> 3393:24 13 (_)</span>
<span id="LC15" class="line" lang="plaintext"> 222:17 12 (map1 (((gnutls))))</span>
<span id="LC16" class="line" lang="plaintext"> 3297:17 11 (resolve-interface (gnutls) #:select _ #:hide _ #:prefix *)</span>
<span id="LC17" class="line" lang="plaintext">In ice-9/threads.scm:</span>
<span id="LC18" class="line" lang="plaintext"> 390:8 10 (_ _)</span>
<span id="LC19" class="line" lang="plaintext">In ice-9/boot-9.scm:</span>
<span id="LC20" class="line" lang="plaintext"> 3223:13 9 (_)</span>
<span id="LC21" class="line" lang="plaintext">In ice-9/threads.scm:</span>
<span id="LC22" class="line" lang="plaintext"> 390:8 8 (_ _)</span>
<span id="LC23" class="line" lang="plaintext">In ice-9/boot-9.scm:</span>
<span id="LC24" class="line" lang="plaintext"> 3507:20 7 (_)</span>
<span id="LC25" class="line" lang="plaintext"> 2806:4 6 (save-module-excursion #<procedure 7fe40a59d570 at ice-*>)</span>
<span id="LC26" class="line" lang="plaintext"> 3527:26 5 (_)</span>
<span id="LC27" class="line" lang="plaintext">In unknown file:</span>
<span id="LC28" class="line" lang="plaintext"> 4 (primitive-load-path "gnutls" #<procedure 7fe40a50d240 *>)</span>
<span id="LC29" class="line" lang="plaintext">In ice-9/eval.scm:</span>
<span id="LC30" class="line" lang="plaintext"> 626:19 3 (_ #<directory (gnutls) 7fe40b3baaa0>)</span>
<span id="LC31" class="line" lang="plaintext"> 223:20 2 (proc #<directory (gnutls) 7fe40b3baaa0>)</span>
<span id="LC32" class="line" lang="plaintext">In unknown file:</span>
<span id="LC33" class="line" lang="plaintext"> 1 (%resolve-variable (7 . protocol/ssl3) #<directory (gnu*>)</span>
<span id="LC34" class="line" lang="plaintext">In ice-9/boot-9.scm:</span>
<span id="LC35" class="line" lang="plaintext"> 1669:16 0 (raise-exception _ #:continuable? _)</span>
<span id="LC36" class="line" lang="plaintext"></span>
<span id="LC37" class="line" lang="plaintext">ice-9/boot-9.scm:1669:16: In procedure raise-exception:</span>
<span id="LC38" class="line" lang="plaintext">Unbound variable: protocol/ssl3</span>
<span id="LC39" class="line" lang="plaintext">make[3]: *** [Makefile:2520: modules/gnutls/extra.go] Error 1</span>
<span id="LC40" class="line" lang="plaintext">make[3]: *** Waiting for unfinished jobs....</span></code></pre>
<p dir="auto">Here's the patch I propose:</p>
<pre class="code highlight js-syntax-highlight diff" lang="diff" v-pre="true"><code><span id="LC1" class="line" lang="diff"><span class="gd">--- guile/modules/gnutls.in</span></span>
<span id="LC2" class="line" lang="diff"><span class="gi">+++ guile/modules/gnutls.in</span></span>
<span id="LC3" class="line" lang="diff"><span class="p">@@ -566,20 +566,33 @@</span></span>
<span id="LC4" class="line" lang="diff"> </span>
<span id="LC5" class="line" lang="diff"> </span>
<span id="LC6" class="line" lang="diff"> ;; Renaming.</span>
<span id="LC7" class="line" lang="diff"><span class="gd">-(define protocol/ssl-3 protocol/ssl3)</span></span>
<span id="LC8" class="line" lang="diff"><span class="gd">-(define protocol/tls-1.0 protocol/tls1-0)</span></span>
<span id="LC9" class="line" lang="diff"><span class="gd">-(define protocol/tls-1.1 protocol/tls1-1)</span></span>
<span id="LC10" class="line" lang="diff"><span class="gi">+(define protocol/ssl-3 #f)</span></span>
<span id="LC11" class="line" lang="diff"><span class="gi">+(define protocol/tls-1.0 #f)</span></span>
<span id="LC12" class="line" lang="diff"><span class="gi">+(define protocol/tls-1.1 #f)</span></span>
<span id="LC13" class="line" lang="diff"> </span>
<span id="LC14" class="line" lang="diff"> ;; Aliases.</span>
<span id="LC15" class="line" lang="diff"><span class="gd">-(define credentials/anonymous credentials/anon)</span></span>
<span id="LC16" class="line" lang="diff"><span class="gd">-(define cipher/rijndael-256-cbc cipher/aes-256-cbc)</span></span>
<span id="LC17" class="line" lang="diff"><span class="gd">-(define cipher/rijndael-128-cbc cipher/aes-128-cbc)</span></span>
<span id="LC18" class="line" lang="diff"><span class="gd">-(define cipher/rijndael-cbc cipher/aes-128-cbc)</span></span>
<span id="LC19" class="line" lang="diff"><span class="gd">-(define cipher/arcfour-128 cipher/arcfour)</span></span>
<span id="LC20" class="line" lang="diff"><span class="gd">-(define certificate-verify/allow-any-x509-v1-ca-certificate</span></span>
<span id="LC21" class="line" lang="diff"><span class="gd">- certificate-verify/allow-any-x509-v1-ca-crt)</span></span>
<span id="LC22" class="line" lang="diff"><span class="gd">-(define certificate-verify/allow-x509-v1-ca-certificate</span></span>
<span id="LC23" class="line" lang="diff"><span class="gd">- certificate-verify/allow-x509-v1-ca-crt)</span></span>
<span id="LC24" class="line" lang="diff"><span class="gi">+(define credentials/anonymous #f)</span></span>
<span id="LC25" class="line" lang="diff"><span class="gi">+(define cipher/rijndael-256-cbc #f)</span></span>
<span id="LC26" class="line" lang="diff"><span class="gi">+(define cipher/rijndael-128-cbc #f)</span></span>
<span id="LC27" class="line" lang="diff"><span class="gi">+(define cipher/rijndael-cbc #f)</span></span>
<span id="LC28" class="line" lang="diff"><span class="gi">+(define cipher/arcfour-128 #f)</span></span>
<span id="LC29" class="line" lang="diff"><span class="gi">+(define certificate-verify/allow-any-x509-v1-ca-certificate #f)</span></span>
<span id="LC30" class="line" lang="diff"><span class="gi">+(define certificate-verify/allow-x509-v1-ca-certificate #f)</span></span>
<span id="LC31" class="line" lang="diff"><span class="gi">+</span></span>
<span id="LC32" class="line" lang="diff"><span class="gi">+(eval-when (load eval)</span></span>
<span id="LC33" class="line" lang="diff"><span class="gi">+ (unless (getenv "GNUTLS_GUILE_CROSS_COMPILING")</span></span>
<span id="LC34" class="line" lang="diff"><span class="gi">+ (set! protocol/ssl-3 protocol/ssl3)</span></span>
<span id="LC35" class="line" lang="diff"><span class="gi">+ (set! protocol/tls-1.0 protocol/tls1-0)</span></span>
<span id="LC36" class="line" lang="diff"><span class="gi">+ (set! protocol/tls-1.1 protocol/tls1-1)</span></span>
<span id="LC37" class="line" lang="diff"><span class="gi">+ (set! credentials/anonymous credentials/anon)</span></span>
<span id="LC38" class="line" lang="diff"><span class="gi">+ (set! cipher/rijndael-256-cbc cipher/aes-256-cbc)</span></span>
<span id="LC39" class="line" lang="diff"><span class="gi">+ (set! cipher/rijndael-128-cbc cipher/aes-128-cbc)</span></span>
<span id="LC40" class="line" lang="diff"><span class="gi">+ (set! cipher/rijndael-cbc cipher/aes-128-cbc)</span></span>
<span id="LC41" class="line" lang="diff"><span class="gi">+ (set! cipher/arcfour-128 cipher/arcfour)</span></span>
<span id="LC42" class="line" lang="diff"><span class="gi">+ (set! certificate-verify/allow-any-x509-v1-ca-certificate</span></span>
<span id="LC43" class="line" lang="diff"><span class="gi">+ certificate-verify/allow-any-x509-v1-ca-crt)</span></span>
<span id="LC44" class="line" lang="diff"><span class="gi">+ (set! certificate-verify/allow-x509-v1-ca-certificate</span></span>
<span id="LC45" class="line" lang="diff"><span class="gi">+ certificate-verify/allow-x509-v1-ca-crt)))</span></span>
<span id="LC46" class="line" lang="diff"> </span>
<span id="LC47" class="line" lang="diff"> ;; Deprecated OpenPGP bindings.</span>
<span id="LC48" class="line" lang="diff"> (define-deprecated certificate-type/openpgp)</span></code></pre>
</div>
<div class="footer" style="margin-top: 10px;">
<p style="font-size: small; color: #666;">
—
<br>
Reply to this email directly or <a href="https://gitlab.com/gnutls/gnutls/-/issues/1137">view it on GitLab</a>.
<br>
You're receiving this email because of your account on gitlab.com.
If you'd like to receive fewer emails, you can
<a href="https://gitlab.com/-/sent_notifications/981ed0cf339477d372e75e85ef0d0f37/unsubscribe">unsubscribe</a>
from this thread or
adjust your notification settings.
<script type="application/ld+json">{"@context":"http://schema.org","@type":"EmailMessage","action":{"@type":"ViewAction","name":"View Issue","url":"https://gitlab.com/gnutls/gnutls/-/issues/1137"}}</script>
</p>
</div>
</body>
</html>