tccpe: improve dllimport

2009-12-19 22:08:52 +01:00
parent 1308e8ebcf
commit 94bf4d2c22
6 changed files with 51 additions and 44 deletions
--- a/tccgen.c
+++ b/tccgen.c
@ -5143,7 +5143,7 @@ static void decl(int l)
                    if (!(type.t & VT_ARRAY))
                        r |= lvalue_type(type.t);
                    has_init = (tok == '=');
-                    if ((btype.t & VT_EXTERN) || 
+                    if ((btype.t & VT_EXTERN) ||
                        ((type.t & VT_ARRAY) && (type.t & VT_STATIC) &&
                         !has_init && l == VT_CONST && type.ref->c < 0)) {
                        /* external variable */
@ -5163,7 +5163,11 @@ static void decl(int l)
                            r |= l;
                        if (has_init)
                            next();
-                        decl_initializer_alloc(&type, &ad, r, 
+#ifdef TCC_TARGET_PE
+                        if (ad.func_export)
+                            type.t |= VT_EXPORT;
+#endif
+                        decl_initializer_alloc(&type, &ad, r,
                                               has_init, v, l);
                    }
                }