paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 22:29:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* more fixes for TSymbol

Browse Source
This commit is contained in:
pierre 2000-03-08 12:25:29 +00:00
parent 8bea921be5
commit fadf943935
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/browcol.pas
View File

@ -92,6 +92,8 @@ type
VType : PString; VType : PString;
TypeID : longint; TypeID : longint;
RelatedTypeID : longint; RelatedTypeID : longint;
DebuggerCount : longint;
DebuggerValue : PString;
Ancestor : PSymbol; Ancestor : PSymbol;
Flags : longint; Flags : longint;
MemInfo : PSymbolMemInfo; MemInfo : PSymbolMemInfo;
@ -636,6 +638,8 @@ begin
S:=S+'('+Params^+')'; S:=S+'('+Params^+')';
if Assigned(VType) then if Assigned(VType) then
S:=S+': '+VType^; S:=S+': '+VType^;
if Assigned(DebuggerValue) then
S:=S+' = '+DebuggerValue^;
end; end;
GetText:=S; GetText:=S;
end; end;
@ -679,6 +683,8 @@ begin
Dispose(Items, Done); Dispose(Items, Done);
if assigned(Name) then if assigned(Name) then
DisposeStr(Name); DisposeStr(Name);
if assigned(DebuggerValue) then
DisposeStr(DebuggerValue);
{ if assigned(Params) then { if assigned(Params) then
DisposeStr(Params); DisposeStr(Params);
if assigned(VType) then if assigned(VType) then
@ -1043,6 +1049,10 @@ end;
Name:=Name+GetDefinitionStr(def^.elementtype.def); Name:=Name+GetDefinitionStr(def^.elementtype.def);
GetSetDefStr:=Name; GetSetDefStr:=Name;
end; end;
function GetPointerDefStr(def: ppointerdef): string;
begin
GetPointerDefStr:='^'+GetDefinitionStr(def^.pointertype.def);
end;
function GetDefinitionStr(def: pdef): string; function GetDefinitionStr(def: pdef): string;
var Name: string; var Name: string;
sym: psym; sym: psym;
@ -1264,6 +1274,7 @@ end;
begin begin
Symbol^.Flags:=(Symbol^.Flags or sfPointer); Symbol^.Flags:=(Symbol^.Flags or sfPointer);
Symbol^.RelatedTypeID:=longint(ppointerdef(restype.def)^.pointertype.def);{TypeNames^.Add(S);} Symbol^.RelatedTypeID:=longint(ppointerdef(restype.def)^.pointertype.def);{TypeNames^.Add(S);}
SetDType(Symbol,GetPointerDefStr(ppointerdef(restype.def)));
end; end;
filedef : filedef :
@ -1750,7 +1761,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.34 2000-03-07 21:55:59 pierre Revision 1.35 2000-03-08 12:25:29 pierre
* more fixes for TSymbol
Revision 1.34 2000/03/07 21:55:59 pierre
* Tsymbol and Ancestor fixes * Tsymbol and Ancestor fixes
Revision 1.33 2000/02/09 13:22:45 peter Revision 1.33 2000/02/09 13:22:45 peter