From 1c5221520be27dc6be5bd4467a2663f9798a4708 Mon Sep 17 00:00:00 2001
From: Jamie Willis <j.willis19@imperial.ac.uk>
Date: Tue, 9 Apr 2024 15:49:13 +0100
Subject: [PATCH] Added suppressed error into exception

---
 .../shared/src/main/scala/parsley/internal/diagnostics.scala  | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/parsley/shared/src/main/scala/parsley/internal/diagnostics.scala b/parsley/shared/src/main/scala/parsley/internal/diagnostics.scala
index 5415c1ae3..e4660cf83 100644
--- a/parsley/shared/src/main/scala/parsley/internal/diagnostics.scala
+++ b/parsley/shared/src/main/scala/parsley/internal/diagnostics.scala
@@ -33,7 +33,9 @@ private [parsley] object RegisterOutOfBoundsException {
             // out of bounds register.
             case ste if ste.getMethodName == "apply"
                      && ste.getClassName.startsWith("parsley.internal.machine.instructions") =>
-                new CorruptedReferenceException
+                val err = new CorruptedReferenceException
+                err.addSuppressed(e)
+                err
         }
         case _ => None
     }