浏览代码

* 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 年之前
父节点
当前提交
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);