mORMot and Open Source friends
Check-in [afa2a689d5]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:{3434} fixed TTextWriter.AddAnyAnsiBuffer when start with char >#127 - thanks Dmitry for the report!
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: afa2a689d550232bd1c3c3a0ceb14cea3bf83465
User & Date: ab 2017-02-27 16:57:33
Context
2017-02-28
07:40
{3435} added RemoveComments optional parameter to TDocVariantData.InitJSONFromFile check-in: 1135dcf0d1 user: ab tags: trunk
2017-02-27
16:57
{3434} fixed TTextWriter.AddAnyAnsiBuffer when start with char >#127 - thanks Dmitry for the report! check-in: afa2a689d5 user: ab tags: trunk
11:35
{3433} fixed SynDB documentation check-in: fcbdc45d02 user: ab tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to SynCommons.pas.

48102
48103
48104
48105
48106
48107
48108

48109
48110
48111
48112
48113
48114
48115
48116
        dec(Len,4);
      until Len<4;
    if (Len>0) and (P^<#128)  then
      repeat
        inc(P);
        dec(Len);
      until (Len=0) or (P^>=#127);

    Add(B,P-B,Escape);
    if Len=0 then
      exit;
    // rely on explicit conversion for all remaining ASCII characters
    TSynAnsiConvert.Engine(CodePage).InternalAppendUTF8(P,Len,self,Escape);
  end;
  end;
end;






>
|







48102
48103
48104
48105
48106
48107
48108
48109
48110
48111
48112
48113
48114
48115
48116
48117
        dec(Len,4);
      until Len<4;
    if (Len>0) and (P^<#128)  then
      repeat
        inc(P);
        dec(Len);
      until (Len=0) or (P^>=#127);
    if P<>pointer(B) then
      Add(B,P-B,Escape);
    if Len=0 then
      exit;
    // rely on explicit conversion for all remaining ASCII characters
    TSynAnsiConvert.Engine(CodePage).InternalAppendUTF8(P,Len,self,Escape);
  end;
  end;
end;

Changes to SynopseCommit.inc.

1
'1.18.3433'
|
1
'1.18.3434'