* disable overflow checking in some parts to avoid problems

compiler/systems/t_win32.pas

@@ -1531,6 +1531,11 @@ function tDLLScannerWin32.GetEdata(HeaderEntry:cardinal):longbool;
      fsplit(impname,_d,_n,_e);
      for j:=0 to pred(ExpDir.NumNames)do
       begin
+{ Don't know why but this gives serious problems with overflow checking on }
+{$IFOPT Q+}
+{$DEFINE OVERFLOW_CHECK_WAS_ON}
+{$ENDIF}
+{$Q-}
        seek(f,RawOffset-VirtAddr+ExpDir.AddrOrds+j*2);
        blockread(f,Ordinal,2);
        seek(f,RawOffset-VirtAddr+ExpDir.AddrFuncs+cardinal(Ordinal)*4);
@@ -1540,6 +1545,9 @@ function tDLLScannerWin32.GetEdata(HeaderEntry:cardinal):longbool;
        seek(f,RawOffset-VirtAddr+ulongval);
        blockread(f,cstring,sizeof(cstring));
        isData:=GetSectionName(procentry,Fl)='';
+{$IFDEF OVERFLOW_CHECK_WAS_ON}
+{$Q+}
+{$ENDIF}
        if not isData then
         isData:=Fl and IMAGE_SCN_CNT_CODE<>IMAGE_SCN_CNT_CODE;
        Store(succ(Ordinal),cstring,isData);
@@ -1617,7 +1625,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.7  2002-11-30 18:45:28  carl
+  Revision 1.8  2002-12-01 18:57:34  carl
+    * disable overflow checking in some parts to avoid problems
+
+  Revision 1.7  2002/11/30 18:45:28  carl
     + profiling support for Win32
 
   Revision 1.6  2002/11/16 18:40:38  carl