Longlit deprecation is -Xlint:longlit

Author: som-snytt

compiler/src/dotty/tools/dotc/config/ScalaSettings.scala

@@ -10,7 +10,7 @@ import dotty.tools.dotc.core.Contexts._
 import dotty.tools.dotc.rewrites.Rewrites
 import dotty.tools.io.{AbstractFile, Directory, JDK9Reflectors, PlainDirectory}
 
-import scala.util.chaining._
+import scala.util.chaining.given
 
 class ScalaSettings extends SettingGroup with AllScalaSettings
 
@@ -156,6 +156,8 @@ private sealed trait WarningSettings:
   self: SettingGroup =>
   val Whelp: Setting[Boolean] = BooleanSetting("-W", "Print a synopsis of warning options.")
   val XfatalWarnings: Setting[Boolean] = BooleanSetting("-Werror", "Fail the compilation if there are any warnings.", aliases = List("-Xfatal-warnings"))
+  val Xlint: Setting[List[String]] = EnumSetting("-Wlint", "warning", "Enable recommended warnings.", LintWarning.values, default = Nil, aliases = List("-Xlint"))
+  def isLintEnabled(w: LintWarning)(using Context): Boolean = Xlint.value.contains(w.toString)
 
   val Wunused: Setting[List[String]] = MultiChoiceSetting(
     name = "-Wunused",
@@ -339,3 +341,7 @@ private sealed trait YSettings:
   val YforceInlineWhileTyping: Setting[Boolean] = BooleanSetting("-Yforce-inline-while-typing", "Make non-transparent inline methods inline when typing. Emulates the old inlining behavior of 3.0.0-M3.")
 end YSettings
 
+/** Warnings that may be queried with `ctx.settings.isLintEnabled`. */
+enum LintWarning:
+  case deprecation, longLit
+end LintWarning

compiler/src/dotty/tools/dotc/config/Settings.scala

@@ -9,7 +9,7 @@ import dotty.tools.io.{AbstractFile, Directory, JarArchive, PlainDirectory}
 
 import annotation.tailrec
 import collection.mutable.ArrayBuffer
-import reflect.ClassTag
+import reflect.{ClassTag, Enum}
 import scala.util.{Success, Failure}
 
 object Settings:
@@ -61,7 +61,8 @@ object Settings:
     prefix: String = "",
     aliases: List[String] = Nil,
     depends: List[(Setting[?], Any)] = Nil,
-    propertyClass: Option[Class[?]] = None)(private[Settings] val idx: Int) {
+    propertyClass: Option[Class[?]] = None,
+  )(private[Settings] val idx: Int) {
 
     private var changed: Boolean = false
 
@@ -265,6 +266,9 @@ object Settings:
     def MultiChoiceSetting(name: String, helpArg: String, descr: String, choices: List[String], default: List[String], aliases: List[String] = Nil): Setting[List[String]] =
       publish(Setting(name, descr, default, helpArg, Some(choices), aliases = aliases))
 
+    def EnumSetting[E <: Enum](name: String, helpArg: String, descr: String, choices: Array[E], default: List[String], aliases: List[String] = Nil): Setting[List[String]] =
+      publish(Setting(name, descr, default, helpArg, Some(choices.toList.map(_.toString)), aliases = aliases))
+
     def IntSetting(name: String, descr: String, default: Int, aliases: List[String] = Nil): Setting[Int] =
       publish(Setting(name, descr, default, aliases = aliases))
 

compiler/src/dotty/tools/dotc/parsing/Scanners.scala

@@ -11,6 +11,7 @@ import util.Chars._
 import util.{SourcePosition, CharBuffer}
 import util.Spans.Span
 import config.Config
+import config.LintWarning
 import Tokens._
 import scala.annotation.{switch, tailrec}
 import scala.collection.mutable
@@ -1488,7 +1489,7 @@ object Scanners {
         getFraction()
       // 1l is an acknowledged bad practice
       def lintel(): Unit =
-        if ch == 'l' then
+        if ch == 'l' && ctx.settings.isLintEnabled(LintWarning.longLit) then
           val msg = "Lowercase el for long is not recommended because it is easy to confuse with numeral 1; use uppercase L instead"
           report.deprecationWarning(msg, sourcePos(offset + litBuf.length))
       // after int: 5e7f, 42L, 42.toDouble but not 42b.

tests/neg/longlit.scala

@@ -0,0 +1,11 @@
+// scalac: -Werror -Xlint:longLit,deprecation -deprecation
+
+trait DejectedLiterals:
+
+  def bad = 1l        // error
+
+  def worse = 123l    // error
+
+  def worstest = 32l  // error
+
+// Lowercase el for long is not recommended because it is easy to confuse with numeral 1; use uppercase L instead