@@ -275,6 +275,18 @@ class Synthesizer(typer: Typer)(using @constructorOnly c: Context):
275
275
monoMap(mirroredType.resultType)
276
276
277
277
private def productMirror (mirroredType : Type , formal : Type , span : Span )(using Context ): Tree =
278
+
279
+ /** for a case class, if it is Scala2x then
280
+ * check if its constructor can be accessed
281
+ * from the calling scope.
282
+ */
283
+ def canAccessCtor (cls : Symbol ): Boolean =
284
+ ! cls.is(Scala2x ) || {
285
+ val ctor = cls.primaryConstructor
286
+ ! ctor.isOneOf(Private | Protected ) // we will never generate the mirror inside a Scala 2 class
287
+ && (! ctor.privateWithin.exists || ctx.owner.isContainedIn(ctor.privateWithin)) // check scope is compatible
288
+ }
289
+
278
290
mirroredType match
279
291
case AndType (tp1, tp2) =>
280
292
productMirror(tp1, formal, span).orElse(productMirror(tp2, formal, span))
@@ -291,25 +303,27 @@ class Synthesizer(typer: Typer)(using @constructorOnly c: Context):
291
303
modulePath.cast(mirrorType)
292
304
else if mirroredType.classSymbol.isGenericProduct then
293
305
val cls = mirroredType.classSymbol
294
- val accessors = cls.caseAccessors.filterNot(_.isAllOf(PrivateLocal ))
295
- val elemLabels = accessors.map(acc => ConstantType (Constant (acc.name.toString)))
296
- val nestedPairs = TypeOps .nestedPairs(accessors.map(mirroredType.resultType.memberInfo(_).widenExpr))
297
- val (monoType, elemsType) = mirroredType match
298
- case mirroredType : HKTypeLambda =>
299
- (mkMirroredMonoType(mirroredType), mirroredType.derivedLambdaType(resType = nestedPairs))
300
- case _ =>
301
- (mirroredType, nestedPairs)
302
- val elemsLabels = TypeOps .nestedPairs(elemLabels)
303
- checkRefinement(formal, tpnme.MirroredElemTypes , elemsType, span)
304
- checkRefinement(formal, tpnme.MirroredElemLabels , elemsLabels, span)
305
- val mirrorType =
306
- mirrorCore(defn.Mirror_ProductClass , monoType, mirroredType, cls.name, formal)
307
- .refinedWith(tpnme.MirroredElemTypes , TypeAlias (elemsType))
308
- .refinedWith(tpnme.MirroredElemLabels , TypeAlias (elemsLabels))
309
- val mirrorRef =
310
- if (cls.is(Scala2x )) anonymousMirror(monoType, ExtendsProductMirror , span)
311
- else companionPath(mirroredType, span)
312
- mirrorRef.cast(mirrorType)
306
+ if ! canAccessCtor(cls) then EmptyTree
307
+ else
308
+ val accessors = cls.caseAccessors.filterNot(_.isAllOf(PrivateLocal ))
309
+ val elemLabels = accessors.map(acc => ConstantType (Constant (acc.name.toString)))
310
+ val nestedPairs = TypeOps .nestedPairs(accessors.map(mirroredType.resultType.memberInfo(_).widenExpr))
311
+ val (monoType, elemsType) = mirroredType match
312
+ case mirroredType : HKTypeLambda =>
313
+ (mkMirroredMonoType(mirroredType), mirroredType.derivedLambdaType(resType = nestedPairs))
314
+ case _ =>
315
+ (mirroredType, nestedPairs)
316
+ val elemsLabels = TypeOps .nestedPairs(elemLabels)
317
+ checkRefinement(formal, tpnme.MirroredElemTypes , elemsType, span)
318
+ checkRefinement(formal, tpnme.MirroredElemLabels , elemsLabels, span)
319
+ val mirrorType =
320
+ mirrorCore(defn.Mirror_ProductClass , monoType, mirroredType, cls.name, formal)
321
+ .refinedWith(tpnme.MirroredElemTypes , TypeAlias (elemsType))
322
+ .refinedWith(tpnme.MirroredElemLabels , TypeAlias (elemsLabels))
323
+ val mirrorRef =
324
+ if (cls.is(Scala2x )) anonymousMirror(monoType, ExtendsProductMirror , span)
325
+ else companionPath(mirroredType, span)
326
+ mirrorRef.cast(mirrorType)
313
327
else EmptyTree
314
328
end productMirror
315
329
0 commit comments