paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-31 16:46:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Register TModuleSymbol

Browse Source
This commit is contained in:
pierre 2000-07-05 21:20:48 +00:00
parent 3d7d2eb25d
commit 8455b67858
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/browcol.pas
View File

@ -324,6 +324,12 @@ const
Load: @TReferenceCollection.Load; Load: @TReferenceCollection.Load;
Store: @TReferenceCollection.Store Store: @TReferenceCollection.Store
); );
RModuleSymbol: TStreamRec = (
ObjType: 3011;
VmtLink: Ofs(TypeOf(TModuleSymbol)^);
Load: @TModuleSymbol.Load;
Store: @TModuleSymbol.Store
);
{**************************************************************************** {****************************************************************************
Helpers Helpers
@ -2078,6 +2084,7 @@ begin
RegisterType(RIDSortedSymbolCollection); RegisterType(RIDSortedSymbolCollection);
RegisterType(RObjectSymbolCollection); RegisterType(RObjectSymbolCollection);
RegisterType(RReferenceCollection); RegisterType(RReferenceCollection);
RegisterType(RModuleSymbol);
end; end;
begin begin
@ -2086,7 +2093,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.42 2000-07-05 10:17:38 pierre Revision 1.43 2000-07-05 21:20:48 pierre
+ Register TModuleSymbol
Revision 1.42 2000/07/05 10:17:38 pierre
* avoid internalerror on open arrays * avoid internalerror on open arrays
Revision 1.41 2000/06/19 19:56:43 pierre Revision 1.41 2000/06/19 19:56:43 pierre