cast-conv-ptr: reassign level of new 'w funcptr'

- the new messages for 'w funcptr' checks are bumped down one level so that they are not generated by default
- it looks a little weird that the warning level is output as (-1), but this is least amount of change, so will go with it for now.

Author: jayrm

src/compiler/error.bas

@@ -82,10 +82,10 @@ declare function hMakeParamDesc _
 		( 1, @"" ), _  '' FB_WARNINGMSG_AMBIGIOUSLENSIZEOF
 		( 0, @"Suspicious logic operation, mixed boolean and non-boolean operands" ), _
 		( 0, @"Redefinition of intrinsic" ), _
-		( 0, @"CONST qualifier discarded" ), _
-		( 0, @"Return type mismatch" ), _
-		( 0, @"Calling convention mismatch" ), _
-		( 0, @"Argument count mismatch" ) _
+		(-1, @"CONST qualifier discarded" ), _
+		(-1, @"Return type mismatch" ), _
+		(-1, @"Calling convention mismatch" ), _
+		(-1, @"Argument count mismatch" ) _
 	}
 
 	dim shared errorMsgs( 1 to FB_ERRMSGS-1 ) as const zstring ptr => _

src/compiler/error.bi

@@ -380,6 +380,10 @@ enum FB_WARNINGMSG
 	FB_WARNINGMSGS
 end enum
 
+const FB_WARNINGMSGS_LOWEST_LEVEL = -1
+const FB_WARNINGMSGS_DEFAULT_LEVEL = 0
+const FB_WARNINGMSGS_HIGHEST_LEVEL = 2
+
 enum FB_ERRMSGOPT
 	FB_ERRMSGOPT_NONE 		= &h00000000
 	FB_ERRMSGOPT_ADDCOMMA 	= &h00000001

src/compiler/fb.bas

@@ -466,7 +466,7 @@ sub fbGlobalInit()
 	env.clopt.resumeerr     = FALSE
 	env.clopt.profile       = FALSE
 
-	env.clopt.warninglevel  = 0
+	env.clopt.warninglevel  = FB_WARNINGMSGS_DEFAULT_LEVEL
 	env.clopt.showerror     = TRUE
 	env.clopt.maxerrors     = FB_DEFAULT_MAXERRORS
 	env.clopt.pdcheckopt    = FB_PDCHECK_NONE

src/compiler/fb.bi

@@ -250,7 +250,7 @@ type FBCMMLINEOPT
 	profile         as integer              '' build profiling code (default = false)
 
 	'' error/warning reporting behaviour
-	warninglevel    as integer              '' (default = 0)
+	warninglevel    as integer              '' (default = FB_WARNINGMSGS_DEFAULT_LEVEL)
 	showerror       as integer              '' show line giving error (default = true)
 	maxerrors       as integer              '' max number errors the parser will show
 	pdcheckopt      as FB_PDCHECK           '' pedantic checks

src/compiler/fbc.bas

@@ -1816,11 +1816,14 @@ private sub handleOpt(byval optid as integer, byref arg as string)
 		fbc.showversion = TRUE
 
 	case OPT_W
-		dim as integer value = -2
+		dim as integer value = FB_WARNINGMSGS_LOWEST_LEVEL - 1
 
 		select case (arg)
 		case "all"
-			value = -1
+			value = FB_WARNINGMSGS_LOWEST_LEVEL
+
+		case "none"
+			value = FB_WARNINGMSGS_HIGHEST_LEVEL + 1
 
 		case "param"
 			fbSetOption( FB_COMPOPT_PEDANTICCHK, _
@@ -1841,20 +1844,24 @@ private sub handleOpt(byval optid as integer, byref arg as string)
 		case "constness"
 			fbSetOption( FB_COMPOPT_PEDANTICCHK, _
 						 fbGetOption( FB_COMPOPT_PEDANTICCHK ) or FB_PDCHECK_CONSTNESS )
+			value = FB_WARNINGMSGS_LOWEST_LEVEL
 
 		case "funcptr"
 			fbSetOption( FB_COMPOPT_PEDANTICCHK, _
 						 fbGetOption( FB_COMPOPT_PEDANTICCHK ) or FB_PDCHECK_CASTFUNCPTR )
+			value = FB_WARNINGMSGS_LOWEST_LEVEL
 
 		case "pedantic"
 			fbSetOption( FB_COMPOPT_PEDANTICCHK, FB_PDCHECK_DEFAULT )
-			value = -1
+			if( value > FB_WARNINGMSGS_DEFAULT_LEVEL ) then
+				value = FB_WARNINGMSGS_DEFAULT_LEVEL
+			end if
 
 		case else
 			value = clng( arg )
 		end select
 
-		if( value >= -1 ) then
+		if( value >= FB_WARNINGMSGS_LOWEST_LEVEL ) then
 			fbSetOption( FB_COMPOPT_WARNINGLEVEL, value )
 		end if