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

* made sure that the enum tested in the test is of byte size, otherwise the test program does not compile

git-svn-id: trunk@4433 -
tom_at_work 19 лет назад
Родитель
Сommit
50c3ba5310
1 измененных файлов с 1 добавлено и 0 удалено
  1. 1 0
      tests/webtbs/tw4809.pp

+ 1 - 0
tests/webtbs/tw4809.pp

@@ -1,6 +1,7 @@
 { %result=201 }
 
 {$r+}
+{$packenum 1}
 Type
   MySet = (msOne,msTwo,msThree,msFour,msFive);