_fs2slong.c

很少见的源码公开的msc51和z80的c编译器。

#include <limits.h>

/* convert float to signed long */
signed long __fs2slong (float f) {

  if (!f)
    return 0;

  if (f<0) {
    if (f<=LONG_MIN)
      return LONG_MIN;
    return -__fs2ulong(-f);
  } else {
    if (f>=LONG_MAX)
      return LONG_MAX;
    return __fs2ulong(f);
  }
}