compiler/stdc/__stdc_assert.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     C99 assert() stdc.library support
   6 */
   7 #include <proto/exec.h>
   8 #include <proto/intuition.h>
   9 #include <aros/arossupportbase.h>
  10 #include <intuition/intuition.h>
  11 #include <aros/debug.h>
  12
  13 #include <stdlib.h>
  14
  15 #include "__optionallibs.h"
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20 #include <assert.h>
  21
  22         void __stdc_assert (
  23
  24 /*  SYNOPSIS */
  25         const char * expr,
  26         const char * file,
  27         unsigned int line)
  28
  29 /*  FUNCTION
  30         This is a function that is used for implementation of the C99 assert()
  31         function.
  32
  33     INPUTS
  34         expr - The expression to evaluate. The type of the expression does
  35                 not matter, only if its zero/NULL or not.
  36         file - Name of the source file.
  37         line - Line number of assert() call.
  38
  39     RESULT
  40         The function doesn't return.
  41
  42     NOTES
  43         Different versions of this function are available. This function
  44         is used when a program is using stdc.library but not
  45         stdcio.library or posixc.library.
  46         Because no normal DOS file I/O is available an attempt will be made
  47         to display the assertion in a requester and thus deviating from the
  48         C99 standard that says it to go to the error stream.
  49
  50     EXAMPLE
  51
  52     BUGS
  53
  54     SEE ALSO
  55         assert()
  56
  57     INTERNALS
  58
  59 ******************************************************************************/
  60 {
  61     if (__intuition_available())
  62     {
  63         struct EasyStruct es =
  64             {
  65                 sizeof(struct EasyStruct),
  66                 0,
  67                 (CONST_STRPTR)"Failed Assertion",
  68                 (CONST_STRPTR)"Assertion (%s) failed in %s:%u",
  69                 (CONST_STRPTR)"OK"
  70             };
  71         EasyRequest(NULL, &es, NULL, expr, file, line);
  72     }
  73     else
  74         kprintf("Assertion (%s) failed in %s:%u", expr, file, line);
  75
  76     abort();
  77 }
  78
  79