Skip to content
Permalink
Browse files

some minor comment fix after RTTI refactoring

  • Loading branch information...
Arnaud Bouchez
Arnaud Bouchez committed Sep 21, 2019
1 parent a9aa2d7 commit 1a132d5153063fcdda3e2a75e8b99fed6dfe7ccf
@@ -64,7 +64,7 @@
}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

@@ -218,7 +218,7 @@

interface

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64
{$I Synopse.inc} // define HASINLINE CPU32 CPU64

{$ifndef LVCL}
{.$define THREADSAFE}
@@ -57,7 +57,7 @@
}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

if res<>nil then
for i := 0 to MaxValue do begin
aDest^ := res;
inc(PByte(res),ord(res^[0])+1); // next short string
inc(PByte(res),PByte(res)^+1); // next
inc(aDest);
end;
end;
if res<>nil then
for i := 0 to MaxValue do begin
aDest^ := TrimLeftLowerCaseShort(res);
inc(PByte(res),ord(res^[0])+1); // next short string
inc(PByte(res),PByte(res)^+1); // next
inc(aDest);
end;
end;
SetLength(result,MaxValue+1);
for i := 0 to MaxValue do begin
result[i] := TrimLeftLowerCaseShort(res);
inc(PByte(res),ord(res^[0])+1); // next short string
inc(PByte(res),PByte(res)^+1); // next
end;
end;
end;
if res<>nil then
for i := 0 to MaxValue do begin
GetCaptionFromTrimmed(res,aDest^);
inc(PByte(res),ord(res^[0])+1); // next short string
inc(PByte(res),PByte(res)^+1); // next
inc(aDest);
end;
end;
if (result<>nil) and (cardinal(aIndex)<=cardinal(MaxValue)) then begin
if aIndex>0 then
repeat
inc(PByte(result),ord(result^[0])+1); // next short string
inc(PByte(result),PByte(result)^+1); // next
dec(aIndex);
if aIndex=0 then
break;
inc(PByte(result),ord(result^[0])+1); // loop unrolled twice
inc(PByte(result),PByte(result)^+1); // loop unrolled twice
dec(aIndex);
if aIndex=0 then
break;
until false;
until aIndex=0;
end else
result := @NULL_SHORTSTRING;
end;
@1: pop edx
@s: movzx ecx, byte ptr[eax]
dec edx
lea eax, [eax + ecx + 1] // next short string
lea eax, [eax + ecx + 1] // next
jnz @s
ret
@z: rep ret
begin
if aValueLen<>0 then
for result := 0 to MaxValue do begin
PLen := ord(List^[0]);
PLen := PByte(List)^;
if (PLen=aValuelen) and IdemPropNameUSameLen(@List^[1],aValue,PLen) then
exit;
inc(PByte(List),PLen+1); // next short string
inc(PByte(List),PLen+1); // next
end;
result := -1;
end;
for i := 0 to max do begin
if GetBitPtr(@value,i) then
result := FormatUTF8('%%,',[result,PS^]);
inc(PByte(PS),ord(PS^[0])+1); // next short string
inc(PByte(PS),PByte(PS)^+1); // next
end;
end;
if result<>'' then
for i := 0 to max do begin
if GetBitPtr(@value,i) then
AppendShortComma(@PS^[1],ord(PS^[0]),result,trimlowercase);
inc(PByte(PS),ord(PS^[0])+1); // next short string
inc(PByte(PS),PByte(PS)^+1); // next
end;
end;
if result[ord(result[0])]=',' then
result := result+Sep;
result := result+RawUTF8(copy(List^,3,10));
end;
inc(PByte(List),ord(List^[0])+1); // next short string
inc(PByte(List),PByte(List)^+1); // next
end;
end;

for i := 0 to max do begin
AddPS(GetBitPtr(@aValue,i));
Add(',');
inc(PByte(PS),ord(PS^[0])+1); // next short string
inc(PByte(PS),PByte(PS)^+1); // next
end;
CancelLastComma;
Add('}');
AddPS;
Add(',');
end;
inc(PByte(PS),ord(PS^[0])+1); // next short string
inc(PByte(PS),PByte(PS)^+1); // next
end;
CancelLastComma;
end;
@@ -247,7 +247,7 @@

interface

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

{.$define USEPADLOCK}

@@ -52,7 +52,7 @@
}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

@@ -302,7 +302,7 @@
- added property stripSemicolon to strip last semicolon in query (default = true)
}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

@@ -51,7 +51,7 @@
}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

@@ -52,7 +52,7 @@
setting ForceOnlyOneSharedConnection=true
}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

@@ -59,7 +59,7 @@
}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

@@ -85,7 +85,7 @@
http://msdn.microsoft.com/en-us/library/windows/desktop/ms711730
}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

@@ -143,7 +143,7 @@
}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

@@ -49,7 +49,7 @@
}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

@@ -90,7 +90,7 @@
}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

@@ -60,7 +60,7 @@
}

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

@@ -126,7 +126,7 @@ implementation
{$I Zeos.inc} // define conditionals like ZEOS72UP and ENABLE_*
// for best performance: tune your project options or Zeos.inc to define USE_SYNCOMMONS

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

@@ -85,7 +85,7 @@
*)

{$I Synopse.inc} // define HASINLINE USETYPEINFO CPU32 CPU64 OWNNORMTOUPPER
{$I Synopse.inc} // define HASINLINE CPU32 CPU64 OWNNORMTOUPPER

interface

0 comments on commit 1a132d5

Please sign in to comment.
You can’t perform that action at this time.