paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 11:28:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix for default value of a class of type.

Browse Source
This commit is contained in:
Henrique Gottardi Werlang 2024-01-26 16:32:36 -03:00 committed by Michael Van Canneyt
parent b32573d1eb
commit 664f8fc2ba
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/pastojs/src/fppas2js.pp
View File

@ -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;