瀏覽代碼

Fix for default value of a class of type.

Henrique Gottardi Werlang 1 年之前
父節點
當前提交
664f8fc2ba
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/pastojs/src/fppas2js.pp

+ 1 - 1
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;