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

* Force I/O checking

git-svn-id: trunk@6793 -
daniel 18 лет назад
Родитель
Сommit
0fdd8110c7
1 измененных файлов с 2 добавлено и 0 удалено
  1. 2 0
      tests/tbs/tb0532.pp

+ 2 - 0
tests/tbs/tb0532.pp

@@ -9,6 +9,8 @@ program tb0532;
   - Reset doesn't allow writing to the device.
 }
 
+{$I+}
+
 var null:text;
 
 begin