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

* more safe put implementation

Browse Source 
git-svn-id: trunk@24263 -
This commit is contained in:
florian 2013-04-17 20:15:16 +00:00
parent 9dc5b07a68
commit f97cd6997c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/iso7185.pp
View File

@ -132,8 +132,12 @@ unit iso7185;
Procedure Put(var t : Text); Procedure Put(var t : Text);
type
FileFunc = Procedure(var t : TextRec);
begin begin
inc(TextRec(t).BufPos); inc(TextRec(t).BufPos);
If TextRec(t).BufPos>=TextRec(t).BufSize Then
FileFunc(TextRec(t).InOutFunc)(TextRec(t));
end; end;