mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-01 01:09:03 +03:00
19 lines
421 B
C
19 lines
421 B
C
#include "idris_util.h"
|
|
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
void idris2_verify_failed(const char *file, int line, const char *cond,
|
|
const char *fmt, ...) {
|
|
va_list ap;
|
|
va_start(ap, fmt);
|
|
|
|
char message[1000];
|
|
snprintf(message, sizeof(message), fmt, ap);
|
|
|
|
fprintf(stderr, "assertion failed in %s:%d: %s: %s\n", file, line, cond,
|
|
message);
|
|
abort();
|
|
}
|