* removed explicit range_checking as it is buggy

compiler/cg386cnv.pas

@@ -64,7 +64,7 @@ implementation
          { lets try to generate it allways }
          if (cs_check_range in aktlocalswitches)  and
            { with $R+ explicit type conversations in TP aren't range checked! }
-           (not(p^.explizit) or not(cs_tp_compatible in aktmoduleswitches)) and
+           (not(p^.explizit) {or not(cs_tp_compatible in aktmoduleswitches)}) and
            ((porddef(p1)^.low>porddef(p2)^.low) or
            (porddef(p1)^.high<porddef(p2)^.high) or
            (porddef(p1)^.typ=u32bit) or
@@ -163,7 +163,7 @@ implementation
          { problems with enums !! }
          if (cs_check_range in aktlocalswitches)  and
            { with $R+ explicit type conversations in TP aren't range checked! }
-           (not(p^.explizit) or not(cs_tp_compatible in aktmoduleswitches)) and
+           (not(p^.explizit) {or not(cs_tp_compatible in aktmoduleswitches)}) and
            (p^.resulttype^.deftype=orddef) and
            (hp^.resulttype^.deftype=orddef) then
            begin
@@ -1252,7 +1252,13 @@ implementation
 end.
 {
   $Log$
-  Revision 1.17  1998-09-04 08:41:38  peter
+  Revision 1.18  1998-09-11 12:29:40  pierre
+    * removed explicit range_checking as it is buggy
+
+  Revision 1.17.2.1  1998/09/11 12:08:54  pierre
+    * removed explicit range_check was buggy
+
+  Revision 1.17  1998/09/04 08:41:38  peter
     * updated some error messages
 
   Revision 1.16  1998/09/03 17:39:03  florian

compiler/cg68k.pas

@@ -2276,7 +2276,7 @@ implementation
            (porddef(p^.resulttype)^.high<porddef(hp^.resulttype)^.high)) then
            begin
               if (cs_check_range in aktlocalswitches) and
-                 (not(p^.explizit) or not(cs_tp_compatible in aktmoduleswitches)) then
+                 (not(p^.explizit){ or not(cs_tp_compatible in aktmoduleswitches)}) then
               porddef(p^.resulttype)^.genrangecheck;
               if porddef(hp^.resulttype)^.typ=s32bit then
                 begin
@@ -2317,7 +2317,7 @@ implementation
               else internalerror(6);
 
               if (cs_check_range in aktlocalswitches) and
-                 (not(p^.explizit) or not(cs_tp_compatible in aktmoduleswitches)) then
+                 (not(p^.explizit) {or not(cs_tp_compatible in aktmoduleswitches)}) then
               Begin
               new(hpp);
               reset_reference(hpp^);
@@ -5505,7 +5505,13 @@ end.
 
 {
   $Log$
-  Revision 1.15  1998-08-31 12:26:21  peter
+  Revision 1.16  1998-09-11 12:29:41  pierre
+    * removed explicit range_checking as it is buggy
+
+  Revision 1.15.2.1  1998/09/11 12:08:55  pierre
+    * removed explicit range_check was buggy
+
+  Revision 1.15  1998/08/31 12:26:21  peter
     * m68k and palmos updates from surebugfixes
 
   Revision 1.14  1998/08/19 16:07:39  jonas

compiler/cg68kcnv.pas

@@ -63,7 +63,7 @@ implementation
            { lets try to generate it allways }
            if (cs_check_range in aktlocalswitches)  and
              { with $R+ explicit type conversations in TP aren't range checked! }
-             (not(p^.explizit) or not(cs_tp_compatible in aktmoduleswitches)) and
+             (not(p^.explizit) {or not(cs_tp_compatible in aktmoduleswitches)}) and
              ((porddef(p1)^.low>porddef(p2)^.low) or
              (porddef(p1)^.high<porddef(p2)^.high) or
              (porddef(p1)^.typ=u32bit) or
@@ -205,7 +205,7 @@ implementation
            (porddef(p^.resulttype)^.high<porddef(hp^.resulttype)^.high)) then
            begin
               if (cs_check_range in aktlocalswitches) and
-                 (not(p^.explizit) or not(cs_tp_compatible in aktmoduleswitches)) then
+                 (not(p^.explizit) {or not(cs_tp_compatible in aktmoduleswitches)}) then
               porddef(p^.resulttype)^.genrangecheck;
               if porddef(hp^.resulttype)^.typ=s32bit then
                 begin
@@ -246,7 +246,7 @@ implementation
               else internalerror(6);
 
               if (cs_check_range in aktlocalswitches) and
-                 (not(p^.explizit) or not(cs_tp_compatible in aktmoduleswitches)) then
+                 (not(p^.explizit) {or not(cs_tp_compatible in aktmoduleswitches)}) then
               Begin
               new(hpp);
               reset_reference(hpp^);
@@ -1376,7 +1376,13 @@ implementation
 end.
 {
   $Log$
-  Revision 1.2  1998-09-04 08:41:45  peter
+  Revision 1.3  1998-09-11 12:29:43  pierre
+    * removed explicit range_checking as it is buggy
+
+  Revision 1.2.2.1  1998/09/11 12:08:57  pierre
+    * removed explicit range_check was buggy
+
+  Revision 1.2  1998/09/04 08:41:45  peter
     * updated some error messages
 
   Revision 1.1  1998/09/01 09:07:09  peter

compiler/cg68kmem.pas

@@ -691,7 +691,13 @@ implementation
 end.
 {
   $Log$
-  Revision 1.2  1998-09-07 18:45:57  peter
+  Revision 1.3  1998-09-11 12:29:44  pierre
+    * removed explicit range_checking as it is buggy
+
+  Revision 1.2.2.1  1998/09/11 12:08:59  pierre
+    * removed explicit range_check was buggy
+
+  Revision 1.2  1998/09/07 18:45:57  peter
     * update smartlinking, uses getdatalabel
     * renamed ptree.value vars to value_str,value_real,value_set
 
@@ -699,4 +705,3 @@ end.
     * m68k fixes, splitted cg68k like cgi386
 
 }
-