Give function pointer variables a default value.

decl.bmx

@@ -246,7 +246,6 @@ Type TValDecl Extends TDecl
 	End Method
 	
 	Method OnSemant()
-
 		If declTy
 			ty=declTy.Semant()
 			
@@ -288,6 +287,8 @@ Type TValDecl Extends TDecl
 					' the default munged function value as defined in the interface
 					If TInvokeExpr(declInit) Then
 						init = declInit.Copy()
+					Else If TConstExpr(declInit) Then
+						init = declInit.Copy().Semant()
 					Else
 						Local expr:TExpr
 						

parser.bmx

@@ -1787,6 +1787,8 @@ Type TParser
 				' check for function pointer init
 				If CParse("=") Then
 					init=ParseExpr()
+				Else
+					init=New TConstExpr.Create( ty,"" )
 				End If
 
 			Else If toke<>"const"

tests/framework/language/fp_local_01.bmx

@@ -0,0 +1,30 @@
+SuperStrict
+
+Framework brl.standardio
+
+
+Local obj:TObject = New TObject
+
+obj.someMethod()
+
+
+Type TObject
+
+	Method someMethod()
+	
+		Local s:String
+		Local i:Int
+		
+		Local _func:String(font:TObject, charKey:String, char:Int, config:String)
+		
+		_func = _callback
+		
+		Print _func(Self, "a", 0, "b")
+		
+	End Method
+	
+End Type
+
+Function _callback:String(font:TObject, charKey:String, char:Int, config:String)
+	Return "Hello!"
+End Function