Skip to content

Commit 114dba1

Browse files
committed
Removed redundant initialization code in VarSetDefaultInt64 & VarSetDefaultDouble
1 parent 542cb9e commit 114dba1

File tree

1 file changed

+0
-2
lines changed

1 file changed

+0
-2
lines changed

Source/dwsUtils.pas

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2832,7 +2832,6 @@ procedure VarSetDefaultInt64(var dest : Variant);
28322832
VarClearSafe(dest);
28332833

28342834
TVarData(dest).VType := varInt64;
2835-
TVarData(dest).VInt64 := 0;
28362835
end;
28372836

28382837
// VarSetDefaultDouble
@@ -2842,7 +2841,6 @@ procedure VarSetDefaultDouble(var dest : Variant); inline;
28422841
VarClearSafe(dest);
28432842

28442843
TVarData(dest).VType := varDouble;
2845-
TVarData(dest).VDouble := 0;
28462844
end;
28472845

28482846
// VarSetDefaultString

0 commit comments

Comments
 (0)