Browse Source

Removed obsolete constants

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7803 8c9fc860-2736-0410-a75d-ab315db34111
eth.negelef 7 years ago
parent
commit
37202ce778
1 changed files with 3 additions and 19 deletions
  1. 3 19
      source/FoxBasic.Mod

+ 3 - 19
source/FoxBasic.Mod

@@ -28,24 +28,8 @@ CONST
 	InitListSize = 4;
 	InitListSize = 4;
 	InitErrMsgSize = 300;	(* initial size of array of error messages *)
 	InitErrMsgSize = 300;	(* initial size of array of error messages *)
 
 
-	(* value of constant NIL *)
-	nilval* = 0;
-
-	ExportedUnicodeSupport* = FALSE;
-
-	(* target machine minimum values of basic types expressed in host machine format: *)
-	MinSInt* = -80H;
-	MinInt* = -8000H;
-	MinLInt* = -80000000H;   (* i386: -2147483648*)
-
-	(* target machine maximum values of basic types expressed in host machine format: *)
-	MaxSInt* = 7FH;
-	MaxInt* = 7FFFH;
-	MaxLInt* = 7FFFFFFFH;   (* i386: 2147483647*)
-	MaxSet* = 31;   (* must be >= 15, else the bootstraped compiler cannot run (IN-tests) *)
-
-	invalidString*=-1;
-	InvalidCode*=Diagnostics.Invalid;
+	invalidString* = -1;
+	InvalidCode* = Diagnostics.Invalid;
 TYPE
 TYPE
 	(*
 	(*
 	String* = POINTER TO ARRAY OF CHAR;
 	String* = POINTER TO ARRAY OF CHAR;
@@ -2342,4 +2326,4 @@ END FoxBasic.
 FoxBasic.ActivateDebug ~
 FoxBasic.ActivateDebug ~
 
 
 
 
-FoxBasic.Test ~
+FoxBasic.Test ~