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

* No SINGLE type for non-intel processors!!

Browse Source
This commit is contained in:
carl 1998-07-02 12:14:19 +00:00
parent a364f24f24
commit a787487de6
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/sstrings.inc
View File

@ -226,11 +226,12 @@ begin
{$endif}
end;
{$ifdef SUPPORT_SINGLE}
procedure int_str_single(d : single;len,fr : longint;var s : string);[public, alias : 'STR_SINGLE'];
begin
str_real(len,fr,d,rt_s32real,s);
end;
{$endif SUPPORT_SINGLE}
{$ifdef SUPPORT_EXTENDED}
@ -579,6 +580,7 @@ begin
end;
{$ifdef SUPPORT_SINGLE}
procedure val(const s : string;var d : single;var code : word);
var
e : double;
@ -605,7 +607,7 @@ begin
val(s,e,code);
d:=e;
end;
{$endif SUPPORT_SINGLE}
{$ifdef SUPPORT_EXTENDED}
procedure val(const s : string;var d : extended;var code : word);
@ -713,7 +715,10 @@ end;
{
$Log$
Revision 1.6 1998-06-25 09:44:19 daniel
Revision 1.7 1998-07-02 12:14:19 carl
* No SINGLE type for non-intel processors!!
Revision 1.6 1998/06/25 09:44:19 daniel
+ RTLLITE directive to compile minimal RTL.
Revision 1.5 1998/06/04 23:45:59 peter