diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-04-29 06:05:49 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-04-29 06:05:49 -0700 |
| commit | 0b1a45f1d98b22d1e18345d2cab888276f5f227f (patch) | |
| tree | b2af2fe5396740fad1ad5b0c54ffa53d30ddfbe3 /unwind.c | |
| parent | 4f2f300bb835af37b86b8a1239bec6fb469b289f (diff) | |
| download | txr-0b1a45f1d98b22d1e18345d2cab888276f5f227f.tar.gz txr-0b1a45f1d98b22d1e18345d2cab888276f5f227f.tar.bz2 txr-0b1a45f1d98b22d1e18345d2cab888276f5f227f.zip | |
debugger: move uw-* symbols into sys package.
* unwind.c (uw_late_init): Move uw-block, uw-captured-block,
uw-menv, uw-catch, uw-handle, uw-cont-copy, uw-guard, uw-fcall
and uw-eval into the system package.
Diffstat (limited to 'unwind.c')
| -rw-r--r-- | unwind.c | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -1211,15 +1211,15 @@ void uw_late_init(void) reg_fun(sys_capture_cont_s = intern(lit("capture-cont"), system_package), func_n3o(uw_capture_cont, 2)); #if CONFIG_DEBUG_SUPPORT - reg_varl(intern(lit("uw-block"), user_package), num_fast(1U << UW_BLOCK)); - reg_varl(intern(lit("uw-captured-block"), user_package), num_fast(1U << UW_CAPTURED_BLOCK)); - reg_varl(intern(lit("uw-menv"), user_package), num_fast(1U <<UW_MENV)); - reg_varl(intern(lit("uw-catch"), user_package), num_fast(1U <<UW_CATCH)); - reg_varl(intern(lit("uw-handle"), user_package), num_fast(1U <<UW_HANDLE)); - reg_varl(intern(lit("uw-cont-copy"), user_package), num_fast(1U <<UW_CONT_COPY)); - reg_varl(intern(lit("uw-guard"), user_package), num_fast(1U <<UW_GUARD)); - reg_varl(intern(lit("uw-fcall"), user_package), num_fast(1U <<UW_FCALL)); - reg_varl(intern(lit("uw-eval"), user_package), num_fast(1U <<UW_EVAL)); + reg_varl(intern(lit("uw-block"), system_package), num_fast(1U << UW_BLOCK)); + reg_varl(intern(lit("uw-captured-block"), system_package), num_fast(1U << UW_CAPTURED_BLOCK)); + reg_varl(intern(lit("uw-menv"), system_package), num_fast(1U <<UW_MENV)); + reg_varl(intern(lit("uw-catch"), system_package), num_fast(1U <<UW_CATCH)); + reg_varl(intern(lit("uw-handle"), system_package), num_fast(1U <<UW_HANDLE)); + reg_varl(intern(lit("uw-cont-copy"), system_package), num_fast(1U <<UW_CONT_COPY)); + reg_varl(intern(lit("uw-guard"), system_package), num_fast(1U <<UW_GUARD)); + reg_varl(intern(lit("uw-fcall"), system_package), num_fast(1U <<UW_FCALL)); + reg_varl(intern(lit("uw-eval"), system_package), num_fast(1U <<UW_EVAL)); reg_fun(intern(lit("find-frames-by-mask"), user_package), func_n1(uw_find_frames_by_mask)); #endif uw_register_subtype(continue_s, restart_s); |