diff options
Diffstat (limited to 'compiler/nobj.pas')
-rw-r--r-- | compiler/nobj.pas | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/nobj.pas b/compiler/nobj.pas index 7cc3832caf..a5af6188cf 100644 --- a/compiler/nobj.pas +++ b/compiler/nobj.pas @@ -30,7 +30,8 @@ interface cutils,cclasses, globtype, symdef,symsym, - aasmbase,aasmtai + aasmbase,aasmtai, + node ; type @@ -104,6 +105,8 @@ interface procedure gintfdoonintf(intf: tobjectdef; intfindex: longint); procedure gintfwalkdowninterface(intf: tobjectdef; intfindex: longint); public + invariant : tnode; + constructor create(c:tobjectdef); destructor destroy;override; { generates the message tables for a class } @@ -144,6 +147,7 @@ implementation begin inherited Create; _Class:=c; + invariant:=nil; end; |