Forráskód Böngészése

* 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 éve
szülő
commit
50c3ba5310
1 módosított fájl, 1 hozzáadás és 0 törlés
  1. 1 0
      tests/webtbs/tw4809.pp

+ 1 - 0
tests/webtbs/tw4809.pp

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