From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Wed, 19 Feb 2003 22:58:13 +0000 (+0000)
Subject: Fixed problem with array forward decl
X-Git-Tag: V2.12.0~1694
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=f80a5148bd66fd03cfbcb77f54d7041a13b7654e;p=cc65

Fixed problem with array forward decl


git-svn-id: svn://svn.cc65.org/cc65/trunk@1994 b7a2c559-68d2-44c3-8de9-860c34a00d81
---

diff --git a/src/cc65/compile.c b/src/cc65/compile.c
index ca5005c4d..766cd7965 100644
--- a/src/cc65/compile.c
+++ b/src/cc65/compile.c
@@ -175,7 +175,7 @@ static void Parse (void)
        	       	    if (Size == 0) {
 	     	    	if (!IsTypeVoid (Decl.Type)) {
 	     	    	    if (!IsTypeArray (Decl.Type)) {
-	     	    	      	/* Size is unknown and not an array */
+	     	      	      	/* Size is unknown and not an array */
 	     	    	      	Error ("Variable `%s' has unknown size", Decl.Ident);
 	     	    	    }
 	     	    	} else if (ANSI) {
@@ -204,19 +204,27 @@ static void Parse (void)
 	     	    if (IsTypeVoid (Decl.Type)) {
 	     	    	/* We cannot declare variables of type void */
 			Error ("Illegal type for variable `%s'", Decl.Ident);
-	     	    } else if (Size == 0) {
-	     		/* Size is unknown */
-			Error ("Variable `%s' has unknown size", Decl.Ident);
+                        Entry->Flags &= ~(SC_STORAGE | SC_DEF);
+                    } else if (Size == 0) {
+	     		/* Size is unknown. Is it an array? */
+                        if (!IsTypeArray (Decl.Type)) {
+                            Error ("Variable `%s' has unknown size", Decl.Ident);
+                        }
+                        Entry->Flags &= ~(SC_STORAGE | SC_DEF);
 	     	    }
 
-	     	    /* Switch to the BSS segment */
-	     	    g_usebss ();
+                    /* Allocate storage if it is still needed */
+                    if (Entry->Flags & SC_STORAGE) {
 
-	     	    /* Define a label */
-	     	    g_defgloblabel (Entry->Name);
+                        /* Switch to the BSS segment */
+                        g_usebss ();
 
-	     	    /* Allocate space for uninitialized variable */
-	     	    g_res (SizeOf (Entry->Type));
+                        /* Define a label */
+                        g_defgloblabel (Entry->Name);
+
+                        /* Allocate space for uninitialized variable */
+                        g_res (Size);
+                    }
 	     	}
 
 	    }