<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">
<html lang="en" style='--code-editor-font: var(--default-mono-font, "Menlo"), DejaVu Sans Mono, Liberation Mono, Consolas, Ubuntu Mono, Courier New, andale mono, lucida console, monospace;'>
<head>
<meta content="text/html; charset=US-ASCII" http-equiv="Content-Type">
<title>
GitLab
</title>
<style data-premailer="ignore" type="text/css">
a { color: #1068bf; }
</style>
<style>img {
max-width: 100%; height: auto;
}
body {
font-size: 0.875rem;
}
body {
-webkit-text-shadow: rgba(255,255,255,0.01) 0 0 1px;
}
body {
font-family: var(--default-regular-font, -apple-system),BlinkMacSystemFont,"Segoe UI",Roboto,"Noto Sans",Ubuntu,Cantarell,"Helvetica Neue",sans-serif,"Apple Color Emoji","Segoe UI Emoji","Segoe UI Symbol","Noto Color Emoji"; font-size: inherit;
}
</style>
</head>
<body style='font-size: inherit; -webkit-text-shadow: rgba(255,255,255,0.01) 0 0 1px; font-family: var(--default-regular-font, -apple-system),BlinkMacSystemFont,"Segoe UI",Roboto,"Noto Sans",Ubuntu,Cantarell,"Helvetica Neue",sans-serif,"Apple Color Emoji","Segoe UI Emoji","Segoe UI Symbol","Noto Color Emoji";'>
<div class="content">
<p class="details" style="font-style: italic; color: #737278;">
<a href="https://gitlab.com/unspecd">Evgeny Ermakov</a> created an issue: <a href="https://gitlab.com/gnutls/guile/-/issues/11">#11</a>
</p>
<div class="md" style="color: #333238; word-wrap: break-word;">
<p dir="auto" style="color: #333238; margin: 0 0 16px;" align="initial">Hello! I'm trying to cross build <code style='font-size: 0.875rem; color: #1f1e24; word-wrap: break-word; background-color: #ececef; border-radius: 4px; margin-top: 0; font-weight: inherit; font-family: var(--default-mono-font, "Menlo"),"DejaVu Sans Mono","Liberation Mono","Consolas","Ubuntu Mono","Courier New","andale mono","lucida console",monospace; white-space: pre-wrap; overflow-wrap: break-word; word-break: keep-all; padding: 2px 4px;'>gnutls</code> with <code style='font-size: 0.875rem; color: #1f1e24; word-wrap: break-word; background-color: #ececef; border-radius: 4px; font-weight: inherit; font-family: var(--default-mono-font, "Menlo"),"DejaVu Sans Mono","Liberation Mono","Consolas","Ubuntu Mono","Courier New","andale mono","lucida console",monospace; white-space: pre-wrap; overflow-wrap: break-word; word-break: keep-all; padding: 2px 4px;'>guile-3.0.4</code>, but I get an error:</p>
<div class="gl-relative markdown-code-block js-markdown-code">
<pre lang="plaintext" class="code highlight js-syntax-highlight language-plaintext" data-canonical-lang="" v-pre="true" style='display: block; font-size: 0.875rem; color: #333238; line-height: 1.6em; overflow-x: auto; border-radius: 4px; position: relative; font-family: var(--default-mono-font, "Menlo"),"DejaVu Sans Mono","Liberation Mono","Consolas","Ubuntu Mono","Courier New","andale mono","lucida console",monospace; word-break: break-all; word-wrap: break-word; background-color: #fbfafd; margin: 0 0 16px; padding: 12px; border: 1px solid #dcdcde;'><code style='font-size: 0.875rem; color: inherit; word-wrap: normal; word-break: keep-all; background-color: inherit; border-radius: 4px; white-space: pre; margin-top: 0; font-family: var(--default-mono-font, "Menlo"),"DejaVu Sans Mono","Liberation Mono","Consolas","Ubuntu Mono","Courier New","andale mono","lucida console",monospace; overflow-wrap: normal; padding: unset;'><span id="LC1" class="line" lang="plaintext" style="margin-top: 0;"> 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>
<copy-code></copy-code>
</div>
<p dir="auto" style="color: #333238; margin: 0 0 16px;" align="initial">Here's the patch I propose:</p>
<div class="gl-relative markdown-code-block js-markdown-code" style="margin-bottom: 0;">
<pre lang="diff" class="code highlight js-syntax-highlight language-diff" v-pre="true" style='display: block; font-size: 0.875rem; color: #333238; line-height: 1.6em; overflow-x: auto; border-radius: 4px; position: relative; font-family: var(--default-mono-font, "Menlo"),"DejaVu Sans Mono","Liberation Mono","Consolas","Ubuntu Mono","Courier New","andale mono","lucida console",monospace; word-break: break-all; word-wrap: break-word; background-color: #fbfafd; margin: 0 0 16px; padding: 12px; border: 1px solid #dcdcde;'><code style='font-size: 0.875rem; color: inherit; word-wrap: normal; word-break: keep-all; background-color: inherit; border-radius: 4px; white-space: pre; margin-top: 0; font-family: var(--default-mono-font, "Menlo"),"DejaVu Sans Mono","Liberation Mono","Consolas","Ubuntu Mono","Courier New","andale mono","lucida console",monospace; overflow-wrap: normal; padding: unset;'><span id="LC1" class="line" lang="diff" style="margin-top: 0;"><span class="gd" style="margin-top: 0;">--- guile/modules/gnutls.in</span></span>
<span id="LC2" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+++ guile/modules/gnutls.in</span></span>
<span id="LC3" class="line" lang="diff"><span class="p" style="margin-top: 0;">@@ -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" style="margin-top: 0;">-(define protocol/ssl-3 protocol/ssl3)</span></span>
<span id="LC8" class="line" lang="diff"><span class="gd" style="margin-top: 0;">-(define protocol/tls-1.0 protocol/tls1-0)</span></span>
<span id="LC9" class="line" lang="diff"><span class="gd" style="margin-top: 0;">-(define protocol/tls-1.1 protocol/tls1-1)</span></span>
<span id="LC10" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+(define protocol/ssl-3 #f)</span></span>
<span id="LC11" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+(define protocol/tls-1.0 #f)</span></span>
<span id="LC12" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+(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" style="margin-top: 0;">-(define credentials/anonymous credentials/anon)</span></span>
<span id="LC16" class="line" lang="diff"><span class="gd" style="margin-top: 0;">-(define cipher/rijndael-256-cbc cipher/aes-256-cbc)</span></span>
<span id="LC17" class="line" lang="diff"><span class="gd" style="margin-top: 0;">-(define cipher/rijndael-128-cbc cipher/aes-128-cbc)</span></span>
<span id="LC18" class="line" lang="diff"><span class="gd" style="margin-top: 0;">-(define cipher/rijndael-cbc cipher/aes-128-cbc)</span></span>
<span id="LC19" class="line" lang="diff"><span class="gd" style="margin-top: 0;">-(define cipher/arcfour-128 cipher/arcfour)</span></span>
<span id="LC20" class="line" lang="diff"><span class="gd" style="margin-top: 0;">-(define certificate-verify/allow-any-x509-v1-ca-certificate</span></span>
<span id="LC21" class="line" lang="diff"><span class="gd" style="margin-top: 0;">- certificate-verify/allow-any-x509-v1-ca-crt)</span></span>
<span id="LC22" class="line" lang="diff"><span class="gd" style="margin-top: 0;">-(define certificate-verify/allow-x509-v1-ca-certificate</span></span>
<span id="LC23" class="line" lang="diff"><span class="gd" style="margin-top: 0;">- certificate-verify/allow-x509-v1-ca-crt)</span></span>
<span id="LC24" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+(define credentials/anonymous #f)</span></span>
<span id="LC25" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+(define cipher/rijndael-256-cbc #f)</span></span>
<span id="LC26" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+(define cipher/rijndael-128-cbc #f)</span></span>
<span id="LC27" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+(define cipher/rijndael-cbc #f)</span></span>
<span id="LC28" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+(define cipher/arcfour-128 #f)</span></span>
<span id="LC29" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+(define certificate-verify/allow-any-x509-v1-ca-certificate #f)</span></span>
<span id="LC30" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+(define certificate-verify/allow-x509-v1-ca-certificate #f)</span></span>
<span id="LC31" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+</span></span>
<span id="LC32" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+(eval-when (load eval)</span></span>
<span id="LC33" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+ (unless (getenv "GNUTLS_GUILE_CROSS_COMPILING")</span></span>
<span id="LC34" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+ (set! protocol/ssl-3 protocol/ssl3)</span></span>
<span id="LC35" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+ (set! protocol/tls-1.0 protocol/tls1-0)</span></span>
<span id="LC36" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+ (set! protocol/tls-1.1 protocol/tls1-1)</span></span>
<span id="LC37" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+ (set! credentials/anonymous credentials/anon)</span></span>
<span id="LC38" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+ (set! cipher/rijndael-256-cbc cipher/aes-256-cbc)</span></span>
<span id="LC39" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+ (set! cipher/rijndael-128-cbc cipher/aes-128-cbc)</span></span>
<span id="LC40" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+ (set! cipher/rijndael-cbc cipher/aes-128-cbc)</span></span>
<span id="LC41" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+ (set! cipher/arcfour-128 cipher/arcfour)</span></span>
<span id="LC42" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+ (set! certificate-verify/allow-any-x509-v1-ca-certificate</span></span>
<span id="LC43" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+ certificate-verify/allow-any-x509-v1-ca-crt)</span></span>
<span id="LC44" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+ (set! certificate-verify/allow-x509-v1-ca-certificate</span></span>
<span id="LC45" class="line" lang="diff"><span class="gi" style="margin-top: 0;">+ 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>
<copy-code></copy-code>
</div>
</div>
</div>
<div class="footer" style="margin-top: 10px;">
<p style="font-size: small; color: #737278;">
—
<br>
Reply to this email directly or <a href="https://gitlab.com/gnutls/guile/-/issues/11">view it on GitLab</a>.
<br>
You're receiving this email because of your account on <a target="_blank" rel="noopener noreferrer" href="https://gitlab.com">gitlab.com</a>. <a href="https://gitlab.com/-/sent_notifications/97054b640cf3b42b27654c64cd2ba4e4/unsubscribe" target="_blank" rel="noopener noreferrer">Unsubscribe</a> from this thread · <a href="https://gitlab.com/-/profile/notifications" target="_blank" rel="noopener noreferrer" class="mng-notif-link">Manage all notifications</a> · <a href="https://gitlab.com/help" target="_blank" rel="noopener noreferrer" class="help-link">Help</a>
<script type="application/ld+json">{"@context":"http://schema.org","@type":"EmailMessage","action":{"@type":"ViewAction","name":"View Issue","url":"https://gitlab.com/gnutls/guile/-/issues/11"}}</script>
</p>
</div>
</body>
</html>