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

+ write helper routine for in64 implemented

Browse Source
This commit is contained in:
florian 1999-07-26 09:43:24 +00:00
parent 9cbaac5beb
commit b7a267613b
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/text.inc
View File

@ -531,6 +531,16 @@ begin
int_str(q,s); int_str(q,s);
write_str(len,t,s); write_str(len,t,s);
end; end;
procedure write_int64(len : longint;var t : textrec;i : int64);[public,alias:'FPC_WRITE_TEXT_INT64'];
var
s : string;
begin
if (InOutRes<>0) then
exit;
int_str(i,s);
write_str(len,t,s);
end;
{$endif INT64} {$endif INT64}
@ -931,7 +941,10 @@ end;
{ {
$Log$ $Log$
Revision 1.50 1999-07-08 15:18:14 michael Revision 1.51 1999-07-26 09:43:24 florian
+ write helper routine for in64 implemented
Revision 1.50 1999/07/08 15:18:14 michael
* Now ansistring of arbitrary length can be read * Now ansistring of arbitrary length can be read
Revision 1.49 1999/07/05 20:04:29 peter Revision 1.49 1999/07/05 20:04:29 peter