fbc: remove warning on function suffix in '-lang qb'

Author: jayrm

changelog.txt

@@ -12,6 +12,7 @@ Version 1.08.1
 - github #320: oGLfbGFX: scaling set by SCREENCONTROL not used when initializing opengl unix driver
 - github #321: __FB_ARG_EXTRACT__ incorrectly recognizes commas nested in other forms with variadic macros - internally use new hlp-str.bas:hStr2Args() procedure
 - github #322: Fix D2D not rendering the rightmost column of pixels (adeyblue)
+- fbc: remove warning on function suffix in '-lang qb'
 
 
 Version 1.08.0

src/compiler/parser-proc.bas

@@ -1232,6 +1232,12 @@ function cProcHeader _
 		head_proc = hGetId( parent, @id, @dtype, _
 				(tk = FB_TK_SUB) or (tk = FB_TK_PROPERTY) )
 
+		if( fbLangOptIsSet( FB_LANG_OPT_SUFFIX ) ) then
+			if( dtype <> FB_DATATYPE_INVALID ) then
+				attrib or= FB_SYMBATTRIB_SUFFIXED 
+			end if
+		end if
+
 		proc = symbPreAddProc( @id )
 	end select
 

tests/warnings/r/dos/suffix-fblite.txt

@@ -102,3 +102,5 @@ none expected
 	Suffix ignored in 'wstr$'
 	Suffix ignored in 'wstring$'
 	Suffix ignored in 'bin$'
+----Procedure ----
+none expected

tests/warnings/r/dos/suffix-qb.txt

@@ -7,3 +7,5 @@ warning expected
 	Suffix ignored in 'let%'
 ----String Functions ----
 none expected
+----Procedure ----
+none expected

tests/warnings/r/linux-x86/suffix-fblite.txt

@@ -102,3 +102,5 @@ none expected
 	Suffix ignored in 'wstr$'
 	Suffix ignored in 'wstring$'
 	Suffix ignored in 'bin$'
+----Procedure ----
+none expected

tests/warnings/r/linux-x86/suffix-qb.txt

@@ -7,3 +7,5 @@ warning expected
 	Suffix ignored in 'let%'
 ----String Functions ----
 none expected
+----Procedure ----
+none expected

tests/warnings/r/linux-x86_64/suffix-fblite.txt

@@ -102,3 +102,5 @@ none expected
 	Suffix ignored in 'wstr$'
 	Suffix ignored in 'wstring$'
 	Suffix ignored in 'bin$'
+----Procedure ----
+none expected

tests/warnings/r/linux-x86_64/suffix-qb.txt

@@ -7,3 +7,5 @@ warning expected
 	Suffix ignored in 'let%'
 ----String Functions ----
 none expected
+----Procedure ----
+none expected

tests/warnings/r/win32/suffix-fblite.txt

@@ -102,3 +102,5 @@ none expected
 	Suffix ignored in 'wstr$'
 	Suffix ignored in 'wstring$'
 	Suffix ignored in 'bin$'
+----Procedure ----
+none expected

tests/warnings/r/win32/suffix-qb.txt

@@ -7,3 +7,5 @@ warning expected
 	Suffix ignored in 'let%'
 ----String Functions ----
 none expected
+----Procedure ----
+none expected