* fixed mode objfpc

This commit is contained in:
peter 1999-05-31 21:41:14 +00:00
parent 3db89ed4f1
commit a64b526adc
8 changed files with 24 additions and 15 deletions

View File

@ -1,8 +1,10 @@
unit tbs0139;
{$mode objfpc}
interface
uses
objpas, tbs0139a;
tbs0139a;
type
AnotherClass=class(SomeClass)

View File

@ -1,9 +1,8 @@
unit tbs0139a;
interface
{$mode objfpc}
uses
objpas;
interface
type
SomeClass=class(TObject)

View File

@ -1,5 +1,7 @@
program proptest;
{$mode objfpc}
type
TMyRec = record
Int: Integer;

View File

@ -1,4 +1,4 @@
{$OPT= -Twin32}
{ $OPT= -Twin32}
program test_win32_drv;

View File

@ -1,5 +1,6 @@
program TestEvent;
{$mode objfpc}
{$M+}
type

View File

@ -1,3 +1,4 @@
{$mode objfpc}
type
tobject1 = class
readl : longint;

View File

@ -1,3 +1,5 @@
{$mode objfpc}
{ tests forward class types }
type

View File

@ -1,3 +1,5 @@
{$mode objfpc}
type
tclass1 = class
procedure a;virtual;