mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-20 18:21:47 +03:00
17 lines
397 B
C
17 lines
397 B
C
|
#include "idris_util.h"
|
||
|
|
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <stdarg.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();
|
||
|
|
}
|