From 7074c04587bfb3806426780252e91eb4ddbd61e1 Mon Sep 17 00:00:00 2001
From: ondrej <ondrej@lazarus-ide.org>
Date: Thu, 8 Dec 2016 13:54:43 +0000
Subject: [PATCH] ide: FPC 2.6.4 compatibility

git-svn-id: trunk@53603 -
---
 ide/debugmanager.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index 82d71ae899..a3f6589900 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -260,7 +260,7 @@ var
   FS: TFormatSettings;
   MyDate: Extended;
 begin
-  FS := Default(TFormatSettings);
+  FillChar(FS, SizeOf(TFormatSettings), 0);
   FS.DecimalSeparator := '.';
   if TryStrToFloat(aValue, MyDate, FS) then
   begin