Explorar o código

* 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 %!s(int64=19) %!d(string=hai) anos
pai
achega
50c3ba5310
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  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);