From f740485a5ab2ecef741bf1161b9feeea9c18cac0 Mon Sep 17 00:00:00 2001
From: Detlef Riekenberg <tcc.dev@web.de>
Date: Mon, 5 Apr 2010 12:28:27 +0200
Subject: tccpp: Allow local labels to start with a dot

--
By by ... Detlef
---
 tccasm.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'tccasm.c')

diff --git a/tccasm.c b/tccasm.c
index 5702556..a1bd28c 100644
--- a/tccasm.c
+++ b/tccasm.c
@@ -691,8 +691,11 @@ static int tcc_assemble_internal(TCCState *s1, int do_preprocess)
             opcode = tok;
             next();
             if (tok == ':') {
+                char * label = get_tok_str(opcode, NULL);
+
                 /* new label */
-                asm_new_label(s1, opcode, 0);
+                asm_new_label(s1, opcode,
+                    (label && label[0] == '.' && label[1] == 'L') ? 1 : 0);
                 next();
                 goto redo;
             } else if (tok == '=') {
-- 
cgit v1.3.1