paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* only allow the ugly code in delphi mode

Browse Source
This commit is contained in:
peter 2002-10-04 23:31:57 +00:00
parent 3d19418cae
commit 91937f7adc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/tbs/tb0407.pp
View File

@ -1,6 +1,6 @@
{ %version=1.1 }
{$ifdef fpc}{$mode objfpc}{$endif}
{$ifdef fpc}{$mode delphi}{$endif}
var
err : boolean;