paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 00:49:12 +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); Val(SS,SI,Code);
end; end;
(*
Procedure Str (Const R : Real;Len,fr : Longint; Const S : AnsiString);
Var SS : ShortString; {!!!!!!!!!!!!
We need ansistring str routines for the following types:
begin FIXED
{int_Str_Real (R,Len,fr,SS);} SINGLE
Short_To_AnsiString (Pointer(S),SS); COMP
end; FIXED16
QWORD
INT64
}
{
Procedure Str (Var D : Double;Len,fr: Longint; Var S : AnsiString); Procedure Str (Var D : Double;Len,fr: Longint; Var S : AnsiString);
[Public,Alias : 'FPC_STRANSI_REAL'];
Var SS : ShortString; Var SS : ShortString;
@ -611,10 +612,10 @@ begin
{int_Str_Double (D,Len,fr,SS);} {int_Str_Double (D,Len,fr,SS);}
Short_To_AnsiString (S,SS); Short_To_AnsiString (S,SS);
end; end;
}
Procedure Str (E : Extended;Lenf,Fr: Longint; Var S : AnsiString); Procedure Str (E : Extended;Lenf,Fr: Longint; Var S : AnsiString);
[Public,Alias : 'FPC_STRANSI_EXTENDED'];
Var SS : ShortString; Var SS : ShortString;
@ -626,6 +627,7 @@ end;
Procedure Str (C : Cardinal;Len : Longint; Var S : AnsiString); Procedure Str (C : Cardinal;Len : Longint; Var S : AnsiString);
[Public,Alias : 'FPC_STRANSI_CARDINAL'];
begin begin
end; end;
@ -633,6 +635,7 @@ end;
Procedure Str (L : Longint; Len : Longint; Var S : AnsiString); Procedure Str (L : Longint; Len : Longint; Var S : AnsiString);
[Public,Alias : 'FPC_STRANSI_LONGINT'];
Var SS : ShortString; Var SS : ShortString;
@ -644,11 +647,13 @@ end;
Procedure Str (Var W : Word;Len : Longint; Var S : AnsiString); Procedure Str (Var W : Word;Len : Longint; Var S : AnsiString);
[Public,Alias : 'FPC_STRANSI_EXTENDED'];
begin begin
end; end;
(* these procedures are not used by the compiler:
Procedure Str (Var I : Integer;Len : Longint; Var S : AnsiString); Procedure Str (Var I : Integer;Len : Longint; Var S : AnsiString);
@ -722,7 +727,11 @@ end;
{ {
$Log$ $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 * removed temp symbols
Revision 1.4 1998/11/18 10:56:46 michael 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; count_leading_zero:=r;
end; end;
function divqword(z,n : qword) : qword; function divqword(z,n : qword) : qword;safecall;
begin begin
end; end;
function divint64(z,n : int64) : int64; function divint64(z,n : int64) : int64;safecall;
var var
sign : boolean; sign : boolean;
@ -88,7 +88,7 @@
end; end;
{ multiplies two qwords } { multiplies two qwords }
function mulqword(f1,f2 : qword;checkoverflow : boolean) : qword; function mulqword(f1,f2 : qword;checkoverflow : boolean) : qword;safecall;
var var
res,bitpos : qword; res,bitpos : qword;
@ -125,7 +125,7 @@
fpuint64 = true: fpuint64 = true:
... using the comp multiplication ... using the comp multiplication
} }
function mulint64(f1,f2 : int64;checkoverflow : boolean) : int64; function mulint64(f1,f2 : int64;checkoverflow : boolean) : int64;safecall;
var var
sign : boolean; sign : boolean;
@ -194,7 +194,11 @@
{ {
$Log$ $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 + first implementation
} }