*call destructor at exit

git-svn-id: trunk@8763 -

packages/base/gdbint/testgdb.pp

@@ -50,5 +50,6 @@ begin
        last:=s;
      end;
   until false;
+  gdb.done;
   Writeln('End of pascal GDB...');
 end.