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

* Fillchar(..,..,boolean) added

Browse Source
This commit is contained in:
pierre 1999-01-29 09:23:09 +00:00
parent 02b4722695
commit 1cd9b0fb0e
2 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/system.inc
View File

@ -288,6 +288,12 @@ Begin
End;
procedure fillchar(var x;count : longint;value : boolean);
begin
fillchar(x,count,byte(value));
end;
procedure fillchar(var x;count : longint;value : char);
begin
fillchar(x,count,byte(value));
@ -472,7 +478,10 @@ end;
{
$Log$
Revision 1.52 1999-01-22 12:39:23 pierre
Revision 1.53 1999-01-29 09:23:09 pierre
* Fillchar(..,..,boolean) added
Revision 1.52 1999/01/22 12:39:23 pierre
+ added text arg for dump_stack
Revision 1.51 1999/01/18 10:05:52 pierre

8
rtl/inc/systemh.inc
View File

@ -129,8 +129,9 @@ var
****************************************************************************}
Procedure Move(Var source,dest;count:Longint);
Procedure FillChar(Var x;count:Longint;Value:Boolean);
Procedure FillChar(Var x;count:Longint;Value:Char);
Procedure FillChar(Var x;count:Longint;Value:byte);
Procedure FillChar(Var x;count:Longint;Value:Byte);
{$ifndef RTLLITE}
Procedure FillWord(Var x;count:Longint;Value:Word);
{$endif RTLLITE}
@ -431,7 +432,10 @@ const
{
$Log$
Revision 1.48 1999-01-22 12:39:24 pierre
Revision 1.49 1999-01-29 09:23:10 pierre
* Fillchar(..,..,boolean) added
Revision 1.48 1999/01/22 12:39:24 pierre
+ added text arg for dump_stack
Revision 1.47 1999/01/11 19:26:53 jonas