home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / SOFTWARE / LIBS / PMC101.ZIP / LIBSRC.ZIP / SETCB.C (.txt) < prev    next >
C/C++ Source or Header  |  1994-06-24  |  413b  |  23 lines
  1. #include "pmc.h"
  2.  
  3. PTR   __pascal setcb (SEGOFF *cb, PTR stub, REGSTRUCT *rs, REGSTRUCT *__pascal func (REGSTRUCT *r))
  4. {
  5.   int sa = 0;
  6.  
  7.   if (!stub)
  8.     if (!(sa = (int)(stub = lomalloc (CBSTUBLEN))))
  9.       return NULL;
  10.  
  11.   setcbstub (stub, func);
  12.  
  13.   if (xlt_rmcballoc (cb, (DWORD)rs, datasel, dcp (stub), codesel))
  14.   {
  15.     if (sa)
  16.       lofree (stub);
  17.     return NULL;
  18.   }
  19.  
  20.   return stub;
  21. }
  22.  
  23.