Added a define to not register default types and methods.
set plugins to nil before calling inherited. git-svn-id: http://code.remobjects.com/svn/pascalscript@12 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
parent
4296cc05a4
commit
0012a67f38
@ -11030,8 +11030,10 @@ begin
|
||||
fModule:='System';
|
||||
FUses.Add('SYSTEM');
|
||||
{$ENDIF}
|
||||
{$IFNDEF PS_NOSTANDARDTYPES}
|
||||
DefineStandardTypes;
|
||||
DefineStandardProcedures;
|
||||
{$ENDIF}
|
||||
if @FOnUses <> nil then
|
||||
begin
|
||||
try
|
||||
|
@ -662,6 +662,7 @@ begin
|
||||
FPP.Free;
|
||||
RI.Free;
|
||||
FPlugins.Free;
|
||||
FPlugins := nil;
|
||||
FScript.Free;
|
||||
FExec.Free;
|
||||
FComp.Free;
|
||||
|
Loading…
Reference in New Issue
Block a user