1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
/*
* Copyright 2016 WebAssembly Community Group participants
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
#include "wasm-ast-parser-lexer-shared.h"
#include <stdarg.h>
#include <stdio.h>
#include <string.h>
void wasm_ast_parser_error(WasmLocation* loc,
WasmAstLexer* lexer,
WasmAstParser* parser,
const char* format,
...) {
parser->errors++;
va_list args;
va_start(args, format);
wasm_ast_format_error(parser->error_handler, loc, lexer, format, args);
va_end(args);
}
void wasm_ast_format_error(WasmSourceErrorHandler* error_handler,
const struct WasmLocation* loc,
WasmAstLexer* lexer,
const char* format,
va_list args) {
va_list args_copy;
va_copy(args_copy, args);
char fixed_buf[WASM_DEFAULT_SNPRINTF_ALLOCA_BUFSIZE];
char* buffer = fixed_buf;
size_t len = wasm_vsnprintf(fixed_buf, sizeof(fixed_buf), format, args);
if (len + 1 > sizeof(fixed_buf)) {
buffer = alloca(len + 1);
len = wasm_vsnprintf(buffer, len + 1, format, args_copy);
}
char* source_line = NULL;
size_t source_line_length = 0;
int source_line_column_offset = 0;
size_t source_line_max_length = error_handler->source_line_max_length;
if (loc && lexer) {
source_line = alloca(source_line_max_length + 1);
WasmResult result = wasm_ast_lexer_get_source_line(
lexer, loc, source_line_max_length, source_line, &source_line_length,
&source_line_column_offset);
if (WASM_FAILED(result)) {
/* if this fails, it means that we've probably screwed up the lexer. blow
* up. */
WASM_FATAL("error getting the source line.\n");
}
}
if (error_handler->on_error) {
error_handler->on_error(loc, buffer, source_line, source_line_length,
source_line_column_offset,
error_handler->user_data);
}
va_end(args_copy);
}
void wasm_destroy_exported_func(WasmAllocator* allocator,
WasmExportedFunc* exported_func) {
wasm_destroy_export(allocator, &exported_func->export_);
wasm_free(allocator, exported_func->func);
}
void wasm_destroy_text_list(WasmAllocator* allocator, WasmTextList* text_list) {
WasmTextListNode* node = text_list->first;
while (node) {
WasmTextListNode* next = node->next;
wasm_destroy_string_slice(allocator, &node->text);
wasm_free(allocator, node);
node = next;
}
}
|
