DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Исправлено обращение к полям при использовании каста. Процедуры INC/DEC больше не...
[dsw-obn.git]
/
src
/
oberon-common.c
1
#include <stdio.h>
2
#include <stdlib.h>
3
#include <stdarg.h>
4
5
#include
"oberon-internals.h"
6
7
void
8
oberon_error
(
oberon_context_t
*
ctx
,
const char
*
fmt
, ...)
9
{
10
va_list
ptr
;
11
va_start
(
ptr
,
fmt
);
12
printf
(
"
%s
: (
%i
:
%i
) "
,
ctx
->
loc
.
source
,
ctx
->
loc
.
line
,
ctx
->
loc
.
col
);
13
vprintf
(
fmt
,
ptr
);
14
printf
(
"
\n
"
);
15
va_end
(
ptr
);
16
exit
(
1
);
17
}