anchor.diff:  
   procedure TExitCommand.Execute;
   begin
  -  Writeln('>> TExitComand.Execute');
  +  DebugLn('>> TExitComand.Execute');
     fpgApplication.Terminated := True;
   end;
   
  
positive.code:     result := integer(e_nointerface);
  end;
  
  function TNullInterfacedObject._AddRef: longint; stdcall;
  begin
    Result := -1;
  end;
  
  function TNullInterfacedObject._Release: longint; stdcall;
  begin
    Result := -1;
  end;
  
negative.code:   
  type
    // non reference counted interface
    TNullInterfacedObject = class(TObject, IUnknown)
    protected
      function QueryInterface(constref iid : tguid;out obj) : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
      function _AddRef : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
      function _Release : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
    end;
  
  
  