fix incorrect handling of extern "C" in xform
svn: r6713
This commit is contained in:
parent
1bae091b4a
commit
38f7ef41ed
|
@ -1651,9 +1651,10 @@
|
||||||
(let ([name (tok-n (car e))]
|
(let ([name (tok-n (car e))]
|
||||||
[type (let loop ([t (reverse type)])
|
[type (let loop ([t (reverse type)])
|
||||||
(if (pair? t)
|
(if (pair? t)
|
||||||
(if (memq (tok-n (car t)) '(extern static virtual __stdcall __cdecl
|
(if (or (memq (tok-n (car t)) '(extern static virtual __stdcall __cdecl
|
||||||
inline _inline __inline __inline__
|
inline _inline __inline __inline__
|
||||||
__xform_nongcing__))
|
__xform_nongcing__))
|
||||||
|
(equal? "C" (tok-n (car t))))
|
||||||
(loop (cdr t))
|
(loop (cdr t))
|
||||||
(cons (car t) (loop (cdr t))))
|
(cons (car t) (loop (cdr t))))
|
||||||
t))]
|
t))]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user