OpenGrok

17 # It tests the mechanism exposing blocks to Guile.
19 load_lib gdb-guile.exp
37 gdb_scm_test_silent_cmd "guile (define frame (selected-frame))" \
39 gdb_scm_test_silent_cmd "guile (define block (frame-block frame))" \
41 gdb_test "guile (print block)" "#<gdb:block $hex-$hex>" \
43 gdb_test "guile (print (block-function block))" \
45 gdb_test "guile (print (block-start block))" \
47 gdb_test "guile (print (block-end block))" \
51 gdb_test "guile (print (eq? (frame-block frame) (frame-block frame)))" \
53 gdb_test "guile (print (eq? block (block-global-block block)))" \
57 gdb_scm_test_silent_cmd "guile (define frame (selected-frame))" \
59 gdb_scm_test_silent_cmd "guile (define block (frame-block frame))" \
61 gdb_test "guile (print (block-global? block))" \
63 gdb_test "guile (print (block-static? block))" \
65 gdb_scm_test_silent_cmd "guile (define gblock (block-global-block block))" \
67 gdb_scm_test_silent_cmd "guile (define sblock (block-static-block block))" \
69 gdb_test "guile (print (block-global? gblock))" \
71 gdb_test "guile (print (block-static? sblock))" \
75 gdb_test_no_output "guile (set! block (block-superblock block))" \
77 gdb_test "guile (print (block-function block))" \
79 gdb_test_no_output "guile (set! block (block-superblock block))" \
81 gdb_test "guile (print (block-function block))" \
86 gdb_scm_test_silent_cmd "guile (define frame (selected-frame))" \
88 gdb_scm_test_silent_cmd "guile (define block (frame-block frame))" \
90 gdb_test "guile (print block)" "#<gdb:block main $hex-$hex>" \
92 gdb_test "guile (print (block-function block))" \
98 gdb_scm_test_silent_cmd "guile (define frame (selected-frame))" \
100 gdb_scm_test_silent_cmd "guile (define block (frame-block frame))" \
102 gdb_test "guile (print (block-valid? block))" \
105 gdb_test "guile (print (block-valid? block))" \

Indexes created Thu Apr 30 00:23:01 UTC 2026