* add mode objfpc directive

git-svn-id: trunk@7129 -

tests/webtbs/tw8660.pp

@@ -1,3 +1,6 @@
+
+{$mode objfpc}
+
 program TestGetSetProp;
 {$APPTYPE CONSOLE}{$PACKSET 1}
 
@@ -31,4 +34,4 @@ begin
   if GetSetProp(C, 'St')<>'ckNormal,ckVip' then
     halt(1);
   writeln('ok');
-end.
+end.