Bug in TMS Scripter:atScript.pas.TatProperty.RTTIGetterProc

BIZ TMS Scripter
1

I use Delphi XE3 to generate 32 bit code.
atScript.TatProperty.RTTIGetterProc returns the wrong value for Int64 properties.
GetOrdProp returns a NativeInt which is a 32 bit integer when compiling a 32 bit application. If the type of the property is Int64, then the value returned is wrong as it cannot be held in a 32 bit integer.
I have added a special case for Int64:
...
tkInteger, tkChar, tkSet, tkWChar, tkClass:
ReturnOutputArg(GetOrdProp(CurrentObject, FPropInfo));
tkInt64:begin
ReturnOutputArg(GetInt64Prop(CurrentObject, FPropInfo));
end;
...
I think that this will be wrong for all compilers when generating 32 bit code.

2

Hi @Hartley_David. Thanks for reporting. Suggested fix will be included in next release.