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

* removed warnings using comp()

Browse Source
This commit is contained in:
peter 1998-05-31 14:14:52 +00:00
parent 659c2fb45d
commit 128212755c
2 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/sstrings.inc
View File

@ -633,7 +633,7 @@ var
e : double;
begin
val(s,e,code);
d:=e;
d:=comp(e);
end;
@ -642,7 +642,7 @@ var
e : double;
begin
val(s,e,word(code));
d:=e;
d:=comp(e);
end;
@ -652,7 +652,7 @@ var
e : double;
begin
val(s,e,code);
d:=e;
d:=comp(e);
end;
@ -703,7 +703,10 @@ end;
{
$Log$
Revision 1.3 1998-05-12 10:42:45 peter
Revision 1.4 1998-05-31 14:14:52 peter
* removed warnings using comp()
Revision 1.3 1998/05/12 10:42:45 peter
* moved getopts to inc/, all supported OS's need argc,argv exported
+ strpas, strlen are now exported in the systemunit
* removed logs

7
rtl/inc/text.inc
View File

@ -916,7 +916,7 @@ var
hs : String;
code : Word;
Begin
d:=0.0;
d:=comp(0.0);
hs:='';
if not OpenInput(f) then
exit;
@ -948,7 +948,10 @@ Begin
End;
{
$Log$
Revision 1.7 1998-05-27 00:19:21 peter
Revision 1.8 1998-05-31 14:14:54 peter
* removed warnings using comp()
Revision 1.7 1998/05/27 00:19:21 peter
* fixed crt input
Revision 1.6 1998/05/21 19:31:01 peter