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

rtl: simplified TObject.MethodName

Browse Source
This commit is contained in:
mattias 2021-05-04 08:55:17 +00:00
parent e95f3a7f26
commit f50e3b21a8
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/rtl/system.pas
View File

@ -910,7 +910,6 @@ asm
return (aClass!=null) && ((this==aClass) || aClass.isPrototypeOf(this));
end;
Class function TObject.MethodName(aCode : Pointer) : String;
begin
@ -972,16 +971,13 @@ begin
Result:=Nil;
if aName='' then exit;
asm
var aClass = null;
var i = 0;
var aClass = this.$class;
var ClassTI = null;
var myName = aName.toLowerCase();
var MemberTI = null;
aClass = this.$class;
while (aClass !== null) {
ClassTI = aClass.$rtti;
for (var $l1 = 0, $end2 = ClassTI.fields.length - 1; $l1 <= $end2; $l1++) {
i = $l1;
for (var i = 0, $end2 = ClassTI.fields.length - 1; i <= $end2; i++) {
MemberTI = ClassTI.getField(i);
if (MemberTI.name.toLowerCase() === myName) {
return MemberTI;