#pragma pack support (grischka)

bellard committed 21 years ago

Commit 0bca8321 parent 44211dd2 files · +73 −4Browse files

Unified · Split

2 files

tcc.c +65 −4
tcctok.h +8 −0

 #define IFDEF_STACK_SIZE    64
 #define VSTACK_SIZE         256
 #define STRING_MAX_SIZE     1024
+#define PACK_STACK_SIZE     8
 #define TOK_HASH_SIZE       8192 /* must be a power of two */
 #define TOK_ALLOC_INCR      512  /* must be a power of two */
     /* see cached_includes */
     int cached_includes_hash[CACHED_INCLUDES_HASH_SIZE];
+    /* pack stack */
+    int pack_stack[PACK_STACK_SIZE];
+    int *pack_stack_ptr;
 };
 /* The current value can be: */
                        unsigned long value, unsigned long size,
                        int info, int other, int shndx, const char *name);
 static int add_elf_sym(Section *s, unsigned long value, unsigned long size,
-                       int info, int sh_num, const char *name);
+                       int info, int other, int sh_num, const char *name);
 static void put_elf_reloc(Section *symtab, Section *s, unsigned long offset,
                           int type, int symbol);
 static void put_stabs(const char *str, int type, int other, int desc,
         }
 #endif
         info = ELF32_ST_INFO(sym_bind, sym_type);
-        sym->c = add_elf_sym(symtab_section, value, size, info, sh_num, name);
+        sym->c = add_elf_sym(symtab_section, value, size, info, 0, sh_num, name);
     } else {
         esym = &((Elf32_Sym *)symtab_section->data)[sym->c];
         esym->st_value = value;
     s1->cached_includes_hash[h] = s1->nb_cached_includes;
 }
+static void pragma_parse(TCCState *s1)
+{
+    int val;
+    next();
+    if (tok == TOK_pack) {
+        /*
+          This may be:
+          #pragma pack(1) // set
+          #pragma pack() // reset to default
+          #pragma pack(push,1) // push & set
+          #pragma pack(pop) // restore previous
+        */
+        skip('(');
+        if (tok == TOK_ASM_pop) {
+            next();
+            if (s1->pack_stack_ptr <= s1->pack_stack) {
+            stk_error:
+                error("out of pack stack");
+            }
+            s1->pack_stack_ptr--;
+        } else {
+            val = 0;
+            if (tok != ')') {
+                if (tok == TOK_ASM_push) {
+                    next();
+                    if (s1->pack_stack_ptr >= s1->pack_stack + PACK_STACK_SIZE - 1)
+                        goto stk_error;
+                    s1->pack_stack_ptr++;
+                    skip(',');
+                }
+                if (tok != TOK_CINT) {
+                pack_error:
+                    error("invalid pack pragma");
+                }
+                val = tokc.i;
+                if (val < 1 || val > 16 || (val & (val - 1)) != 0)
+                    goto pack_error;
+                next();
+            }
+            *s1->pack_stack_ptr = val;
+            skip(')');
+        }
+    }
+}
 /* is_bof is true if first non space token at beginning of file */
 static void preprocess(int is_bof)
 {
             warning("#warning %s", buf);
         break;
     case TOK_PRAGMA:
-        /* ignored */
+        pragma_parse(s1);
         break;
     default:
         if (tok == TOK_LINEFEED || tok == '!' || tok == TOK_CINT) {
                             align = ad.aligned;
                     } else if (ad.packed) {
                         align = 1;
+                    } else if (*tcc_state->pack_stack_ptr) {
+                        if (align > *tcc_state->pack_stack_ptr)
+                            align = *tcc_state->pack_stack_ptr;
                     }
                     lbit_pos = 0;
                     if (bit_size >= 0) {
                         cur_text_section = text_section;
                     sym->r = VT_SYM | VT_CONST;
                     gen_function(sym);
+#ifdef TCC_TARGET_PE
+                    if (ad.dllexport) {
+                        ((Elf32_Sym *)symtab_section->data)[sym->c].st_other |= 1;
+                    }
+#endif
                 }
                 break;
             } else {
     /* XXX: not ANSI compliant: bound checking says error */
     vtop = vstack - 1;
+    s1->pack_stack[0] = 0;
+    s1->pack_stack_ptr = s1->pack_stack;
 }
 /* compile the C file opened in 'file'. Return non zero if errors. */
 int tcc_add_symbol(TCCState *s, const char *name, unsigned long val)
 {
     add_elf_sym(symtab_section, val, 0,
-                ELF32_ST_INFO(STB_GLOBAL, STT_NOTYPE),
+                ELF32_ST_INFO(STB_GLOBAL, STT_NOTYPE), 0,
                 SHN_ABS, name);
     return 0;
 }

tcctok.h+8−0

@@ -109,6 +109,14 @@ · 108 unmodified lines
109	DEF(TOK_REGPARM1, "regparm")	109	DEF(TOK_REGPARM1, "regparm")
110	DEF(TOK_REGPARM2, "__regparm__")	110	DEF(TOK_REGPARM2, "__regparm__")
111		111
		112	/* pragma */
		113	DEF(TOK_pack, "pack")
		114	#if !defined(TCC_TARGET_I386)
		115	/* already defined for assembler */
		116	DEF(TOK_ASM_push, "push")
		117	DEF(TOK_ASM_pop, "pop")
		118	#endif
		119
112	/* builtin functions or variables */	120	/* builtin functions or variables */
113	DEF(TOK_memcpy, "memcpy")	121	DEF(TOK_memcpy, "memcpy")
114	DEF(TOK_memset, "memset")	122	DEF(TOK_memset, "memset")

#pragma pack support (grischka)

Keyboard shortcuts

General

Issues and pull requests

Issues, pull requests and Inbox

Repository code