paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 20:19:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* StoreBrowserCol changed to boolean function

Browse Source
This commit is contained in:
pierre 2000-01-20 00:24:06 +00:00
parent 08cb7daa9f
commit 627683b64d
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/browcol.pas
View File

@ -189,7 +189,7 @@ procedure InitBrowserCol;
procedure DoneBrowserCol;
function LoadBrowserCol(S: PStream): boolean;
procedure StoreBrowserCol(S: PStream);
function StoreBrowserCol(S: PStream) : boolean;
procedure BuildObjectInfo;
@ -1664,7 +1664,7 @@ begin
end;
end;
procedure StoreBrowserCol(S: PStream);
function StoreBrowserCol(S: PStream) : boolean;
procedure WriteSymbolPointers(P: PSymbol); {$ifndef FPC}far;{$endif}
var I: sw_integer;
begin
@ -1684,6 +1684,7 @@ begin
StorePointers(S,TypeNames);
StorePointers(S,Modules);
Modules^.ForEach(@WriteSymbolPointers);
StoreBrowserCol:=(S^.Status=stOK);
end;
procedure RegisterSymbols;
@ -1706,7 +1707,10 @@ begin
end.
{
$Log$
Revision 1.31 2000-01-07 01:14:19 peter
Revision 1.32 2000-01-20 00:24:06 pierre
* StoreBrowserCol changed to boolean function
Revision 1.31 2000/01/07 01:14:19 peter
* updated copyright to 2000
Revision 1.30 1999/12/01 11:11:19 pierre
@ -1799,4 +1803,4 @@ end.
Revision 1.2 1999/01/21 11:49:14 peter
* updates from gabor
}
}