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

rtl: less hints

Browse Source
This commit is contained in:
mattias 2018-05-13 11:48:25 +00:00
parent 999d205768
commit 1b5bb6fdae
4 changed files with 52 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl/classes.pas
View File

@ -44,7 +44,7 @@ type
FList: TFPList;
FPosition: Integer;
public
constructor Create(AList: TFPList);
constructor Create(AList: TFPList); reintroduce;
function GetCurrent: JSValue;
function MoveNext: Boolean;
property Current: JSValue read GetCurrent;
@ -112,7 +112,7 @@ type
FList: TList;
FPosition: Integer;
public
constructor Create(AList: TList);
constructor Create(AList: TList); reintroduce;
function GetCurrent: JSValue;
function MoveNext: Boolean;
property Current: JSValue read GetCurrent;
@ -496,7 +496,7 @@ type
FComponent: TComponent;
FPosition: Integer;
public
constructor Create(AComponent: TComponent);
constructor Create(AComponent: TComponent); reintroduce;
function GetCurrent: TComponent;
function MoveNext: Boolean;
property Current: TComponent read GetCurrent;

94
packages/rtl/js.pas
View File

@ -461,11 +461,11 @@ type
constructor new (buffer : TJSArrayBuffer);
constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
class function from(aValue : jsValue) : TJSInt8Array;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt8Array;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt8Array;
class function _of(aValue : jsValue) : TJSInt8Array; varargs;external name 'of';
procedure _set(anArray : Array of ShortInt); external name 'set';
class function from(aValue : jsValue) : TJSInt8Array; reintroduce;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt8Array; reintroduce;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt8Array; reintroduce;
class function _of(aValue : jsValue) : TJSInt8Array; varargs; external name 'of'; reintroduce;
procedure _set(anArray : Array of ShortInt); external name 'set'; reintroduce;
procedure _set(anArray : Array of ShortInt; anOffset : NativeInt); external name 'set';
Property values[Index : Integer] : Shortint Read getTypedValue Write setTypedValue; default;
end;
@ -481,11 +481,11 @@ type
constructor new (buffer : TJSArrayBuffer);
constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
class function from(aValue : jsValue) : TJSUInt8Array;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt8Array;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt8Array;
class function _of(aValue : jsValue) : TJSUInt8Array; varargs;external name 'of';
procedure _set(anArray : Array of Byte); external name 'set';
class function from(aValue : jsValue) : TJSUInt8Array; reintroduce;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt8Array; reintroduce;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt8Array; reintroduce;
class function _of(aValue : jsValue) : TJSUInt8Array; varargs; external name 'of'; reintroduce;
procedure _set(anArray : Array of Byte); external name 'set'; reintroduce;
procedure _set(anArray : Array of Byte; anOffset : NativeInt); external name 'set';
Property values[Index : Integer] : Byte Read getTypedValue Write setTypedValue; default;
end;
@ -501,11 +501,11 @@ type
constructor new (buffer : TJSArrayBuffer);
constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
class function from(aValue : jsValue) : TJSUInt8ClampedArray;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt8ClampedArray;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt8ClampedArray;
class function _of(aValue : jsValue) : TJSUInt8ClampedArray; varargs;external name 'of';
procedure _set(anArray : Array of Byte); external name 'set';
class function from(aValue : jsValue) : TJSUInt8ClampedArray; reintroduce;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt8ClampedArray; reintroduce;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt8ClampedArray; reintroduce;
class function _of(aValue : jsValue) : TJSUInt8ClampedArray; varargs; external name 'of'; reintroduce;
procedure _set(anArray : Array of Byte); external name 'set'; reintroduce;
procedure _set(anArray : Array of Byte; anOffset : NativeInt); external name 'set';
Property values[Index : Integer] : Byte Read getTypedValue Write setTypedValue; default;
end;
@ -521,11 +521,11 @@ type
constructor new (buffer : TJSArrayBuffer);
constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
class function from(aValue : jsValue) : TJSInt16Array;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt16Array;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt16Array;
class function _of(aValue : jsValue) : TJSInt16Array; varargs; external name 'of';
procedure _set(anArray : Array of SmallInt); external name 'set';
class function from(aValue : jsValue) : TJSInt16Array; reintroduce;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt16Array; reintroduce;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt16Array; reintroduce;
class function _of(aValue : jsValue) : TJSInt16Array; varargs; external name 'of'; reintroduce;
procedure _set(anArray : Array of SmallInt); external name 'set'; reintroduce;
procedure _set(anArray : Array of SmallInt; anOffset : NativeInt); external name 'set';
Property values[Index : Integer] : SmallInt Read getTypedValue Write setTypedValue; default;
end;
@ -541,11 +541,11 @@ type
constructor new (buffer : TJSArrayBuffer);
constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
class function from(aValue : jsValue) : TJSUInt16Array;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt16Array;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt16Array;
class function _of(aValue : jsValue) : TJSUInt16Array; varargs; external name 'of';
procedure _set(anArray : Array of Word); external name 'set';
class function from(aValue : jsValue) : TJSUInt16Array; reintroduce;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt16Array; reintroduce;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt16Array; reintroduce;
class function _of(aValue : jsValue) : TJSUInt16Array; varargs; external name 'of'; reintroduce;
procedure _set(anArray : Array of Word); external name 'set'; reintroduce;
procedure _set(anArray : Array of Word; anOffset : NativeInt); external name 'set';
Property values[Index : Integer] : Word Read getTypedValue Write setTypedValue; default;
end;
@ -561,11 +561,11 @@ type
constructor new (buffer : TJSArrayBuffer);
constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
class function from(aValue : jsValue) : TJSInt32Array;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt32Array;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt32Array;
class function _of(aValue : jsValue) : TJSInt32Array; varargs;external name 'of';
procedure _set(anArray : Array of LongInt); external name 'set';
class function from(aValue : jsValue) : TJSInt32Array; reintroduce;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSInt32Array; reintroduce;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSInt32Array; reintroduce;
class function _of(aValue : jsValue) : TJSInt32Array; varargs;external name 'of'; reintroduce;
procedure _set(anArray : Array of LongInt); external name 'set'; reintroduce;
procedure _set(anArray : Array of LongInt; anOffset : NativeInt); external name 'set';
Property values[Index : Integer] : longint Read getTypedValue Write setTypedValue; default;
end;
@ -581,11 +581,11 @@ type
constructor new (buffer : TJSArrayBuffer);
constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
class function from(aValue : jsValue) : TJSUInt32Array;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt32Array;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt32Array;
class function _of(aValue : jsValue) : TJSUInt32Array; varargs; external name 'of';
procedure _set(anArray : Array of Cardinal); external name 'set';
class function from(aValue : jsValue) : TJSUInt32Array; reintroduce;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSUInt32Array; reintroduce;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSUInt32Array; reintroduce;
class function _of(aValue : jsValue) : TJSUInt32Array; varargs; external name 'of'; reintroduce;
procedure _set(anArray : Array of Cardinal); external name 'set'; reintroduce;
procedure _set(anArray : Array of Cardinal; anOffset : NativeInt); external name 'set';
Property values[Index : Integer] : LongWord Read getTypedValue Write setTypedValue; default;
end;
@ -601,12 +601,12 @@ type
constructor new (buffer : TJSArrayBuffer);
constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
class function from(aValue : jsValue) : TJSFloat32Array;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSFloat32Array;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSFloat32Array;
class function _of(aValue : jsValue) : TJSFloat32Array; varargs;
procedure _set(anArray : Array of Double); external name 'set';
procedure _set(anArray : Array of Double; anOffset : NativeInt); external name 'set';
class function from(aValue : jsValue) : TJSFloat32Array; reintroduce;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSFloat32Array; reintroduce;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSFloat32Array; reintroduce;
class function _of(aValue : jsValue) : TJSFloat32Array; varargs; reintroduce;
procedure _set(anArray : Array of Double); external name 'set'; reintroduce;
procedure _set(anArray : Array of Double; anOffset : NativeInt); external name 'set'; reintroduce;
Property values[Index : Integer] : Float32 Read getTypedValue Write setTypedValue; default;
end;
@ -621,12 +621,12 @@ type
constructor new (buffer : TJSArrayBuffer);
constructor new (buffer : TJSArrayBuffer; aByteOffset: NativeInt);
constructor new (buffer : TJSArrayBuffer; aByteOffset, aLength: NativeInt);
class function from(aValue : jsValue) : TJSFloat64Array;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSFloat64Array;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSFloat64Array;
class function _of(aValue : jsValue) : TJSFloat64Array; varargs;
procedure _set(anArray : Array of Double); external name 'set';
procedure _set(anArray : Array of Double; anOffset : NativeInt); external name 'set';
class function from(aValue : jsValue) : TJSFloat64Array; reintroduce;
class function from(aValue : jsValue; Map : TJSTypedArrayMapCallBack) : TJSFloat64Array; reintroduce;
class function from(aValue : jsValue; aMap : TJSTypedArrayMapEvent) : TJSFloat64Array; reintroduce;
class function _of(aValue : jsValue) : TJSFloat64Array; varargs; reintroduce;
procedure _set(anArray : Array of Double); external name 'set'; reintroduce;
procedure _set(anArray : Array of Double; anOffset : NativeInt); external name 'set'; reintroduce;
Property values[Index : Integer] : Float64 Read getTypedValue Write setTypedValue; default;
end;

2
packages/rtl/system.pas
View File

@ -178,7 +178,7 @@ type
function _AddRef: Integer; virtual;
function _Release: Integer; virtual;
public
constructor Create(const aController: IUnknown);
constructor Create(const aController: IUnknown); reintroduce;
property Controller: IUnknown read GetController;
end;

2
packages/rtl/sysutils.pas
View File

@ -592,7 +592,7 @@ function Supports(const AClass: TClass; const IID: TGuidString): Boolean; overlo
function TryStringToGUID(const s: string; out Guid: TGuid): Boolean;
function StringToGUID(const S: string): TGuid;
function GUIDToString(const guid: TGuid): string;
function GUIDToString(const guid: TGuid): string; reintroduce;
function IsEqualGUID(const guid1, guid2: TGuid): Boolean;
function GuidCase(const guid: TGuid; const List: array of TGuid): Integer;