SF.net SVN: frontierkernel: [1401] Frontier/branches/Int64/Common/source

[<kar...@us...>]

Revision: 1401
Author:   karstenw
Date:     2006-06-12 11:23:45 -0700 (Mon, 12 Jun 2006)
ViewCVS:  http://svn.sourceforge.net/frontierkernel/?rev=1401&view=rev

Log Message:
-----------
more detail work

Modified Paths:
--------------
    Frontier/branches/Int64/Common/SystemHeaders/standard.h
    Frontier/branches/Int64/Common/UserLandIACToolkit/landinternal.h
    Frontier/branches/Int64/Common/resources/Mac/kernelverbs.r
    Frontier/branches/Int64/Common/source/langstartup.c
    Frontier/branches/Int64/Common/source/shellfile.c
    Frontier/branches/Int64/build_XCode/FrontierFat_i64.xcodeproj/project.pbxproj
Modified: Frontier/branches/Int64/Common/SystemHeaders/standard.h
===================================================================
--- Frontier/branches/Int64/Common/SystemHeaders/standard.h	2006-06-06 19:57:02 UTC (rev 1400)
+++ Frontier/branches/Int64/Common/SystemHeaders/standard.h	2006-06-12 18:23:45 UTC (rev 1401)
@@ -156,6 +156,13 @@
 
 #define infinity 32767
 #define longinfinity (long)0x7FFFFFFF
+
+#if LONGINT_LONGDATE == 1 // beyondinfinity kernel constant
+
+#define beyondinfinity (tylonglongint)0x7FFFFFFFFFFFFFFF
+
+#endif
+
 #define intinfinity 32767
 #define intminusinfinity -32768
 

Modified: Frontier/branches/Int64/Common/UserLandIACToolkit/landinternal.h
===================================================================
--- Frontier/branches/Int64/Common/UserLandIACToolkit/landinternal.h	2006-06-06 19:57:02 UTC (rev 1400)
+++ Frontier/branches/Int64/Common/UserLandIACToolkit/landinternal.h	2006-06-12 18:23:45 UTC (rev 1401)
@@ -64,6 +64,12 @@
 
 	#define longinfinity (long)0x7FFFFFFF
 
+#if LONGINT_LONGDATE == 1 // beyondinfinity kernel constant
+
+#define beyondinfinity (tylonglongint)0x7FFFFFFFFFFFFFFF
+
+#endif
+
 	#define	stringlength(bs) ((bs)[0])
 
 	#define setstringlength(bs,len) (bs[0]=(char)len)

Modified: Frontier/branches/Int64/Common/resources/Mac/kernelverbs.r
===================================================================
--- Frontier/branches/Int64/Common/resources/Mac/kernelverbs.r	2006-06-06 19:57:02 UTC (rev 1400)
+++ Frontier/branches/Int64/Common/resources/Mac/kernelverbs.r	2006-06-12 18:23:45 UTC (rev 1401)
@@ -329,6 +329,11 @@
 		"packwindow",
 		"unpackwindow",
 		"callscript"
+#if LONGINT_LONGDATE == 1	/* in lang.builtins verbnames */
+		,"sint64"
+		,"longdatetime"
+#endif
+			
 		},
 	
 	"clock", false, {

Modified: Frontier/branches/Int64/Common/source/langstartup.c
===================================================================
--- Frontier/branches/Int64/Common/source/langstartup.c	2006-06-06 19:57:02 UTC (rev 1400)
+++ Frontier/branches/Int64/Common/source/langstartup.c	2006-06-12 18:23:45 UTC (rev 1401)
@@ -503,6 +503,21 @@
 	} /*langaddlongconst*/
 
 
+#if LONGINT_LONGDATE == 1
+	// UNTESTED
+	// LONGLONGINTCONSTRUCTIONSITE
+static boolean langaddlonglongintconst( bigstring bs, tylonglongint x) {
+
+	/* 2006-06-11 kw: new. for longinfinity constant */
+	tyvaluerecord val;
+
+	setlonglongintvalue ( x, &val);
+
+	return (hashinsertcstring (bs, &val));
+	} /* langaddlonglongintconst */
+#endif
+			
+
 static boolean langaddstringconst (bigstring bs, bigstring x) {
 	
 	tyvaluerecord val;
@@ -568,6 +583,14 @@
 
 #define addlong(x,y) if (!langaddlongconst ((ptrstring) x, y)) return (false)
 
+#if LONGINT_LONGDATE == 1 // addlonglong macro
+
+	// 2006-06-11 kw: I hereby officially protest against the usage of macros disguised as functions!
+
+#	define addlonglong(x,y) if (!langaddlonglongintconst ((ptrstring) x, y)) return (false)
+
+#endif
+
 #define addint(x,y) if (!langaddintconst ((ptrstring) x, y)) return (false)
 
 #define adddirection(x,y) if (!langadddirectionconst ((ptrstring) x, y)) return (false)
@@ -599,7 +622,13 @@
 	addnil ("nil");
 	
 	addlong ("infinity", longinfinity);
-	
+
+#if LONGINT_LONGDATE == 1 // beyondinfinity usertalk constant
+
+	addlonglong ("beyondinfinity", beyondinfinity);
+
+#endif
+
 	adddirection ("up", up);
 	
 	adddirection ("down", down);

Modified: Frontier/branches/Int64/Common/source/shellfile.c
===================================================================
--- Frontier/branches/Int64/Common/source/shellfile.c	2006-06-06 19:57:02 UTC (rev 1400)
+++ Frontier/branches/Int64/Common/source/shellfile.c	2006-06-12 18:23:45 UTC (rev 1401)
@@ -349,6 +349,7 @@
 	else
 		shellpartialeventloop (updateMask);
 
+#if 0	// 2006-06-11 kw: disabled due to grayed out menu bar
 #ifdef MACVERSION /*7.0b16 PBS: only Macs get grayed windows. Fix for Windows display glitch.*/
 	#if TARGET_API_MAC_CARBON
 	{
@@ -361,6 +362,7 @@
 	#endif
 
 #endif
+#endif
 	} /*prepuserforwait*/
 
 

Modified: Frontier/branches/Int64/build_XCode/FrontierFat_i64.xcodeproj/project.pbxproj
===================================================================
--- Frontier/branches/Int64/build_XCode/FrontierFat_i64.xcodeproj/project.pbxproj	2006-06-06 19:57:02 UTC (rev 1400)
+++ Frontier/branches/Int64/build_XCode/FrontierFat_i64.xcodeproj/project.pbxproj	2006-06-12 18:23:45 UTC (rev 1401)
@@ -3632,7 +3632,7 @@
 				GCC_PREPROCESSOR_DEFINITIONS = NDEBUG;
 				GCC_REUSE_STRINGS = NO;
 				GCC_SHORT_ENUMS = NO;
-				GCC_WARN_ABOUT_MISSING_PROTOTYPES = YES;
+				GCC_WARN_ABOUT_MISSING_PROTOTYPES = NO;
 				GCC_WARN_HIDDEN_VIRTUAL_FUNCTIONS = NO;
 				GCC_WARN_UNKNOWN_PRAGMAS = YES;
 				GCC_WARN_UNUSED_FUNCTION = NO;
@@ -3836,7 +3836,7 @@
 				GCC_ENABLE_FIX_AND_CONTINUE = NO;
 				GCC_OPTIMIZATION_LEVEL = 2;
 				GCC_STRICT_ALIASING = NO;
-				GCC_UNROLL_LOOPS = YES;
+				GCC_UNROLL_LOOPS = NO;
 				GCC_WARN_ABOUT_DEPRECATED_FUNCTIONS = NO;
 				GCC_WARN_ABOUT_POINTER_SIGNEDNESS = NO;
 				GCC_WARN_ALLOW_INCOMPLETE_PROTOCOL = NO;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.