src/pmc/null.pmc

   1 /*
   2 Copyright (C) 2001-2007, 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 =head2 Methods
  15
  16 =over 4
  17
  18 =cut
  19
  20 */
  21
  22 PARROT_DOES_NOT_RETURN
  23 static void
  24 null_pmc_access(PARROT_INTERP, int index)
  25 {
  26     Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_NULL_REG_ACCESS,
  27             "Null PMC access in %s()",
  28             Parrot_get_vtable_name(interp, index));
  29 }
  30
  31 pmclass Null singleton {
  32
  33 /*
  34
  35 =item C<void init()>
  36
  37 Overrides the default to do nothing.
  38
  39 =cut
  40
  41 */
  42
  43     VTABLE void init() {
  44         UNUSED(interp)
  45     }
  46
  47     VTABLE void *get_pointer() {
  48         UNUSED(interp)
  49         return PMCNULL;
  50     }
  51
  52     VTABLE void set_pointer(void *p) {
  53         UNUSED(interp)
  54         PMCNULL = (PMC *)p;
  55     }
  56
  57     VTABLE INTVAL does(STRING *what) {
  58         UNUSED(interp)
  59         UNUSED(what)
  60         /* XXX maybe a hack to get TGE running again */
  61         return 0;
  62     }
  63
  64 /*
  65
  66 =item C<INTVAL is_same(PMC *value)>
  67
  68 Returns true if value is also a null PMC, false otherwise.
  69
  70 =cut
  71
  72 */
  73     VTABLE INTVAL is_same(PMC *value) {
  74         return PMC_IS_NULL(value);
  75     }
  76
  77 /*
  78
  79 =item C<PMC *find_method(STRING *method_name)>
  80
  81 =cut
  82
  83 Gives a more informative message than the automaticaaly generated version.
  84
  85 */
  86
  87     VTABLE PMC *find_method(STRING *method_name) {
  88         Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_NULL_REG_ACCESS,
  89                 "Null PMC access in find_method('%Ss')",
  90                 method_name);
  91     }
  92
  93 }
  94
  95 /*
  96
  97 =back
  98
  99 =cut
 100
 101 */
 102
 103 /*
 104  * Local variables:
 105  *   c-file-style: "parrot"
 106  * End:
 107  * vim: expandtab shiftwidth=4:
 108  */