paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 22:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* No SINGLE type for m68k or other non-intel processors!

Browse Source
This commit is contained in:
carl 1998-07-02 12:13:18 +00:00
parent 5434ee6d4c
commit e472678241
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/systemh.inc
View File

@ -38,6 +38,7 @@ Type
Double = real;
{$define SUPPORT_EXTENDED}
{$define SUPPORT_COMP}
{$define SUPPORT_SINGLE}
{$endif}
{ some type aliases }
@ -228,9 +229,11 @@ Procedure Val(const s:string;Var b:Integer);
Procedure Val(const s:string;Var d:Real;Var code:Word);
Procedure Val(const s:string;Var d:Real;Var code:Integer);
Procedure Val(const s:string;Var d:Real);
{$ifdef SUPPORT_SINGLE}
Procedure Val(const s:string;Var d:single;Var code:Word);
Procedure Val(const s:string;Var d:single;Var code:Integer);
Procedure Val(const s:string;Var d:single);
{$endif SUPPORT_SINGLE}
{$ifdef SUPPORT_EXTENDED}
Procedure Val(const s:string;Var d:Extended;Var code:Word);
Procedure Val(const s:string;Var d:Extended;Var code:Integer);
@ -386,7 +389,10 @@ Procedure halt;
{
$Log$
Revision 1.15 1998-07-01 14:43:46 carl
Revision 1.16 1998-07-02 12:13:18 carl
* No SINGLE type for m68k or other non-intel processors!
Revision 1.15 1998/07/01 14:43:46 carl
- max_frame_dump reduced to 8, 20 is too much!
Revision 1.14 1998/06/25 14:04:26 peter