Retropikzel
/
foreign-c
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing Mosh

This commit is contained in:
retropikzel 2025-07-26 09:26:39 +03:00
parent b13ecc7755
commit 631efe1f65
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
foreign/c/pointer.scm
View File

@ -76,6 +76,9 @@
(define c-utf8->string (define c-utf8->string
(lambda (c-bytevector) (lambda (c-bytevector)
(display "HERE 10: ")
(display c-bytevector)
(newline)
(when (c-null? c-bytevector) (when (c-null? c-bytevector)
(error "Can not turn null pointer into string" c-bytevector)) (error "Can not turn null pointer into string" c-bytevector))
(let ((size (c-strlen c-bytevector))) (let ((size (c-strlen c-bytevector)))
@ -103,6 +106,13 @@
(gauche (define c-null? pointer-null?)) (gauche (define c-null? pointer-null?))
(else (define c-null? (else (define c-null?
(lambda (pointer) (lambda (pointer)
(display "HERE123: ")
(write pointer)
(newline)
(display (if (c-bytevector? pointer)
(= (c-memset-pointer->address pointer 0 0) 0)
#f))
(newline)
(if (c-bytevector? pointer) (if (c-bytevector? pointer)
(= (c-memset-pointer->address pointer 0 0) 0) (= (c-memset-pointer->address pointer 0 0) 0)
#f))))) #f)))))