OberonCore

ivan@ivan-laptop:~/xds/lib/x86$ make -f lib.mkf
gcc  -D_unix -D_linux -DX2C_no_spawn -DX2C_strcmp -DX2C_native_library -O2 -fno-strength-reduce -I../../include -c -o ../../C/X2C.o ../../C/X2C.c
../../C/X2C.c:192:24: error: linux/user.h: No such file or directory
In file included from ../../C/X2C.c:193:
/usr/include/asm/sigcontext.h:56: error: redefinition of ‘struct _fpreg’
/usr/include/asm/sigcontext.h:61: error: redefinition of ‘struct _fpxreg’
/usr/include/asm/sigcontext.h:67: error: redefinition of ‘struct _xmmreg’
/usr/include/asm/sigcontext.h:71: error: redefinition of ‘struct _fpstate’
/usr/include/asm/sigcontext.h:104: error: redefinition of ‘struct sigcontext’
../../C/X2C.c: In function ‘fp_error’:
../../C/X2C.c:797: error: invalid use of undefined type ‘struct user_i387_struct’
../../C/X2C.c:798: error: invalid use of undefined type ‘struct user_i387_struct’
../../C/X2C.c: In function ‘X2C_SIGSEGV_handler’:
../../C/X2C.c:821: warning: passing argument 2 of ‘signal’ from incompatible pointer type
/usr/include/signal.h:101: note: expected ‘__sighandler_t’ but argument is of type ‘void (*)(int,  struct sigcontext)’
../../C/X2C.c: In function ‘X2C_BEGIN’:
../../C/X2C.c:908: warning: passing argument 2 of ‘signal’ from incompatible pointer type
/usr/include/signal.h:101: note: expected ‘__sighandler_t’ but argument is of type ‘void (*)(int,  struct sigcontext)’
make: *** [../../C/X2C.o] Ошибка 1

/* Set the handler for the signal SIG to HANDLER, returning the old
   handler, or SIG_ERR on error.
   By default `signal' has the BSD semantic.  */
__BEGIN_NAMESPACE_STD
#ifdef __USE_BSD
extern __sighandler_t signal (int __sig, __sighandler_t __handler)
     __THROW;
#else
/* Make sure the used `signal' implementation is the SVID version. */
# ifdef __REDIRECT_NTH
extern __sighandler_t __REDIRECT_NTH (signal,
                  (int __sig, __sighandler_t __handler),
                  __sysv_signal);
# else
#  define signal __sysv_signal
# endif
#endif
__END_NAMESPACE_STD

 By default `signal' has the BSD semantic.  */

/* Make sure the used `signal' implementation is the SVID version. */

00000000   23 21 2F 75  73 72 2F 6C  69 62 2F 6F  62 63 2F 6F  #!/usr/lib/obc/o
00000010   62 78 6A 0A  2A B5 05 2A  F2 F4 2A 93  F2 F4 2A 18  bxj.*..*..*...*.

00000000   7F 45 4C 46  01 01 01 00  00 00 00 00  00 00 00 00  .ELF............
00000010   02 00 03 00  01 00 00 00  20 8D 04 08  34 00 00 00  ........ ...4...

(* icode -- type of intermediate instructions *)
type icode =
    CONST of kind * value       (* Push constant (value) *)
  | SYMBOL of symbol
  | LOCAL of int                (* Push address (offset) *)
  | LOAD of int                 (* Load (size) *)
  | STORE of int                (* Store (size) *)
  | FIXCOPY                     (* Copy multiple values *)
  | FLEXCOPY                    (* Copy open array param *)
  | DUP of int                  (* Duplicate n'th value on stack (n) *)
  | POP of int                  (* Pop values (count) *)
  | SWAP                        (* Swap top two values on stack *)
  | STKMAP of symbol            (* Stack map for call point *)
  | CALL of int * int           (* Proc call (pcount, res size) *)
  | LINK                        (* Pass static link *)
  | SAVELINK                    (* Save static link in frame *)
  | RETURN of int               (* Return from procedure (rsize) *)
  | MONOP of kind * op          (* Unary operation (type, op) *)
  | BINOP of kind * op          (* Binary operation *)
  | CONV of kind * kind         (* Type conversion *)
  | ALIGN of int                (* Align parameter (size) *)
  | BOUND of int                (* Array bound check (line) *)
  | NCHECK of int               (* Check for null pointer (line) *)
  | GCHECK of int               (* Check statlink is zero (line) *)
  | ZCHECK of kind * int        (* Check for zero divisor (line) *)
  | ERROR of int * int          (* Runtime error (kind, line) *)
  | JUMP of codelab             (* Unconditional branch (dest) *)
  | JUMPB of bool * codelab     (* Jump on boolean *)
  | JUMPC of kind * op * codelab  (* Cond. branch (type, cond, dest) *)
  | JCASE of codelab list       (* Case jump *)
  | JRANGE of codelab           (* Range jump *)
  | TYPETEST of int             (* Type test (level) *)
  | LABEL of codelab            (* Set code label *)
  | LINE of int                 (* Line number *)
  | NOP                         (* No-op *)

  | LDK of int * int            (* Load constant (value, size) *)
  | INDEX of int                (* PUSH s/BINOP Times/BINOP PlusA *)
  | LDL of int * int            (* LOCAL n/LOAD s *)
  | STL of int * int            (* LOCAL n/STORE s *)
  | LDG of int * int            (* CONST k/LOAD s *)
  | STG of int * int            (* CONST k/STORE s *)
  | LDI of int                  (* INDEX s/LOAD s *)
  | STI of int                  (* INDEX s/STORE s *)
  | LDNW of int                 (* PUSH n/LDI 4 *)
  | STNW of int                 (* PUSH n/STI 4 *)
  | LDEW of int                 (* LDLW 12/LDNW n *)
  | STEW of int                 (* LDLW 12/STNW n *)
  | INCL of int                 (* LDLW n/INC/STLW n *)
  | DECL of int                 (* LDLW n/DEC/STLW n *)
  | JUMPCZ of kind * op * codelab  (* PUSH 0/JUMPC *)
  | TESTGEQ of codelab          (* Case split = DUP 1/JUMPC Lt *)