source: libcfa/src/virtual.c@ a5294af

//
// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
//
// virtual.c --
//
// Author           : Andrew Beach
// Created On       : Tus Jul 11 15:10:00 2017
// Last Modified By : Andrew Beach
// Last Modified On : Mon May 17 11:01:00 2021
// Update Count     : 2
//

#include "virtual.h"
#include "assert.h"

#pragma GCC visibility push(default)

int __cfavir_is_parent(
                __cfavir_type_id parent,
                __cfavir_type_id child ) {
        assert( child );
        do {
                if ( parent == child )
                        return 1;
                child = child->parent;
        } while ( child );
        return 0;
}

void * __cfavir_virtual_cast(
                __cfavir_type_id parent,
                __cfavir_type_id const * child ) {
        assert( child );
        return (__cfavir_is_parent(parent, *child)) ? (void *)child : (void *)0;
}