Просмотр исходного кода

* avoid overflow check and errors

git-svn-id: trunk@5886 -
pierre 18 лет назад
Родитель
Сommit
f33e66bb4e
1 измененных файлов с 3 добавлено и 0 удалено
  1. 3 0
      ide/whelp.pas

+ 3 - 0
ide/whelp.pas

@@ -293,6 +293,9 @@ begin
   HT:=HelpFileTypes^.At(Index)^;
   HT:=HelpFileTypes^.At(Index)^;
 end;
 end;
 
 
+{$R-}
+{$Q-}
+
 Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
 Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
 {$IFDEF OS2}
 {$IFDEF OS2}
   const
   const