Fixes no args single line extern cast parsing.

parser.bmx

@@ -3475,14 +3475,18 @@ End Rem
 			
 		While True
 
-			dets = New TCastDets
-
 			SkipEolsToker(toker)
 
 			If toker._tokeType = TOKE_EOF Exit
 
+			dets = New TCastDets
+
 			Local rt$=toker._toke
 
+			If CParseToker(toker, "const") Then
+				rt :+ " " + toker._toke
+			End If
+
 			If CParseToker(toker, "unsigned") Then
 				rt :+ " " + toker._toke
 			End If
@@ -3545,6 +3549,10 @@ End Rem
 				If CParseToker(toker, "*") Then
 					at:+ "*"
 
+					If CParseToker(toker, "const") Then
+						at :+ " const"
+					End If
+
 					If CParseToker(toker, "*") Then
 						at:+ "*"
 					End If