mirror of
https://git.kernel.org/pub/scm/linux/kernel/git/stable/linux.git
synced 2024-08-26 19:00:25 +00:00
![Fabian Hemmer](/assets/img/avatar_default.png)
Some OCaml developers reported that this bit of information is sometimes useful for disambiguating functions for which the OCaml compiler assigns the same name, e.g. nested or inlined functions. Signed-off-by: Fabian Hemmer <copy@copy.sh> Link: http://lore.kernel.org/lkml/20210226075223.p3s5oz4jbxwnqjtv@nyu Signed-off-by: Arnaldo Carvalho de Melo <acme@redhat.com>
43 lines
1.1 KiB
C
43 lines
1.1 KiB
C
// SPDX-License-Identifier: GPL-2.0
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include "tests.h"
|
|
#include "session.h"
|
|
#include "debug.h"
|
|
#include "demangle-ocaml.h"
|
|
|
|
int test__demangle_ocaml(struct test *test __maybe_unused, int subtest __maybe_unused)
|
|
{
|
|
int ret = TEST_OK;
|
|
char *buf = NULL;
|
|
size_t i;
|
|
|
|
struct {
|
|
const char *mangled, *demangled;
|
|
} test_cases[] = {
|
|
{ "main",
|
|
NULL },
|
|
{ "camlStdlib__array__map_154",
|
|
"Stdlib.array.map_154" },
|
|
{ "camlStdlib__anon_fn$5bstdlib$2eml$3a334$2c0$2d$2d54$5d_1453",
|
|
"Stdlib.anon_fn[stdlib.ml:334,0--54]_1453" },
|
|
{ "camlStdlib__bytes__$2b$2b_2205",
|
|
"Stdlib.bytes.++_2205" },
|
|
};
|
|
|
|
for (i = 0; i < ARRAY_SIZE(test_cases); i++) {
|
|
buf = ocaml_demangle_sym(test_cases[i].mangled);
|
|
if ((buf == NULL && test_cases[i].demangled != NULL)
|
|
|| (buf != NULL && test_cases[i].demangled == NULL)
|
|
|| (buf != NULL && strcmp(buf, test_cases[i].demangled))) {
|
|
pr_debug("FAILED: %s: %s != %s\n", test_cases[i].mangled,
|
|
buf == NULL ? "(null)" : buf,
|
|
test_cases[i].demangled == NULL ? "(null)" : test_cases[i].demangled);
|
|
ret = TEST_FAIL;
|
|
}
|
|
free(buf);
|
|
}
|
|
|
|
return ret;
|
|
}
|