paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 21:50:07 +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); ReleaseEvalValue(Value);
end; end;
end end
else if (C=TPasClassType) or (C=TPasPointerType) then else if (C=TPasClassType) or (C=TPasPointerType) or (C=TPasClassOfType) then
begin begin
Result:=CreateLiteralNull(El); Result:=CreateLiteralNull(El);
exit; exit;