paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-09 03:57:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

rtl: clean up

Browse Source
This commit is contained in:
mattias 2019-02-26 17:46:10 +00:00
parent f8975985c0
commit 1ea026bcbc
2 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/jsondataset.pas
View File

@ -518,11 +518,6 @@ begin
end;
procedure TSortedJSONIndex.CreateComparer(aIndex: TJSONIndexDef);
Var
L : TFPList;
I : Integer;
begin
FreeAndNil(FComparer);
FComparer:=TRecordComparer.Create(Dataset,aindex);
@ -1415,7 +1410,7 @@ end;
procedure TBaseJSONDataSet.InternalPost;
Var
I,OldC,NewCurrent,Idx : integer;
I,NewCurrent,Idx : integer;
B : TBookmark;
begin
@ -1742,7 +1737,6 @@ function TBaseJSONDataSet.Lookup(const KeyFields: string; const KeyValues: JSVal
Var
RI,I : Integer;
BM : TBookMark;
l : TFPList;
Vals : TJSValueDynArray;

2
packages/rtl/webgl.pas
View File

@ -6,7 +6,7 @@ Unit webgl;
interface
uses SysUtils, JS,web;
uses JS, Web;
{
Automatically generated file by TWebIDLToPas on 2018-06-23 15:31:57