src/pmc/null.pmc

   1 /*
   2 Copyright (C) 2001-2010, Parrot Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 src/pmc/null.pmc - NULL
   8
   9 =head1 DESCRIPTION
  10
  11 This simply creates a way of catching C<NULL> register accesses without
  12 really slowing down the bytecode execution.
  13
  14 =cut
  15
  16 */
  17
  18 /* HEADERIZER HFILE: none */
  19 /* HEADERIZER BEGIN: static */
  20 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
  21
  22 PARROT_DOES_NOT_RETURN
  23 static void null_pmc_access(PARROT_INTERP, int index)
  24         __attribute__nonnull__(1);
  25
  26 #define ASSERT_ARGS_null_pmc_access __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
  27        PARROT_ASSERT_ARG(interp))
  28 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
  29 /* HEADERIZER END: static */
  30
  31 pmclass Null singleton {
  32
  33 /*
  34
  35 =head2 Vtable functions
  36
  37 =over 4
  38
  39 =item C<void init()>
  40
  41 Overrides the default to do nothing.
  42
  43 =cut
  44
  45 */
  46
  47     VTABLE void init() {
  48         UNUSED(INTERP)
  49     }
  50
  51     VTABLE void *get_pointer() {
  52         UNUSED(INTERP)
  53         return PMCNULL;
  54     }
  55
  56     VTABLE void set_pointer(void *p) {
  57         UNUSED(INTERP)
  58         PMCNULL = (PMC *)p;
  59     }
  60
  61     VTABLE INTVAL does(STRING *what) {
  62         UNUSED(INTERP)
  63         UNUSED(what)
  64         /* XXX maybe a hack to get TGE running again */
  65         return 0;
  66     }
  67
  68 /*
  69
  70 =item C<INTVAL is_same(PMC *value)>
  71
  72 Returns true if value is also a null PMC, false otherwise.
  73
  74 =cut
  75
  76 */
  77     VTABLE INTVAL is_same(PMC *value) {
  78         return PMC_IS_NULL(value);
  79     }
  80
  81 /*
  82
  83 =item C<PMC *find_method(STRING *method_name)>
  84
  85 Gives a more informative message than the automaticaly generated version.
  86
  87 =cut
  88
  89 */
  90
  91     VTABLE PMC *find_method(STRING *method_name) {
  92         Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_NULL_REG_ACCESS,
  93                 "Null PMC access in find_method('%Ss')",
  94                 method_name);
  95     }
  96
  97 }
  98
  99 /*
 100
 101 =back
 102
 103 =head2 Auxiliar functions
 104
 105 =over 4
 106
 107 =item C<static void null_pmc_access(PARROT_INTERP, int index)>
 108
 109 Throws the Null PMC access exception.
 110
 111 =cut
 112
 113 */
 114
 115 PARROT_DOES_NOT_RETURN
 116 static void
 117 null_pmc_access(PARROT_INTERP, int index)
 118 {
 119     ASSERT_ARGS(null_pmc_access)
 120     Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_NULL_REG_ACCESS,
 121             "Null PMC access in %s()",
 122             Parrot_get_vtable_name(interp, index));
 123 }
 124
 125 /*
 126
 127 =back
 128
 129 =cut
 130
 131 */
 132
 133 /*
 134  * Local variables:
 135  *   c-file-style: "parrot"
 136  * End:
 137  * vim: expandtab shiftwidth=4:
 138  */