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

fcl-js: less hints

Browse Source 
git-svn-id: trunk@40592 -
This commit is contained in:
Mattias Gaertner 2018-12-18 22:20:12 +00:00
parent 0043b747c7
commit 601c6476ea
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-js/src/jswriter.pp
View File

@ -355,8 +355,8 @@ Var
begin begin
Result:=Length(S)*SizeOf(TJSWriterChar); Result:=Length(S)*SizeOf(TJSWriterChar);
if Result=0 then exit; if Result=0 then exit;
MinLen:=Result+FBufPos; MinLen:=Result+integer(FBufPos);
If (MinLen>Capacity) then If (MinLen>integer(Capacity)) then
begin begin
DesLen:=(FCapacity*3) div 2; DesLen:=(FCapacity*3) div 2;
if DesLen>MinLen then if DesLen>MinLen then
@ -364,7 +364,7 @@ begin
Capacity:=MinLen; Capacity:=MinLen;
end; end;
Move(S[1],FBuffer[FBufPos],Result); Move(S[1],FBuffer[FBufPos],Result);
FBufPos:=FBufPos+Result; FBufPos:=integer(FBufPos)+Result;
end; end;
{$endif} {$endif}
@ -377,8 +377,8 @@ Var
begin begin
Result:=Length(S)*SizeOf(UnicodeChar); Result:=Length(S)*SizeOf(UnicodeChar);
if Result=0 then exit; if Result=0 then exit;
MinLen:=Result+FBufPos; MinLen:=Result+integer(FBufPos);
If (MinLen>Capacity) then If (MinLen>integer(Capacity)) then
begin begin
DesLen:=(FCapacity*3) div 2; DesLen:=(FCapacity*3) div 2;
if DesLen>MinLen then if DesLen>MinLen then
@ -386,7 +386,7 @@ begin
Capacity:=MinLen; Capacity:=MinLen;
end; end;
Move(S[1],FBuffer[FBufPos],Result); Move(S[1],FBuffer[FBufPos],Result);
FBufPos:=FBufPos+Result; FBufPos:=integer(FBufPos)+Result;
end; end;
{$endif} {$endif}