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

* fixed str() call

Browse Source
This commit is contained in:
peter 2005-03-17 16:29:04 +00:00
parent ff347f1e4c
commit ac95600774
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/objpas/sysconst.pp
View File

@ -213,20 +213,19 @@ begin
end;
If length(Result)=0 then
{$ifdef VER1_0}
begin
Str(Errno:3,Result);
Result:=SUnknown+Result;
end;
{$else}
Result:=SUnknown+Str(Errno:3);
{$endif}
end;
end.
{
$Log$
Revision 1.15 2005-02-14 17:13:31 peter
Revision 1.16 2005-03-17 16:29:04 peter
* fixed str() call
Revision 1.15 2005/02/14 17:13:31 peter
* truncate log
Revision 1.14 2005/01/14 12:59:25 michael