Переглянути джерело

* load sysutils unit by command line parameter so the unsupported uses in iso mode is avoided

git-svn-id: trunk@22511 -
florian 13 роки тому
батько
коміт
01fcc389be
1 змінених файлів з 1 додано та 2 видалено
  1. 1 2
      tests/webtbs/tw17685.pp

+ 1 - 2
tests/webtbs/tw17685.pp

@@ -1,8 +1,7 @@
+{ %opt=-Fasysutils}
 {$mode iso}
 {$mode iso}
 {$modeswitch exceptions+}
 {$modeswitch exceptions+}
 program modulo( Output);
 program modulo( Output);
-uses
-  sysutils;
 var
 var
   i, j, m : integer;
   i, j, m : integer;
 begin
 begin