Replaced lbRTTIs, lbNames, lbStrings (TListBox) with vtRTTI, vtName, …

…vtString (VirtualStringTree) Renamed unit TypeInfo to TypeInfos because of conflict with same called internal compiler function.
tmcdos · Jul 5, 2016 · 3b69482 · 3b69482
1 parent 6b98a1b
commit 3b69482
Show file tree

Hide file tree

Showing 10 changed files with 767 additions and 564 deletions.
diff --git a/Def_main.pas b/Def_main.pas
@@ -206,6 +206,19 @@   RContext = record
   end;
   PUnitNode = ^vtUnitNode;
 
+  vtNameNode = record
+    adr:Integer;
+    item_name,item_type:AnsiString;
+  End;
+  PNameNode = ^vtNameNode;
+
+  vtStringNode = record
+    adr:Integer;
+    item_name,item_type:AnsiString;
+    is_resource:Boolean;
+  End;
+  PStringNode = ^vtStringNode;
+
 Const
   USER_KNOWLEDGEBASE    = $80000000;
   SOURCE_LIBRARY        = $40000000;

diff --git a/Idr.dof b/Idr.dof
@@ -115,7 +115,7 @@ AutoIncBuild=0
 MajorVer=1
 MinorVer=0
 Release=0
-Build=1165
+Build=1218
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=1251
 [Version Info Keys]
 CompanyName=
 FileDescription=
-FileVersion=1.0.0.1165
+FileVersion=1.0.0.1218
 InternalName=
 LegalCopyright=
 LegalTrademarks=

diff --git a/Idr.dpr b/Idr.dpr
@@ -6,7 +6,7 @@ uses
   ExceptionLog,
   Forms,
   Classes,
-  TypeInfo in 'TypeInfo.pas' {FTypeInfo},
+  TypeInfos in 'TypeInfos.pas' {FTypeInfo},
   StringInfo in 'StringInfo.pas' {FStringInfo},
   Main in 'Main.pas' {FMain},
   Explorer in 'Explorer.pas' {FExplorer},

diff --git a/Idr.res b/Idr.res
diff --git a/Infos.pas b/Infos.pas
@@ -254,13 +254,13 @@   InfoRec = class
 Function InfoProcInfo.AddArg(_Tag:BYTE; Ofs, _Size:Integer; _Name, _TypeDef:AnsiString):PArgInfo;
 var
   F,L,M:Integer;
-  
+
   procedure NewRes;
   begin
     New(Result);
     with Result^ do
     begin
-      in_Reg:=False;
+      in_Reg:= Ofs In [0..3];
       Tag := _Tag;
       Ndx := Ofs;
       Size := _Size;
@@ -610,7 +610,6 @@   InfoRec = class
 var
   recX:PXRefRec;
   F,L,M:Integer;
-  s:AnsiString;
 
   Procedure NewRec;
   begin
@@ -1227,6 +1226,8 @@ procedure InfoRec.Load(ins:TStream; buf:Pointer);
   if Assigned(procInfo.args) then argsNum := procInfo.args.Count
     else argsNum := 0;
   num:=argsNum;
+  firstArg:=0;
+  callKind:=0;
   if num<>0 then
   Begin
     if (procInfo.flags and PF_ALLMETHODS)<>0 then
@@ -1267,8 +1268,8 @@ procedure InfoRec.Load(ins:TStream; buf:Pointer);
   if _abstract then Result:=Result + ' abstract;'
   else
   case callKind of
-    1: Result:=Result +' cdecl;';
-    2: Result:=Result +' pascal;';
+    1: Result:=Result + ' cdecl;';
+    2: Result:=Result + ' pascal;';
     3: Result:=Result + ' stdcall;';
     4: Result:=Result + ' safecall;';
   End;