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

* naming for str(...) routines inserted

Browse Source 
* don't know what in int64 changed
This commit is contained in:
florian 1999-01-06 12:25:02 +00:00
parent 9920e3ffef
commit 8bf6ef4b56
2 changed files with 29 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/inc/astrings.inc
View File

@ -591,19 +591,20 @@ begin
Val(SS,SI,Code);
end;
(*
Procedure Str (Const R : Real;Len,fr : Longint; Const S : AnsiString);
Var SS : ShortString;
begin
{int_Str_Real (R,Len,fr,SS);}
Short_To_AnsiString (Pointer(S),SS);
end;
{!!!!!!!!!!!!
We need ansistring str routines for the following types:
FIXED
SINGLE
COMP
FIXED16
QWORD
INT64
}
{
Procedure Str (Var D : Double;Len,fr: Longint; Var S : AnsiString);
[Public,Alias : 'FPC_STRANSI_REAL'];
Var SS : ShortString;
@ -611,10 +612,10 @@ begin
{int_Str_Double (D,Len,fr,SS);}
Short_To_AnsiString (S,SS);
end;
}
Procedure Str (E : Extended;Lenf,Fr: Longint; Var S : AnsiString);
[Public,Alias : 'FPC_STRANSI_EXTENDED'];
Var SS : ShortString;
@ -626,6 +627,7 @@ end;
Procedure Str (C : Cardinal;Len : Longint; Var S : AnsiString);
[Public,Alias : 'FPC_STRANSI_CARDINAL'];
begin
end;
@ -633,6 +635,7 @@ end;
Procedure Str (L : Longint; Len : Longint; Var S : AnsiString);
[Public,Alias : 'FPC_STRANSI_LONGINT'];
Var SS : ShortString;
@ -644,11 +647,13 @@ end;
Procedure Str (Var W : Word;Len : Longint; Var S : AnsiString);
[Public,Alias : 'FPC_STRANSI_EXTENDED'];
begin
end;
(* these procedures are not used by the compiler:
Procedure Str (Var I : Integer;Len : Longint; Var S : AnsiString);
@ -722,7 +727,11 @@ end;
{
$Log$
Revision 1.5 1998-12-15 22:43:01 peter
Revision 1.6 1999-01-06 12:25:02 florian
* naming for str(...) routines inserted
* don't know what in int64 changed
Revision 1.5 1998/12/15 22:43:01 peter
* removed temp symbols
Revision 1.4 1998/11/18 10:56:46 michael

14
rtl/inc/int64.inc
View File

@ -50,12 +50,12 @@
count_leading_zero:=r;
end;
function divqword(z,n : qword) : qword;
function divqword(z,n : qword) : qword;safecall;
begin
end;
function divint64(z,n : int64) : int64;
function divint64(z,n : int64) : int64;safecall;
var
sign : boolean;
@ -88,7 +88,7 @@
end;
{ multiplies two qwords }
function mulqword(f1,f2 : qword;checkoverflow : boolean) : qword;
function mulqword(f1,f2 : qword;checkoverflow : boolean) : qword;safecall;
var
res,bitpos : qword;
@ -125,7 +125,7 @@
fpuint64 = true:
... using the comp multiplication
}
function mulint64(f1,f2 : int64;checkoverflow : boolean) : int64;
function mulint64(f1,f2 : int64;checkoverflow : boolean) : int64;safecall;
var
sign : boolean;
@ -194,7 +194,11 @@
{
$Log$
Revision 1.1 1998-12-12 12:15:41 florian
Revision 1.2 1999-01-06 12:25:03 florian
* naming for str(...) routines inserted
* don't know what in int64 changed
Revision 1.1 1998/12/12 12:15:41 florian
+ first implementation
}