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

File openssl-get-uchar.diff.txt, 408 bytes (added by Jim Ursetto, 13 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"