Ticket #75: c-backend-ref.diff.txt
File c-backend-ref.diff.txt, 535 bytes (added by , 15 years ago) |
---|
Line | |
---|---|
1 | Index: 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(")) |