mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-01 17:44:55 +02:00
+ Register TModuleSymbol
This commit is contained in:
parent
3d7d2eb25d
commit
8455b67858
@ -324,6 +324,12 @@ const
|
||||
Load: @TReferenceCollection.Load;
|
||||
Store: @TReferenceCollection.Store
|
||||
);
|
||||
RModuleSymbol: TStreamRec = (
|
||||
ObjType: 3011;
|
||||
VmtLink: Ofs(TypeOf(TModuleSymbol)^);
|
||||
Load: @TModuleSymbol.Load;
|
||||
Store: @TModuleSymbol.Store
|
||||
);
|
||||
|
||||
{****************************************************************************
|
||||
Helpers
|
||||
@ -2078,6 +2084,7 @@ begin
|
||||
RegisterType(RIDSortedSymbolCollection);
|
||||
RegisterType(RObjectSymbolCollection);
|
||||
RegisterType(RReferenceCollection);
|
||||
RegisterType(RModuleSymbol);
|
||||
end;
|
||||
|
||||
begin
|
||||
@ -2086,7 +2093,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$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
|
||||
|
||||
Revision 1.41 2000/06/19 19:56:43 pierre
|
||||
|
Loading…
Reference in New Issue
Block a user