Ticket #75: c-backend-ref.diff.txt

File c-backend-ref.diff.txt, 535 bytes (added by Jim Ursetto, 15 years ago)
Line 
1Index: c-backend.scm
2===================================================================
3--- c-backend.scm       (revision 15578)
4+++ c-backend.scm       (working copy)
5@@ -1277,7 +1277,7 @@
6               ((const) (foreign-argument-conversion (cadr type)))
7               ((enum) "C_num_to_int(")
8               ((ref)
9-               (string-append "*(" (foreign-type-declaration (car type) "*")
10+               (string-append "*(" (foreign-type-declaration (cadr type) "*")
11                               ")C_c_pointer_nn("))
12               ((instance-ref)
13                (string-append "*(" (cadr type) "*)C_c_pointer_nn("))