瀏覽代碼

* breakage due to fields after methods change fixed.

git-svn-id: trunk@13336 -
marco 16 年之前
父節點
當前提交
3ffd12f9fb
共有 1 個文件被更改,包括 3 次插入2 次删除
  1. 3 2
      packages/gdbint/src/gdbint.pp

+ 3 - 2
packages/gdbint/src/gdbint.pp

@@ -459,6 +459,9 @@ type
     last_breakpoint_line : longint;
     last_breakpoint_file : pchar;
     invalid_breakpoint_line : boolean;
+    user_screen_shown,
+    switch_to_user     : boolean;
+
     { init }
     constructor init;
     destructor  done;
@@ -475,8 +478,6 @@ type
     function  set_current_frame(level : longint) : boolean;
     procedure clear_frames;
     { Highlevel }
-    user_screen_shown,
-    switch_to_user     : boolean;
     procedure GetAddrSyminfo(addr:ptrint;var si:tsyminfo);
     procedure SelectSourceline(fn:pchar;line:longint);
     procedure StartSession;