mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 16:09:17 +02:00
* fixed mode objfpc
This commit is contained in:
parent
3db89ed4f1
commit
a64b526adc
@ -1,8 +1,10 @@
|
||||
unit tbs0139;
|
||||
|
||||
{$mode objfpc}
|
||||
|
||||
interface
|
||||
uses
|
||||
objpas, tbs0139a;
|
||||
tbs0139a;
|
||||
|
||||
type
|
||||
AnotherClass=class(SomeClass)
|
||||
|
@ -1,9 +1,8 @@
|
||||
unit tbs0139a;
|
||||
|
||||
interface
|
||||
{$mode objfpc}
|
||||
|
||||
uses
|
||||
objpas;
|
||||
interface
|
||||
|
||||
type
|
||||
SomeClass=class(TObject)
|
||||
|
@ -1,5 +1,7 @@
|
||||
program proptest;
|
||||
|
||||
{$mode objfpc}
|
||||
|
||||
type
|
||||
TMyRec = record
|
||||
Int: Integer;
|
||||
|
@ -1,4 +1,4 @@
|
||||
{$OPT= -Twin32}
|
||||
{ $OPT= -Twin32}
|
||||
|
||||
program test_win32_drv;
|
||||
|
||||
|
@ -1,5 +1,6 @@
|
||||
program TestEvent;
|
||||
|
||||
{$mode objfpc}
|
||||
{$M+}
|
||||
|
||||
type
|
||||
|
@ -1,3 +1,4 @@
|
||||
{$mode objfpc}
|
||||
type
|
||||
tobject1 = class
|
||||
readl : longint;
|
||||
|
@ -1,3 +1,5 @@
|
||||
{$mode objfpc}
|
||||
|
||||
{ tests forward class types }
|
||||
|
||||
type
|
||||
|
@ -1,3 +1,5 @@
|
||||
{$mode objfpc}
|
||||
|
||||
type
|
||||
tclass1 = class
|
||||
procedure a;virtual;
|
||||
|
Loading…
Reference in New Issue
Block a user