# revisions: 32266

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fixes_3_0@33836 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 8 insertions, 0 deletions

diff --git a/rtl/objpas/sysutils/syshelpf.inc b/rtl/objpas/sysutils/syshelpf.inc
index 8f39d67fc1..9d6fa6941b 100644
--- a/rtl/objpas/sysutils/syshelpf.inc
+++ b/rtl/objpas/sysutils/syshelpf.inc
@@ -98,16 +98,19 @@ end;
 Function TFLOATHELPER.GetE: QWord; inline;
 
 begin
+  runerror(219);
 end;
 
 Function TFLOATHELPER.GetF: QWord; inline;
 
 begin
+  runerror(219);
 end;
 
 Function TFLOATHELPER.GetS: Boolean; inline;
 
 begin
+ runerror(219)
 end;
 
 procedure TFLOATHELPER.SetB(AIndex: Cardinal; const AValue: Byte);
@@ -129,16 +132,19 @@ end;
 procedure TFLOATHELPER.SetE(AValue: QWord);
 
 begin
+  runerror(219);
 end;
 
 procedure TFLOATHELPER.SetF(AValue: QWord);
 
 begin
+  runerror(219);
 end;
 
 procedure TFLOATHELPER.SetS(AValue: Boolean);
 
 begin
+  runerror(219);
 end;
 
 
@@ -168,6 +174,7 @@ end;
 Function TFLOATHELPER.Fraction: Extended;
 
 begin
+  runerror(219);
 end;
 
 Function TFLOATHELPER.IsInfinity: Boolean; overload; inline;
@@ -197,6 +204,7 @@ end;
 Function TFLOATHELPER.Mantissa: QWord;
 
 begin
+  runerror(219);
 end;
 
 Function TFLOATHELPER.SpecialType: TFloatSpecial;