Back to index

plt-scheme  4.2.1
funcs-common.h
Go to the documentation of this file.
00001 /******************************** -*- C -*- ****************************
00002  *
00003  *     Platform-independent layer inline functions (common part)
00004  *
00005  ***********************************************************************/
00006 
00007 
00008 /***********************************************************************
00009  *
00010  * Copyright 2000, 2001, 2002 Free Software Foundation, Inc.
00011  * Written by Paolo Bonzini.
00012  *
00013  * This file is part of GNU lightning.
00014  *
00015  * GNU lightning is free software; you can redistribute it and/or modify it
00016  * under the terms of the GNU Lesser General Public License as published
00017  * by the Free Software Foundation; either version 2.1, or (at your option)
00018  * any later version.
00019  * 
00020  * GNU lightning is distributed in the hope that it will be useful, but 
00021  * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
00022  * or  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
00023  * License for more details.
00024  * 
00025  * You should have received a copy of the GNU Lesser General Public License
00026  * along with GNU lightning; see the file COPYING.LESSER; if not, write to the
00027  * Free Software Foundation, 59 Temple Place - Suite 330, Boston,
00028  * MA 02111-1307, USA.
00029  *
00030  ***********************************************************************/
00031 
00032 #ifndef __lightning_funcs_common_h
00033 #define __lightning_funcs_common_h
00034 
00035 #include <stdio.h>
00036 #include <stdlib.h>
00037 
00038 static int jit_fail(const char *, const char*, int, const char *) JIT_UNUSED;
00039 
00040 int
00041 jit_fail(const char *msg, const char *file, int line, const char *function)
00042 {
00043   fprintf(stderr, "%s: In function `%s':\n", file, function);
00044   fprintf(stderr, "%s:%d: %s\n", file, line, msg);
00045   abort();
00046 }
00047 
00048 
00049 #ifndef jit_start_pfx
00050 #define jit_start_pfx()                 ( (jit_insn*)0x4)
00051 #define jit_end_pfx()                   ( (jit_insn*)0x0)
00052 #endif
00053 
00054 #endif /* __lightning_funcs_common_h */