home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / msm-1 / common.sit / memory.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-09-19  |  564 b   |  35 lines  |  [TEXT/MPS ]
  1. /*
  2.  * memory.c -- functions to copy and fill memory.
  3.  */
  4.  
  5. #include "::h:gsupport.h"
  6.  
  7. #ifndef SysMem
  8. pointer memcopy(to, from, n)
  9.    register char *to, *from;
  10.    register word n;
  11.    {
  12.    register char *p = to;
  13.  
  14.    while (--n >= 0)
  15.       *to++ = *from++;
  16.  
  17.    return (pointer)p;
  18.    }
  19.  
  20. pointer memfill(to, con, n)
  21.    register char *to;
  22.    register int con;
  23.    register word n;
  24.    {
  25.    register char *p = to;
  26.  
  27.    while (--n >= 0)
  28.       *to++ = con;
  29.  
  30.    return (pointer)p;
  31.    }
  32. #else                    /* SysMem */
  33. static char x;                /* prevent empty module */
  34. #endif                    /* SysMem */
  35.