1 | //===-- Implementation of strtol ------------------------------------------===// |
2 | // |
3 | // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. |
4 | // See https://llvm.org/LICENSE.txt for license information. |
5 | // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception |
6 | // |
7 | //===----------------------------------------------------------------------===// |
8 | |
9 | #include "src/stdlib/strtol.h" |
10 | #include "src/__support/common.h" |
11 | #include "src/__support/libc_errno.h" |
12 | #include "src/__support/macros/config.h" |
13 | #include "src/__support/str_to_integer.h" |
14 | |
15 | namespace LIBC_NAMESPACE_DECL { |
16 | |
17 | LLVM_LIBC_FUNCTION(long, strtol, |
18 | (const char *__restrict str, char **__restrict str_end, |
19 | int base)) { |
20 | auto result = internal::strtointeger<long>(str, base); |
21 | if (result.has_error()) |
22 | libc_errno = result.error; |
23 | |
24 | if (str_end != nullptr) |
25 | *str_end = const_cast<char *>(str + result.parsed_len); |
26 | |
27 | return result; |
28 | } |
29 | |
30 | } // namespace LIBC_NAMESPACE_DECL |
31 | |