conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed bug in ypsilon-compat where char** pointers were not 

initialized properly in 64-bit.  Thanks to Tristan Ravitch.
This commit is contained in:
Abdulaziz Ghuloum 2009-04-13 16:43:20 +03:00
parent 810fe75fa1
commit 2924c91788
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ypsilon-compat.ikarus.ss
View File

@ -120,8 +120,8 @@
(cond (cond
[(= i n) p] [(= i n) p]
[else [else
(pointer-set-c-int! p (* i pointer-size) (pointer-set-c-pointer! p (* i pointer-size)
(pointer->integer (check-char* who (vector-ref x i)))) (check-char* who (vector-ref x i)))
(f (+ i 1))]))))] (f (+ i 1))]))))]
[else (die who "not a char**" x)])) [else (die who "not a char**" x)]))

2
scheme/last-revision
View File

@ -1 +1 @@
1765 1766