moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-13 12:55:05 -05:00
Code Issues Releases Wiki Activity

Simba/PS: Add Log10.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-03-03 09:21:35 +01:00
parent 3ba8059c66
commit e7bd74c271
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Units/MMLAddon/PSInc/Wrappers/math.inc
View File

@ -326,3 +326,8 @@ function DecRet(e: Extended): Extended; extdecl;
begin begin
result := e - Trunc(e); result := e - Trunc(e);
end; end;
function ps_log10(f: Extended): Extended; extdecl;
begin
result := log10(f);
end;

1
Units/MMLAddon/PSInc/psexportedmethods.inc
View File

@ -84,6 +84,7 @@ AddFunction(@ps_BinCoe,'function BinCoe(a, b: LongInt): Extended;');
AddFunction(@ps_FixD,'function FixD(Degrees : extended) : Extended;'); AddFunction(@ps_FixD,'function FixD(Degrees : extended) : Extended;');
AddFunction(@ps_InRange,'function InRange(const value,min,max : integer) : boolean;'); AddFunction(@ps_InRange,'function InRange(const value,min,max : integer) : boolean;');
AddFunction(@ps_logn,'function logn(base, x : extended): extended;'); AddFunction(@ps_logn,'function logn(base, x : extended): extended;');
AddFunction(@ps_log10,'function log10(f : extended): extended;');
AddFunction(@ps_ln,'function ln(x : extended) : extended;'); AddFunction(@ps_ln,'function ln(x : extended) : extended;');
AddFunction(@ps_inttohex,'function IntToHex(number : integer) : string'); AddFunction(@ps_inttohex,'function IntToHex(number : integer) : string');
AddFunction(@ps_hextoint,'function HexToInt(Hex : string) : integer'); AddFunction(@ps_hextoint,'function HexToInt(Hex : string) : integer');