diff options
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/fileio.c b/src/fileio.c index e522dd93cd6..db7c491e1a1 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -523,7 +523,7 @@ file_name_directory (Lisp_Object filename) else { dostounix_filename (beg); - tem_fn = make_specified_string (beg, -1, p - beg, 0); + tem_fn = make_unibyte_string (beg, p - beg); } SAFE_FREE (); return tem_fn; @@ -3907,7 +3907,7 @@ union read_non_regular } s; GCALIGNED_UNION_MEMBER }; -verify (GCALIGNED (union read_non_regular)); +static_assert (GCALIGNED (union read_non_regular)); static Lisp_Object read_non_regular (Lisp_Object state) @@ -5742,7 +5742,7 @@ DEFUN ("car-less-than-car", Fcar_less_than_car, Scar_less_than_car, 2, 2, 0, Lisp_Object ca = Fcar (a), cb = Fcar (b); if (FIXNUMP (ca) && FIXNUMP (cb)) return XFIXNUM (ca) < XFIXNUM (cb) ? Qt : Qnil; - return arithcompare (ca, cb, ARITH_LESS); + return arithcompare (ca, cb) & Cmp_LT ? Qt : Qnil; } /* Build the complete list of annotations appropriate for writing out @@ -6317,7 +6317,7 @@ A non-nil CURRENT-ONLY argument means save only current buffer. */) continue; enum { growth_factor = 4 }; - verify (BUF_BYTES_MAX <= EMACS_INT_MAX / growth_factor); + static_assert (BUF_BYTES_MAX <= EMACS_INT_MAX / growth_factor); set_buffer_internal (b); if (NILP (Vauto_save_include_big_deletions) |