Ticket #954: openssl-get-uchar.diff.txt

File openssl-get-uchar.diff.txt, 408 bytes (added by Jim Ursetto, 12 years ago)
Line 
1Index: openssl.scm
2===================================================================
3--- openssl.scm (revision 28028)
4+++ openssl.scm (working copy)
5@@ -250,7 +250,7 @@
6   (let ((ret
7         ((foreign-lambda*
8           scheme-object ((c-pointer ssl))
9-          "char ch;\n"
10+          "unsigned char ch;\n"
11           "int ret;\n"
12           "switch (ret = SSL_read((SSL *)ssl, &ch, 1)) {\n"
13           "case 0: return(C_SCHEME_END_OF_FILE);\n"