Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 447

•  TDictionary Custom Sort  6 478

•  Fast Watermark Sources  6 270

•  3D Designer  9 218

•  Sik Screen Capture  6 606

•  Patch Maker  6 991

•  Айболит (remote control)  6 993

•  ListBox Drag & Drop  5 861

•  Доска для игры Реверси  97 030

•  Графические эффекты  7 193

•  Рисование по маске  6 488

•  Перетаскивание изображений  5 360

•  Canvas Drawing  5 737

•  Рисование Луны  5 445

•  Поворот изображения  4 977

•  Рисование стержней  3 533

•  Paint on Shape  2 803

•  Генератор кроссвордов  3 668

•  Головоломка Paletto  2 959

•  Теорема Монжа об окружностях  3 761

•  Пазл Numbrix  2 481

•  Заборы и коммивояжеры  3 166

•  Игра HIP  2 130

•  Игра Go (Го)  2 066

•  Симулятор лифта  2 438

•  Программа укладки плитки  2 111

•  Генератор лабиринта  2 583

•  Проверка числового ввода  2 261

•  HEX View  2 590

•  Физический маятник  2 202

 
скрыть

Синий экран при исключениях FPU в Win9X



Автор: Alexander Petruhiv

Условия возникновения бага - системная плата с VIA694/694T/KT133/KT133A, ОС Win95/98/Me. Под Win XP баг не проявляется.

Следующий код вызывает "синий экран" с исключением 0E. На нормально работающей машине просто напечатается 64К раз строка Trapped.

program extest;
{$APPTYPE CONSOLE}
uses SysUtils;
{$O-}
var
  i: integer;
  a, Res: Double;
begin
  a := 0;
  for i := 0 to 65535 do
  try
    Res := i / a;
  except
    writeln('Trapped');
  end;
end.

ТИПОВЫЕ РЕШЕНИЯ.
  1. Отключить сопроцессор. Панель управления->Свойства системы->Устройства->Системные устройства->Сопроцессор->Свойства->Настройка. Установить переключатель в положение Не использовать. При этом возможна некорректная работа других программ и устройств, например, принтеры HP Deskjet могут перестать печать в цвете.
  2. Замена материнской платы.
  3. Отключение генерации прерываний от FPU и выдача исключения вручную.
    program extest;
    {$APPTYPE CONSOLE}
    uses SysUtils;
    {$O-}
    
    // Функция проверки на бесконечность и нечисловое значение -
    // неоптимизирована, только для примера
    
    function InfNan(Value: double): double;
    begin
      if (FloatToStr(Value) = 'INF') or (FloatToStr(Value) = 'NAN') then
        raise EmathError.Create('');
      Result := Value;
    end;
    
    var
      i: integer;
      a, Res: Double;
    begin
      a := 0;
      Set8087CW($133F); // запретить прерывания от сопроцессора
      for i := 0 to 65535 do
      try
        Res := InfNan(i / a);
      except
        writeln('Trapped');
      end;
    end.
КОММЕНТАРИЙ:

Предложенный тест проходит так, как описано, на материнской плате с чипсетом VIA KT266 (CPU Athlon 1000): под Win98SE система трапается с синим экраном и исключением 0E, а под Win2000 сбоев не наблюдается. Поступали сообщения об аналогичной проблеме в связке Win98+K7/K6/K5. Данный материал свидетельствует о том, что и с процессорами Intel такое бывает (чипсеты VIA694/694T используются в материнских платах для Celeron и P3, а KT133/KT133A - для K7 Athlon и Duron).

Очевидно, список чипсетов может быть еще расширен. Одно общее обстоятельство сохраняется - ОС серии Win9X. Поэтому этот "камень" отнесен к категории СИСТЕМА, хотя, на первый взгляд, он просится в HARDWARE.

Как минимум, еще одно радикальное решение можно предложить - использовать Windows линии NT.


Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте