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

View File

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

View File

@ -1 +1 @@
1765
1766