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

rtl: clean up

Browse Source
This commit is contained in:
mattias 2019-01-30 16:52:56 +00:00
parent e86dfef5de
commit 9f11002d42
1 changed files with 0 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
packages/rtl/system.pas
View File

@ -289,14 +289,6 @@ procedure val(const S: String; out C : Cardinal; out Code: Integer); overload;
procedure val(const S: String; out d : double; out Code : Integer); overload;
procedure val(const S: String; out b : boolean; out Code: Integer); overload;
function StringOfChar(c: Char; l: NativeInt): String;
function Lo(i: word): byte; overload;
function Lo(i: smallint): byte; overload;
function Lo(i: longword): word; overload;
function Lo(i: longint): word; overload;
function Hi(i: word): byte; overload;
function Hi(i: smallint): byte; overload;
function Hi(i: longword): word; overload;
function Hi(i: longint): word; overload;
{*****************************************************************************
Other functions
@ -625,46 +617,6 @@ begin
for i:=1 to l do Result:=Result+c;
end;
function Lo(i: word): byte;
begin
Result:=i and $ff;
end;
function Lo(i: smallint): byte;
begin
Result:=i and $ff;
end;
function Lo(i: longword): word;
begin
Result:=i and $ffff;
end;
function Lo(i: longint): word;
begin
Result:=i and $ffff;
end;
function Hi(i: word): byte;
begin
Result:=(i shr 8) and $ff;
end;
function Hi(i: smallint): byte;
begin
Result:=(i shr 8) and $ff;
end;
function Hi(i: longword): word;
begin
Result:=(i shr 16) and $ffff;
end;
function Hi(i: longint): word;
begin
Result:=(i shr 16) and $ffff;
end;
function Assigned(const V: JSValue): boolean; assembler;
asm
return (V!=undefined) && (V!=null) && (!rtl.isArray(V) || (V.length > 0));