tests/tbs/tb0002.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

{ Old file: tbs0003.pp }
{  dito                                                OK 0.9.2 }

unit tb0002;

  interface

  implementation


    procedure dump_stack(bp : longint);

      function get_next_frame(bp : longint) : longint;

        begin
        end;

      begin
      end;

end.