Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Missing types in BT2S function.

Browse Source
This commit is contained in:
geby 2013-11-07 13:17:47 +01:00
parent 555cc40c27
commit 8109ae5384
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/uPSDisassembly.pas
View File

@ -69,7 +69,7 @@ var
btWideChar: Result := 'WideChar';
btWideString: Result := 'WideString';
{$ENDIF}
btSet: Result := 'Set';
btSet: Result := 'Set';
btSingle: Result := 'Single';
btDouble: Result := 'Double';
btExtended: Result := 'Extended';
@ -91,6 +91,13 @@ var
btClass: Result := 'Class';
btProcPtr: Result := 'ProcPtr';
btStaticArray: Result := 'StaticArray['+inttostR(TPSTypeRec_StaticArray(p).Size)+'] of '+BT2S(TPSTypeRec_Array(p).ArrayType);
btPChar: Result := 'PChar';
btCurrency: Result := 'Currency';
btUnicodeString: Result := 'UnicodeString';
btInterface: Result := 'Interface';
btType: Result := 'Type';
btEnum: Result := 'Enum';
btExtClass: Result := 'ExtClass';
else
Result := 'Unknown '+inttostr(p.BaseType);
end;