trunk/fpc/vcs_diff_packages.patch results

File details

./trunk/fpc/vcs_diff_packages.patch 2026-07-24-01:09

Used binaries

Binaries version

> uname -a
Linux idefix 6.8.0-117-generic #117-Ubuntu SMP PREEMPT_DYNAMIC Tue May  5 19:26:24 UTC 2026 x86_64 x86_64 x86_64 GNU/Linux

Full file content

 
diff --git a/packages/fcl-base/src/wformat.pp b/packages/fcl-base/src/wformat.pp
index ca9b86b6f3..89ce873377 100644
--- a/packages/fcl-base/src/wformat.pp
+++ b/packages/fcl-base/src/wformat.pp
@@ -38,7 +38,9 @@
     Function EscapeText (AText : String) : String; Virtual;
     // Quick dump.
     Procedure Dump(Const AText : String);
+    Procedure Dump(Const AText : AnsiString);
     Procedure DumpLn(Const AText : String);
+    Procedure DumpLn(Const AText : AnsiString);
     // Formatted write. Calls escapetext.
     Procedure Write(Const AText : String); virtual;
     Procedure WriteFmt(Const Fmt : String; Args : Array of const);
@@ -142,6 +144,11 @@ procedure TFormattingWriter.Dump(const AText: String);
   FStream.WriteBuffer(Atext[1],Length(AText));
 end;
 
+procedure TFormattingWriter.Dump(const AText: AnsiString);
+begin
+  FStream.WriteBuffer(Atext[1],Length(AText));
+end;
+
 procedure TFormattingWriter.DumpLn(const AText: String);
 
 begin
@@ -149,6 +156,13 @@ procedure TFormattingWriter.DumpLn(const AText: String);
   Dump(LineFeed);
 end;
 
+procedure TFormattingWriter.DumpLn(const AText: AnsiString);
+
+begin
+  Dump(Atext);
+  Dump(LineFeed);
+end;
+
 Function TFormattingWriter.EscapeText(AText: String) : String;
 begin
   Result:=AText;