mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-05 00:29:37 +01:00
* int_str cardinal fix (merged)
This commit is contained in:
parent
1fdb035bbe
commit
b06b389b67
@ -742,8 +742,6 @@ begin
|
|||||||
s:=char(ord('0')+(l mod 10))+s;
|
s:=char(ord('0')+(l mod 10))+s;
|
||||||
l:=l div 10;
|
l:=l div 10;
|
||||||
end;
|
end;
|
||||||
if sign then
|
|
||||||
s:='-'+s;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{$endif ndef FPC_SYSTEM_HAS_INT_STR_CARDINAL}
|
{$endif ndef FPC_SYSTEM_HAS_INT_STR_CARDINAL}
|
||||||
@ -773,7 +771,10 @@ end;
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.8 2001-04-13 18:06:28 peter
|
Revision 1.9 2001-04-21 12:16:28 peter
|
||||||
|
* int_str cardinal fix (merged)
|
||||||
|
|
||||||
|
Revision 1.8 2001/04/13 18:06:28 peter
|
||||||
* removed rtllite define
|
* removed rtllite define
|
||||||
|
|
||||||
Revision 1.7 2001/03/05 17:10:40 jonas
|
Revision 1.7 2001/03/05 17:10:40 jonas
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user