1 //===- llvm/Support/LEB128.h - [SU]LEB128 utility functions -----*- C++ -*-===//
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 // This file declares some utility functions for encoding SLEB128 and
10 // ULEB128 values.
11 //
12 //===----------------------------------------------------------------------===//
13 
14 #ifndef LLVM_SUPPORT_LEB128_H
15 #define LLVM_SUPPORT_LEB128_H
16 
17 #include "llvm/Support/raw_ostream.h"
18 
19 namespace llvm {
20 
21 /// Utility function to encode a SLEB128 value to an output stream. Returns
22 /// the length in bytes of the encoded value.
23 inline unsigned encodeSLEB128(int64_t Value, raw_ostream &OS,
24                               unsigned PadTo = 0) {
25   bool More;
26   unsigned Count = 0;
27   do {
28     uint8_t Byte = Value & 0x7f;
29     // NOTE: this assumes that this signed shift is an arithmetic right shift.
30     Value >>= 7;
31     More = !((((Value == 0 ) && ((Byte & 0x40) == 0)) ||
32               ((Value == -1) && ((Byte & 0x40) != 0))));
33     Count++;
34     if (More || Count < PadTo)
35       Byte |= 0x80; // Mark this byte to show that more bytes will follow.
36     OS << char(Byte);
37   } while (More);
38 
39   // Pad with 0x80 and emit a terminating byte at the end.
40   if (Count < PadTo) {
41     uint8_t PadValue = Value < 0 ? 0x7f : 0x00;
42     for (; Count < PadTo - 1; ++Count)
43       OS << char(PadValue | 0x80);
44     OS << char(PadValue);
45     Count++;
46   }
47   return Count;
48 }
49 
50 /// Utility function to encode a SLEB128 value to a buffer. Returns
51 /// the length in bytes of the encoded value.
52 inline unsigned encodeSLEB128(int64_t Value, uint8_t *p, unsigned PadTo = 0) {
53   uint8_t *orig_p = p;
54   unsigned Count = 0;
55   bool More;
56   do {
57     uint8_t Byte = Value & 0x7f;
58     // NOTE: this assumes that this signed shift is an arithmetic right shift.
59     Value >>= 7;
60     More = !((((Value == 0 ) && ((Byte & 0x40) == 0)) ||
61               ((Value == -1) && ((Byte & 0x40) != 0))));
62     Count++;
63     if (More || Count < PadTo)
64       Byte |= 0x80; // Mark this byte to show that more bytes will follow.
65     *p++ = Byte;
66   } while (More);
67 
68   // Pad with 0x80 and emit a terminating byte at the end.
69   if (Count < PadTo) {
70     uint8_t PadValue = Value < 0 ? 0x7f : 0x00;
71     for (; Count < PadTo - 1; ++Count)
72       *p++ = (PadValue | 0x80);
73     *p++ = PadValue;
74   }
75   return (unsigned)(p - orig_p);
76 }
77 
78 /// Utility function to encode a ULEB128 value to an output stream. Returns
79 /// the length in bytes of the encoded value.
80 inline unsigned encodeULEB128(uint64_t Value, raw_ostream &OS,
81                               unsigned PadTo = 0) {
82   unsigned Count = 0;
83   do {
84     uint8_t Byte = Value & 0x7f;
85     Value >>= 7;
86     Count++;
87     if (Value != 0 || Count < PadTo)
88       Byte |= 0x80; // Mark this byte to show that more bytes will follow.
89     OS << char(Byte);
90   } while (Value != 0);
91 
92   // Pad with 0x80 and emit a null byte at the end.
93   if (Count < PadTo) {
94     for (; Count < PadTo - 1; ++Count)
95       OS << '\x80';
96     OS << '\x00';
97     Count++;
98   }
99   return Count;
100 }
101 
102 /// Utility function to encode a ULEB128 value to a buffer. Returns
103 /// the length in bytes of the encoded value.
104 inline unsigned encodeULEB128(uint64_t Value, uint8_t *p,
105                               unsigned PadTo = 0) {
106   uint8_t *orig_p = p;
107   unsigned Count = 0;
108   do {
109     uint8_t Byte = Value & 0x7f;
110     Value >>= 7;
111     Count++;
112     if (Value != 0 || Count < PadTo)
113       Byte |= 0x80; // Mark this byte to show that more bytes will follow.
114     *p++ = Byte;
115   } while (Value != 0);
116 
117   // Pad with 0x80 and emit a null byte at the end.
118   if (Count < PadTo) {
119     for (; Count < PadTo - 1; ++Count)
120       *p++ = '\x80';
121     *p++ = '\x00';
122   }
123 
124   return (unsigned)(p - orig_p);
125 }
126 
127 /// Utility function to decode a ULEB128 value.
128 inline uint64_t decodeULEB128(const uint8_t *p, unsigned *n = nullptr,
129                               const uint8_t *end = nullptr,
130                               const char **error = nullptr) {
131   const uint8_t *orig_p = p;
132   uint64_t Value = 0;
133   unsigned Shift = 0;
134   if (error)
135     *error = nullptr;
136   do {
137     if (end && p == end) {
138       if (error)
139         *error = "malformed uleb128, extends past end";
140       if (n)
141         *n = (unsigned)(p - orig_p);
142       return 0;
143     }
144     uint64_t Slice = *p & 0x7f;
145     if (Shift >= 64 || Slice << Shift >> Shift != Slice) {
146       if (error)
147         *error = "uleb128 too big for uint64";
148       if (n)
149         *n = (unsigned)(p - orig_p);
150       return 0;
151     }
152     Value += uint64_t(*p & 0x7f) << Shift;
153     Shift += 7;
154   } while (*p++ >= 128);
155   if (n)
156     *n = (unsigned)(p - orig_p);
157   return Value;
158 }
159 
160 /// Utility function to decode a SLEB128 value.
161 inline int64_t decodeSLEB128(const uint8_t *p, unsigned *n = nullptr,
162                              const uint8_t *end = nullptr,
163                              const char **error = nullptr) {
164   const uint8_t *orig_p = p;
165   int64_t Value = 0;
166   unsigned Shift = 0;
167   uint8_t Byte;
168   if (error)
169     *error = nullptr;
170   do {
171     if (end && p == end) {
172       if (error)
173         *error = "malformed sleb128, extends past end";
174       if (n)
175         *n = (unsigned)(p - orig_p);
176       return 0;
177     }
178     Byte = *p++;
179     Value |= (uint64_t(Byte & 0x7f) << Shift);
180     Shift += 7;
181   } while (Byte >= 128);
182   // Sign extend negative numbers if needed.
183   if (Shift < 64 && (Byte & 0x40))
184     Value |= (-1ULL) << Shift;
185   if (n)
186     *n = (unsigned)(p - orig_p);
187   return Value;
188 }
189 
190 /// Utility function to get the size of the ULEB128-encoded value.
191 extern unsigned getULEB128Size(uint64_t Value);
192 
193 /// Utility function to get the size of the SLEB128-encoded value.
194 extern unsigned getSLEB128Size(int64_t Value);
195 
196 } // namespace llvm
197 
198 #endif // LLVM_SYSTEM_LEB128_H
199