Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/runtime/Mk/mkSmallIntegerU.c

Copyright © 2021 Plan 9 Foundation.
Distributed under the MIT License.
Download the Plan 9 distribution.


#include "mk.h"

NodePtr nhc_mkSmallIntegerU(Int i)
{
  NodePtr n;

  if(i) {
      n = C_ALLOC(1+EXTRA+1);
      n[0] = CONSTRW(1,0);
      INIT_PROFINFO(n,&dummyProfInfo)
      n[EXTRA+1] = i;
    } else  {
      n = C_ALLOC(1+EXTRA);
      n[0] = CONSTRW(0,0);
      INIT_PROFINFO(n,&dummyProfInfo)
    }
  return n;
}

Bell Labs OSI certified Powered by Plan 9

(Return to Plan 9 Home Page)

Copyright © 2021 Plan 9 Foundation. All Rights Reserved.
Comments to [email protected].