paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 10:54:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

* add mode objfpc directive

Browse Source 
git-svn-id: trunk@7129 -
This commit is contained in:
pierre 2007-04-18 07:25:24 +00:00
parent d4ee12c000
commit 22ba9ea4e6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/webtbs/tw8660.pp
View File

@ -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.