#include "pmc.h"

PTR   __pascal setcb (SEGOFF *cb, PTR stub, REGSTRUCT *rs, REGSTRUCT *__pascal func (REGSTRUCT *r))
{
  int sa = 0;

  if (!stub)
    if (!(sa = (int)(stub = lomalloc (CBSTUBLEN))))
      return NULL;

  setcbstub (stub, func);

  if (xlt_rmcballoc (cb, (DWORD)rs, datasel, dcp (stub), codesel))
  {
    if (sa)
      lofree (stub);
    return NULL;
  }

  return stub;
}