File: debug.c

package info (click to toggle)
squeak-vm 1%3A4.10.2.2614-4.1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 13,284 kB
  • ctags: 15,344
  • sloc: ansic: 75,096; cs: 11,191; objc: 5,494; sh: 3,170; asm: 1,533; cpp: 449; pascal: 372; makefile: 366; awk: 103
file content (44 lines) | stat: -rw-r--r-- 823 bytes parent folder | download | duplicates (7)
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
#include "debug.h"

#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>

void __sq_debugf(const char *fmt, ...)
{
  va_list ap;
  va_start(ap, fmt);
  vprintf(fmt, ap);
  va_end(ap);
}

void __sq_assert(char *file, int line, char *func, char *expr)
{
  __sq_errfile= file;
  __sq_errline= line;
  __sq_errfunc= func;
  __sq_eprintf("assertion failed: %s\n", expr);
  abort();
}

char *__sq_errfile;
int   __sq_errline;
char *__sq_errfunc;

void __sq_eprintf(const char *fmt, ...)
{
  va_list ap;
  char *file= strrchr(__sq_errfile, '/');
  file= file ? file + 1 : __sq_errfile;
  va_start(ap, fmt);
  fprintf(stderr, "%s(%d): %s:\n", file, __sq_errline, __sq_errfunc);
  fprintf(stderr, "%s(%d): ", file, __sq_errline);
  vfprintf(stderr, fmt, ap);
  va_end(ap);
}


void sqDebugAnchor(void)
{
}