diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/data.c b/src/data.c index 3fb0fc0a190..d20db4dc3a3 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -881,7 +881,7 @@ DEFUN ("subr-native-comp-unit", Fsubr_native_comp_unit, | |||
| 881 | (Lisp_Object subr) | 881 | (Lisp_Object subr) |
| 882 | { | 882 | { |
| 883 | CHECK_SUBR (subr); | 883 | CHECK_SUBR (subr); |
| 884 | return XSUBR (subr)->native_comp_u; | 884 | return XSUBR (subr)->native_comp_u[0]; |
| 885 | } | 885 | } |
| 886 | 886 | ||
| 887 | DEFUN ("native-comp-unit-file", Fnative_comp_unit_file, | 887 | DEFUN ("native-comp-unit-file", Fnative_comp_unit_file, |
| @@ -919,10 +919,9 @@ Value, if non-nil, is a list (interactive SPEC). */) | |||
| 919 | 919 | ||
| 920 | if (SUBRP (fun)) | 920 | if (SUBRP (fun)) |
| 921 | { | 921 | { |
| 922 | #ifdef HAVE_NATIVE_COMP | ||
| 923 | if (SUBRP_NATIVE_COMPILEDP (fun) && XSUBR (fun)->native_intspec) | 922 | if (SUBRP_NATIVE_COMPILEDP (fun) && XSUBR (fun)->native_intspec) |
| 924 | return XSUBR (fun)->native_intspec; | 923 | return XSUBR (fun)->native_intspec; |
| 925 | #endif | 924 | |
| 926 | const char *spec = XSUBR (fun)->intspec; | 925 | const char *spec = XSUBR (fun)->intspec; |
| 927 | if (spec) | 926 | if (spec) |
| 928 | return list2 (Qinteractive, | 927 | return list2 (Qinteractive, |