mirror of
https://github.com/macports/macports-ports.git
synced 2026-07-12 18:20:25 -07:00
Karl-Michael SchindlerandRenee Otten
22bf378ee1
the fix of put is taken from this commit: https://gitlab.com/freepascal.org/fpc/source/-/commit/a0e4a7168d741bcc38a827aca86dd434f3762ac2 Minor change: rename patch files for more consistent naming
18 lines
510 B
Diff
18 lines
510 B
Diff
--- rtl/inc/text.inc 2026-02-10 09:03:50
|
|
+++ rtl/inc/text.inc2026-02-10 09:11:32
|
|
@@ -1815,9 +1815,12 @@
|
|
|
|
function fpc_GetBuf_Text(var f : Text) : pchar; iocheck; compilerproc;
|
|
Begin
|
|
- Result:=@TextRec(f).Bufptr^[TextRec(f).BufEnd];
|
|
if TextRec(f).mode=fmOutput then
|
|
- exit;
|
|
+ begin
|
|
+ Result:=@TextRec(f).Bufptr^[TextRec(f).BufPos];
|
|
+ exit;
|
|
+ end;
|
|
+ Result:=@TextRec(f).Bufptr^[TextRec(f).BufEnd];
|
|
If not CheckRead(f) then
|
|
exit;
|
|
If TextRec(f).BufPos>=TextRec(f).BufEnd Then
|