Remove always-on DotlessFloat32Literal language feature flag

src/Compiler/FSComp.txt

@@ -1558,7 +1558,6 @@ optsAlwaysInline,"Always inline 'inline' functions"
 nativeResourceFormatError,"Stream does not begin with a null resource and is not in '.RES' format."
 nativeResourceHeaderMalformed,"Resource header beginning at offset %s is malformed."
 formatDashItem," - %s"
-featureDotlessFloat32Literal,"dotless float32 literal"
 featurePackageManagement,"package management"
 featureFromEndSlicing,"from-end slicing"
 featureNullnessChecking,"nullness checking"

src/Compiler/Facilities/LanguageFeatures.fs

@@ -16,7 +16,6 @@ module internal FSharp.Compiler.Features
 
 [<RequireQualifiedAccess>]
 type LanguageFeature =
-    | DotlessFloat32Literal
     | PackageManagement
     | FromEndSlicing
     | ResumableStateMachines
@@ -129,7 +128,6 @@ type LanguageVersion(versionText, ?disabledFeaturesArray: LanguageFeature array)
         dict
             [
                 // F# 5.0
-                LanguageFeature.DotlessFloat32Literal, languageVersion50
                 LanguageFeature.DefaultInterfaceMemberConsumption, languageVersion50
                 LanguageFeature.PackageManagement, languageVersion50
                 LanguageFeature.WitnessPassing, languageVersion50
@@ -312,7 +310,6 @@ type LanguageVersion(versionText, ?disabledFeaturesArray: LanguageFeature array)
     /// Get a string name for the given feature.
     static member GetFeatureString feature =
         match feature with
-        | LanguageFeature.DotlessFloat32Literal -> FSComp.SR.featureDotlessFloat32Literal ()
         | LanguageFeature.PackageManagement -> FSComp.SR.featurePackageManagement ()
         | LanguageFeature.FromEndSlicing -> FSComp.SR.featureFromEndSlicing ()
         | LanguageFeature.NullnessChecking -> FSComp.SR.featureNullnessChecking ()

src/Compiler/Facilities/LanguageFeatures.fsi

@@ -6,7 +6,6 @@ module internal FSharp.Compiler.Features
 /// LanguageFeature enumeration
 [<RequireQualifiedAccess>]
 type LanguageFeature =
-    | DotlessFloat32Literal
     | PackageManagement
     | FromEndSlicing
     | ResumableStateMachines

src/Compiler/lex.fsl

@@ -290,9 +290,7 @@ let bignum =  integer ('I'  | 'N' | 'Z' | 'Q' | 'R' | 'G')
 
 let ieee64 = float
 
-let ieee32 = float ('f' | 'F')
-
-let ieee32_dotless_no_exponent = integer ('f' | 'F')
+let ieee32 = (float | integer) ('f' | 'F')
 
 let decimal = (float | integer) ('m' | 'M')
 
@@ -476,13 +474,6 @@ rule token (args: LexArgs) (skip: bool) = parse
  | ieee32
      { IEEE32 (evalFloat args lexbuf) }
 
- | ieee32_dotless_no_exponent
-     { if lexbuf.SupportsFeature LanguageFeature.DotlessFloat32Literal then
-          IEEE32 (evalFloat args lexbuf)
-       else
-          fail args lexbuf (FSComp.SR.lexInvalidFloat()) (IEEE32 0.0f)
-     }
-
  | ieee64
      { IEEE64 (try float(lexeme lexbuf) with _ -> fail args lexbuf (FSComp.SR.lexInvalidFloat()) 0.0) }