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:
carlokok 2006-09-12 15:07:27 +00:00
parent 4296cc05a4
commit 0012a67f38
2 changed files with 3 additions and 0 deletions

View File

@ -11030,8 +11030,10 @@ begin
fModule:='System';
FUses.Add('SYSTEM');
{$ENDIF}
{$IFNDEF PS_NOSTANDARDTYPES}
DefineStandardTypes;
DefineStandardProcedures;
{$ENDIF}
if @FOnUses <> nil then
begin
try

View File

@ -662,6 +662,7 @@ begin
FPP.Free;
RI.Free;
FPlugins.Free;
FPlugins := nil;
FScript.Free;
FExec.Free;
FComp.Free;