asserts.hpp

Go to the documentation of this file.
00001 /* Copyright 1994 - 1996 LongView Technologies L.L.C. $Revision: 1.10 $ */
00002 /* Copyright (c) 2006, Sun Microsystems, Inc.
00003 All rights reserved.
00004 
00005 Redistribution and use in source and binary forms, with or without modification, are permitted provided that the 
00006 following conditions are met:
00007 
00008     * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
00009     * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following 
00010           disclaimer in the documentation and/or other materials provided with the distribution.
00011     * Neither the name of Sun Microsystems nor the names of its contributors may be used to endorse or promote products derived 
00012           from this software without specific prior written permission.
00013 
00014 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT 
00015 NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL 
00016 THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 
00017 (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
00018 INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE 
00019 OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE
00020 
00021 
00022 */
00023 
00024 // Bogosity alert:  for non-ANSI C, `obj' and `t' must not be separated
00025 //  by whitespace in either the parameters of the definition or
00026 //  the arguments of the call.  
00027 
00028 #define assert_type(obj,t,msg)                                               \
00029   assert(CONC(oop(obj)->is_,t()), msg)
00030 
00031 #define assert_mark(obj,msg)                                                 \
00032   assert_type(obj,mark,msg)
00033 
00034 #define assert_smi(obj,msg)                                                  \
00035   assert_type(obj,smi,msg)
00036 
00037 #define assert_mem(obj,msg)                                                  \
00038   assert_type(obj,mem,msg)
00039 
00040 #define assert_objArray(obj,msg)                                             \
00041   assert_type(obj,objArray,msg)
00042 
00043 #define assert_byteArray(obj,msg)                                            \
00044   assert_type(obj,byteArray,msg)
00045 
00046 #define assert_doubleByteArray(obj,msg)                                      \
00047   assert_type(obj,doubleByteArray,msg)
00048 
00049 #define assert_doubleValueArray(obj,msg)                                     \
00050   assert_type(obj,doubleValueArray,msg)
00051 
00052 #define assert_symbol(obj,msg)                                               \
00053   assert_type(obj,symbol,msg)
00054 
00055 #define assert_double(obj,msg)                                               \
00056   assert_type(obj,double,msg)
00057 
00058 #define assert_block(obj,msg)                                                \
00059   assert_type(obj,block,msg)
00060 
00061 #define assert_klass(obj,msg)                                                \
00062   assert_type(obj,klass,msg)
00063 
00064 #define assert_process(obj,msg)                                              \
00065   assert_type(obj,process,msg)
00066 
00067 #define assert_oop_aligned(p) \
00068   assert((int)(p) % 4 == 0, "not word aligned")
00069 
00070 
00071 #ifndef DEBUG
00072   #ifndef PRODUCT
00073     for now DEBUG should always be set in non-production versions  -Urs
00074   #endif
00075 #endif

Generated on Mon Oct 9 13:37:01 2006 for Strongtalk VM by  doxygen 1.4.7