Skip to content

Commit

Permalink
fix build on gcc 10 (#1049)
Browse files Browse the repository at this point in the history
Fixes compilation under:

gcc --version

    gcc (Ubuntu 10.5.0-1ubuntu1~20.04) 10.5.0

uname -ovm

    #98~20.04.1-Ubuntu SMP Mon Oct 9 16:43:45 UTC 2023 x86_64 GNU/Linux
  • Loading branch information
jeffhhk authored Nov 18, 2023
1 parent f94906d commit 26b3077
Showing 1 changed file with 2 additions and 1 deletion.
3 changes: 2 additions & 1 deletion src/std/net/ssl/libssl.ss
Original file line number Diff line number Diff line change
Expand Up @@ -79,7 +79,7 @@ static ___SCMOBJ ffi_ssl_error(SSL *ssl, int r)
return ___CHR(119);
case SSL_ERROR_ZERO_RETURN:
return ___FIX(0);
default:
default: {
___processor_state ___ps = ___GET_PSTATE();
___SCMOBJ result = ___make_pair(___ps, ___FIX(last), ___NUL);
___release_scmobj(result);
Expand All @@ -88,6 +88,7 @@ static ___SCMOBJ ffi_ssl_error(SSL *ssl, int r)
result = ___make_pair(___ps, ___FIX(r), result);
___release_scmobj(result);
return result;
}
}
}

Expand Down

0 comments on commit 26b3077

Please sign in to comment.