From 664f8fc2ba8bf2e23b00efae5819d7079409287a Mon Sep 17 00:00:00 2001
From: Henrique Gottardi Werlang <henriquewerlang@hotmail.com>
Date: Fri, 26 Jan 2024 16:32:36 -0300
Subject: [PATCH] Fix for default value of a class of type.

---
 packages/pastojs/src/fppas2js.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/pastojs/src/fppas2js.pp b/packages/pastojs/src/fppas2js.pp
index 99a55b2244..5e61448dea 100644
--- a/packages/pastojs/src/fppas2js.pp
+++ b/packages/pastojs/src/fppas2js.pp
@@ -15131,7 +15131,7 @@ begin
         ReleaseEvalValue(Value);
       end;
       end
-    else if (C=TPasClassType) or (C=TPasPointerType) then
+    else if (C=TPasClassType) or (C=TPasPointerType) or (C=TPasClassOfType) then
       begin
       Result:=CreateLiteralNull(El);
       exit;