X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=blobdiff_plain;f=C%2FSYSTEM.h;h=f0d6a9fe0046a7ac139dccac7c8ba5c5d27614a1;hp=183da76118b1309c52c791a384689f08c8df0789;hb=b07755773426daadc49f10e36ce10bf0453eeda8;hpb=c1fd17bc2ea714224521a9ce5bfb55d11daa5645

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