/* hand-coded implementation part of JavaNull */
/* coding scheme version acc-2.1 */

/* Copyright 1989 - 1998 by the Opal Group, TU Berlin. All rights reserved 
   See OCSHOME/etc/LICENSE or 
   http://uebb.cs.tu-berlin.de/~opal/LICENSE.html for details
   $Date: 1998/06/16 16:00:28 $ ($Revision: 1.1.1.1 $)
*/
#include "JavaVM.h"


extern OBJ _AJavaNull_Anull_(OBJ x1) /* null? */
{
  int res = get_jobject(x1) == NULL;
  free_jobject(x1, 1);
  return pack_bool(res);
}

extern OBJ _AJavaNull_Anull__O1(OBJ x1) /* null?,1 */
{
  int res = tst_sflag(x1, null_sflag);
  free_denotation(x1, 1);
  return pack_bool(res);
}

static init_const_AJavaNull()
{}
