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

rtl: less hints

Browse Source
This commit is contained in:
mattias 2018-05-01 22:20:40 +00:00
parent 7d36bee9b7
commit 8fc505f54d
5 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl/browserconsole.pas
View File

@ -1,6 +1,6 @@
unit browserconsole;
{$mode objfpc}{$H+}
{$mode objfpc}
interface

4
packages/rtl/dateutils.pas
View File

@ -1,8 +1,8 @@
{$mode objfpc}
{$h+}
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by the Free Pascal development team
Copyright (c) 2018 by the Free Pascal development team
Delphi/Kylix compatibility unit, provides Date/Time handling routines.

2
packages/rtl/hotreloadclient.pas
View File

@ -1,6 +1,6 @@
unit hotreloadclient;
{$mode objfpc}{$H+}
{$mode objfpc}
interface

14
packages/rtl/strutils.pas
View File

@ -2,7 +2,7 @@
Delphi/Kylix compatibility unit: String handling routines.
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2005 by the Free Pascal development team
Copyright (c) 2018 by the Free Pascal development team
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
@ -13,7 +13,7 @@
**********************************************************************}
{$mode objfpc}
{$h+}
{$inline on}
unit strutils;
@ -180,7 +180,7 @@ function Dec2Numb(N: Longint; Len, Base: Byte): string;
function Numb2Dec(S: string; Base: Byte): Longint;
function IntToBin(Value: Longint; Digits, Spaces: Integer): string;
function IntToBin(Value: Longint; Digits: Integer): string;
function intToBin(Value: int64; Digits:integer): string;
function IntToBin(Value: NativeInt; Digits:integer): string;
function IntToRoman(Value: Longint): string;
function TryRomanToInt(S: String; out N: LongInt; Strictness: TRomanConversionStrictness = rcsRelaxed): Boolean;
function RomanToInt(const S: string; Strictness: TRomanConversionStrictness = rcsRelaxed): Longint;
@ -590,6 +590,8 @@ begin
else
Result := 1;
end;
if ADecSeparator='' then ;
if aThousandSeparator='' then ;
end;
function NaturalCompareText (const S1 , S2 : string ): Integer ;
@ -1736,7 +1738,7 @@ begin
end;
end;
function intToBin(Value: int64; Digits:integer): string;
function IntToBin(Value: NativeInt; Digits:integer): string;
var
p,p2 : integer;
begin
@ -1747,10 +1749,10 @@ begin
p2:=1;
// typecasts because we want to keep intto* delphi compat and take a signed val
// and avoid warnings
while (p>=p2) and (qword(value)>0) do
while (p>=p2) and (value>0) do
begin
Result[p]:=chr(48+(cardinal(value) and 1));
value:=qword(value) shr 1;
value:=value div 2;
dec(p);
end;
digits:=p-p2+1;

1
packages/rtl/webrouter.pp
View File

@ -18,7 +18,6 @@
}
{$mode objfpc}
{$H+}
unit webrouter;