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

rtl: GUIDToString simplified

Browse Source
This commit is contained in:
mattias 2018-04-25 00:21:05 +00:00
parent 3f0b7322ad
commit ce883581ac
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/rtl/system.pas
View File

@ -192,7 +192,7 @@ const
{ for safe as operator support } { for safe as operator support }
IObjectInstance: TGuid = '{D91C9AF4-3C93-420F-A303-BF5BA82BFD23}'; IObjectInstance: TGuid = '{D91C9AF4-3C93-420F-A303-BF5BA82BFD23}';
function GUIDToString(const GUID: TGUID): string; overload; function GUIDToString(const GUID: TGUID): string; external name 'rtl.guidrToStr';
{***************************************************************************** {*****************************************************************************
Init / Exit / ExitProc Init / Exit / ExitProc
@ -292,11 +292,6 @@ asm
return s1.toLowerCase() == s2.toLowerCase(); return s1.toLowerCase() == s2.toLowerCase();
end; end;
function GUIDToString(const GUID: TGUID): string; assembler;
asm
return rtl.guidrToStr(GUID);
end;
function ParamCount: Longint; function ParamCount: Longint;
begin begin
if Assigned(OnParamCount) then if Assigned(OnParamCount) then