paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 06:30:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* get it to compile again

Browse Source
This commit is contained in:
pierre 2000-11-02 15:01:22 +00:00
parent f6bfcc9cb7
commit fa52ad0aa2
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/browcol.pas
View File

@ -27,7 +27,10 @@ unit browcol;
interface
uses
cobjects,cutils,objects,symconst,symtable,cpuinfo;
cobjects,cutils,objects,
symbase,symconst,symdef,
symtable,symtype,symsym,
cpuinfo;
{$ifndef FPC}
type
@ -1149,7 +1152,7 @@ end;
procedure ProcessSymTable(OwnerSym: PSymbol; var Owner: PSymbolCollection; Table: PSymTable);
var I,J,defcount,symcount: longint;
Ref: PRef;
Sym,ParSym: PSym;
Sym,ParSym: PStoredSym;
Symbol: PSymbol;
Reference: PReference;
ParamCount: Sw_integer;
@ -1172,7 +1175,7 @@ end;
Count: sw_integer;
begin
Name:='(';
esym:=def^.Firstenum; Count:=0;
esym:=penumsym(def^.Firstenum); Count:=0;
while (esym<>nil) do
begin
if Count>0 then
@ -1424,7 +1427,7 @@ end;
Exit;
if Owner=nil then
Owner:=New(PSortedSymbolCollection, Init(10,50));
sym:=psym(Table^.symindex^.first);
sym:=PStoredSym(Table^.symindex^.first);
while assigned(sym) do
begin
ParamCount:=0;
@ -1569,7 +1572,7 @@ end;
end;
if Assigned(Symbol) then
Owner^.Insert(Symbol);
sym:=psym(sym^.indexnext);
sym:=pstoredsym(sym^.indexnext);
end;
end;
@ -2092,7 +2095,10 @@ begin
end.
{
$Log$
Revision 1.11 2000-10-31 22:02:46 peter
Revision 1.12 2000-11-02 15:01:22 pierre
* get it to compile again
Revision 1.11 2000/10/31 22:02:46 peter
* symtable splitted, no real code changes
Revision 1.10 2000/10/15 07:47:51 peter