fix c89 support

[cpc.git] / C / SYSTEM.h

diff --git a/C/SYSTEM.h b/C/SYSTEM.h
index 183da76118b1309c52c791a384689f08c8df0789..f0d6a9fe0046a7ac139dccac7c8ba5c5d27614a1 100644 (file)
--- a/C/SYSTEM.h
+++ b/C/SYSTEM.h
@@ -10,7 +10,7 @@ bh 20.12.1999
 */\r
 \r
 \r
-#pragma warning(disable:4101)  // disable "unreferenced variable" warning\r
+#pragma warning(disable:4101)  /* disable "unreferenced variable" warning */\r
 \r
 #ifdef __GNUC__\r
 #  include <alloca.h>\r
@@ -18,7 +18,7 @@ bh 20.12.1999
 #include <malloc.h>\r
 #include <string.h>\r
 \r
-// extern char *memcpy();\r
+/* extern char *memcpy(); */\r
 \r
 #define export\r
 #define import extern\r
@@ -31,10 +31,10 @@ typedef signed char BYTE;
 typedef short SHORTINT;\r
 typedef int INTEGER;\r
 #if !defined(_WIN64) && ((__SIZEOF_POINTER__ == 8) || defined (_LP64) || defined(__LP64__))\r
-  typedef long LONGINT; // LP64\r
+  typedef long LONGINT; /* LP64 */\r
   typedef unsigned long __U_LONGINT;\r
 #else\r
-  typedef long long LONGINT; // ILP32 or LLP64\r
+  typedef long long LONGINT; /* ILP32 or LLP64 */\r
   typedef unsigned long long __U_LONGINT;\r
 #endif\r
 typedef float SHORTREAL;\r
@@ -250,10 +250,12 @@ extern void Kernel_Trap(INTEGER n);
 #define __MOVE(s, d, n)        memcpy((char*)(d),(char*)(s),n)\r
 \r
 /* std procs and operator mappings */\r
-// #define __SHORT(x, y)       ((int)((unsigned)(x)+(y)<(y)+(y)?(x):(__HALT(-8),0)))\r
-// #define __SHORTF(x, y)      ((int)(__RF((x)+(y),(y)+(y))-(y)))\r
-// #define __CHR(x)    ((CHAR)__R(x, 256))\r
-// #define __CHRF(x)   ((CHAR)__RF(x, 256))\r
+/*\r
+#define __SHORT(x, y)  ((int)((unsigned)(x)+(y)<(y)+(y)?(x):(__HALT(-8),0))) \r
+#define __SHORTF(x, y) ((int)(__RF((x)+(y),(y)+(y))-(y)))\r
+#define __CHR(x)       ((CHAR)__R(x, 256))\r
+#define __CHRF(x)      ((CHAR)__RF(x, 256))\r
+*/\r
 #define __DIV(x, y)    ((x)>=0?(x)/(y):~(~(x)/(y)))\r
 #define __DIVF(x, y)   SYSTEM_DIV(x,y)\r
 #define __DIVFL(x, y)  SYSTEM_DIVL(x,y)\r
@@ -328,7 +330,9 @@ extern void Kernel_Trap(INTEGER n);
 /* runtime checks */\r
 #define __X(i, ub)     (((unsigned)(i)<(unsigned)(ub))?i:(__HALT(-7),0))\r
 #define __XF(i, ub)     SYSTEM_XCHK((INTEGER)(i), (INTEGER)(ub))\r
-// #define __RETCHK    __retchk: __HALT(-3)\r
+/*\r
+#define __RETCHK       __retchk: __HALT(-3)\r
+*/\r
 #define __RETCHK       __HALT(-3)\r
 #define __CASECHK      __HALT(-2)\r
 #define __GUARDP(p, typ, level)        ((typ*)(__ISP(p,typ,level)?p:(__HALT(-4),p)))\r