paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 19:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Mark forgotten implementations with runerror 219

Browse Source 
git-svn-id: trunk@32266 -
This commit is contained in:
michael 2015-11-07 12:36:32 +00:00
parent 6955106a13
commit 745c1499df
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/sysutils/syshelpf.inc
View File

@ -98,16 +98,19 @@ end;
Function TFLOATHELPER.GetE: QWord; inline; Function TFLOATHELPER.GetE: QWord; inline;
begin begin
runerror(219);
end; end;
Function TFLOATHELPER.GetF: QWord; inline; Function TFLOATHELPER.GetF: QWord; inline;
begin begin
runerror(219);
end; end;
Function TFLOATHELPER.GetS: Boolean; inline; Function TFLOATHELPER.GetS: Boolean; inline;
begin begin
runerror(219)
end; end;
procedure TFLOATHELPER.SetB(AIndex: Cardinal; const AValue: Byte); procedure TFLOATHELPER.SetB(AIndex: Cardinal; const AValue: Byte);
@ -129,16 +132,19 @@ end;
procedure TFLOATHELPER.SetE(AValue: QWord); procedure TFLOATHELPER.SetE(AValue: QWord);
begin begin
runerror(219);
end; end;
procedure TFLOATHELPER.SetF(AValue: QWord); procedure TFLOATHELPER.SetF(AValue: QWord);
begin begin
runerror(219);
end; end;
procedure TFLOATHELPER.SetS(AValue: Boolean); procedure TFLOATHELPER.SetS(AValue: Boolean);
begin begin
runerror(219);
end; end;
@ -168,6 +174,7 @@ end;
Function TFLOATHELPER.Fraction: Extended; Function TFLOATHELPER.Fraction: Extended;
begin begin
runerror(219);
end; end;
Function TFLOATHELPER.IsInfinity: Boolean; overload; inline; Function TFLOATHELPER.IsInfinity: Boolean; overload; inline;
@ -197,6 +204,7 @@ end;
Function TFLOATHELPER.Mantissa: QWord; Function TFLOATHELPER.Mantissa: QWord;
begin begin
runerror(219);
end; end;
Function TFLOATHELPER.SpecialType: TFloatSpecial; Function TFLOATHELPER.SpecialType: TFloatSpecial;