Explorar o código

Merge pull request #185 from GWRon/fix_noLocalArgs

Fix: TArgDecl does not need "Local "-prefix in ToString().
Brucey %!s(int64=9) %!d(string=hai) anos
pai
achega
a6442a5a0e
Modificáronse 1 ficheiros con 9 adicións e 1 borrados
  1. 9 1
      decl.bmx

+ 9 - 1
decl.bmx

@@ -491,9 +491,13 @@ Type TLocalDecl Extends TVarDecl
 	Method OnCopy:TDecl(deep:Int = True)
 	Method OnCopy:TDecl(deep:Int = True)
 		Return New TLocalDecl.Create( ident,ty,CopyInit(),attrs, generated )
 		Return New TLocalDecl.Create( ident,ty,CopyInit(),attrs, generated )
 	End Method
 	End Method
+
+	Method GetDeclPrefix:string()
+		return "Local "
+	End Method
 	
 	
 	Method ToString$()
 	Method ToString$()
-		Return "Local "+Super.ToString()
+		Return GetDeclPrefix() + Super.ToString()
 	End Method
 	End Method
 
 
 End Type
 End Type
@@ -525,6 +529,10 @@ Type TArgDecl Extends TLocalDecl
 		d.init = d.declInit
 		d.init = d.declInit
 		Return d
 		Return d
 	End Method
 	End Method
+
+	Method GetDeclPrefix:string()
+		return ""
+	End Method
 	
 	
 	Method ToString$()
 	Method ToString$()
 		Return Super.ToString()
 		Return Super.ToString()