diff options
author | Mike Pall <mike> | 2011-06-07 21:37:24 +0200 |
---|---|---|
committer | Mike Pall <mike> | 2011-06-07 21:37:24 +0200 |
commit | 585cf05dbd54564d2d3387cef09b3ac2d5e52afd (patch) | |
tree | d455c80e6d916ae2673d8aaaee50f0ba77d0b92a /src/lib_base.c | |
parent | b44ccd426339a9eb0da83633d4b71a23dac29762 (diff) | |
download | luajit-585cf05dbd54564d2d3387cef09b3ac2d5e52afd.tar.gz luajit-585cf05dbd54564d2d3387cef09b3ac2d5e52afd.tar.bz2 luajit-585cf05dbd54564d2d3387cef09b3ac2d5e52afd.zip |
Move debugging/introspection functionality to lj_debug.c.
Diffstat (limited to 'src/lib_base.c')
-rw-r--r-- | src/lib_base.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/lib_base.c b/src/lib_base.c index 8c71ae32..f8975986 100644 --- a/src/lib_base.c +++ b/src/lib_base.c | |||
@@ -18,6 +18,7 @@ | |||
18 | #include "lj_obj.h" | 18 | #include "lj_obj.h" |
19 | #include "lj_gc.h" | 19 | #include "lj_gc.h" |
20 | #include "lj_err.h" | 20 | #include "lj_err.h" |
21 | #include "lj_debug.h" | ||
21 | #include "lj_str.h" | 22 | #include "lj_str.h" |
22 | #include "lj_tab.h" | 23 | #include "lj_tab.h" |
23 | #include "lj_meta.h" | 24 | #include "lj_meta.h" |
@@ -89,7 +90,7 @@ LJLIB_CF(getfenv) | |||
89 | cTValue *o = L->base; | 90 | cTValue *o = L->base; |
90 | if (!(o < L->top && tvisfunc(o))) { | 91 | if (!(o < L->top && tvisfunc(o))) { |
91 | int level = lj_lib_optint(L, 1, 1); | 92 | int level = lj_lib_optint(L, 1, 1); |
92 | o = lj_err_getframe(L, level, &level); | 93 | o = lj_debug_frame(L, level, &level); |
93 | if (o == NULL) | 94 | if (o == NULL) |
94 | lj_err_arg(L, 1, LJ_ERR_INVLVL); | 95 | lj_err_arg(L, 1, LJ_ERR_INVLVL); |
95 | } | 96 | } |
@@ -110,7 +111,7 @@ LJLIB_CF(setfenv) | |||
110 | setgcref(L->env, obj2gco(t)); | 111 | setgcref(L->env, obj2gco(t)); |
111 | return 0; | 112 | return 0; |
112 | } | 113 | } |
113 | o = lj_err_getframe(L, level, &level); | 114 | o = lj_debug_frame(L, level, &level); |
114 | if (o == NULL) | 115 | if (o == NULL) |
115 | lj_err_arg(L, 1, LJ_ERR_INVLVL); | 116 | lj_err_arg(L, 1, LJ_ERR_INVLVL); |
116 | } | 117 | } |