Accept null in StringToExpr but not in StringConstant

[Cherry-picked e0fbfde]

Author: mbovel

compiler/src/scala/quoted/runtime/impl/QuotesImpl.scala

@@ -2419,7 +2419,12 @@ class QuotesImpl private (using val ctx: Context) extends Quotes, QuoteUnpickler
     end StringConstantTypeTest
 
     object StringConstant extends StringConstantModule:
-      def apply(x: String): StringConstant = dotc.core.Constants.Constant(x: Any)
+      def apply(x: String): StringConstant =
+        require(x != null, "StringConstant cannot be null")
+        // A `null` constant must be represented as a `NullConstant`, c.f. a
+        // constant with `tag == NullTag`, which is not a `StringConstant`.
+        // See issue 23008.
+        dotc.core.Constants.Constant(x)
       def unapply(constant: StringConstant): Some[String] = Some(constant.stringValue)
     end StringConstant
 

library/src/scala/quoted/ToExpr.scala

@@ -77,7 +77,13 @@ object ToExpr {
   given StringToExpr[T <: String]: ToExpr[T] with {
     def apply(x: T)(using Quotes) =
       import quotes.reflect.*
-      Literal(StringConstant(x)).asExpr.asInstanceOf[Expr[T]]
+      val literal =
+        if (x: Any) == null then
+          // Can happen if called from code without `-Yexplicit-nulls`.
+          Literal(NullConstant())
+        else
+          Literal(StringConstant(x))
+      literal.asExpr.asInstanceOf[Expr[T]]
   }
 
   /** Default implementation of `ToExpr[Class[T]]` */