paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 09:59:08 +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} {$endif}
end; end;
{$ifdef SUPPORT_SINGLE}
procedure int_str_single(d : single;len,fr : longint;var s : string);[public, alias : 'STR_SINGLE']; procedure int_str_single(d : single;len,fr : longint;var s : string);[public, alias : 'STR_SINGLE'];
begin begin
str_real(len,fr,d,rt_s32real,s); str_real(len,fr,d,rt_s32real,s);
end; end;
{$endif SUPPORT_SINGLE}
{$ifdef SUPPORT_EXTENDED} {$ifdef SUPPORT_EXTENDED}
@ -579,6 +580,7 @@ begin
end; end;
{$ifdef SUPPORT_SINGLE}
procedure val(const s : string;var d : single;var code : word); procedure val(const s : string;var d : single;var code : word);
var var
e : double; e : double;
@ -605,7 +607,7 @@ begin
val(s,e,code); val(s,e,code);
d:=e; d:=e;
end; end;
{$endif SUPPORT_SINGLE}
{$ifdef SUPPORT_EXTENDED} {$ifdef SUPPORT_EXTENDED}
procedure val(const s : string;var d : extended;var code : word); procedure val(const s : string;var d : extended;var code : word);
@ -713,7 +715,10 @@ end;
{ {
$Log$ $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. + RTLLITE directive to compile minimal RTL.
Revision 1.5 1998/06/04 23:45:59 peter Revision 1.5 1998/06/04 23:45:59 peter