fpc/tw34287.pp at fixes_3_2 - fpc - brudnopis.ovh - Gitea

paweld/fpc

mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 11:49:23 +02:00

marco 338873d7a7 --- Merging r39785 into '.':

U    packages/fcl-stl/src/gset.pp
--- Recording mergeinfo for merge of r39785 into '.':
 U   .
--- Merging r39786 into '.':
A    tests/tbs/tb0651.pp
U    compiler/symdef.pas
--- Recording mergeinfo for merge of r39786 into '.':
 G   .
--- Merging r39787 into '.':
U    compiler/pexpr.pas
A    tests/webtbs/uw34287a.pp
A    tests/webtbs/tw34287.pp
A    tests/webtbs/uw34287b.pp
--- Recording mergeinfo for merge of r39787 into '.':
 G   .
--- Merging r39788 into '.':
U    compiler/nbas.pas
--- Recording mergeinfo for merge of r39788 into '.':
 G   .
--- Merging r39812 into '.':
G    compiler/pexpr.pas
--- Recording mergeinfo for merge of r39812 into '.':
 G   .

# revisions: 39785,39786,39787,39788,39812

git-svn-id: branches/fixes_3_2@39835 -

2018-09-27 13:01:08 +00:00

23 lines

277 B

ObjectPascal

Raw Permalink Blame History

 { %NORUN }
 program tw34287;
 {$IFDEF FPC}
  {$MODE DELPHI}
 {$ENDIF}
 uses
   Classes,
   uw34287a,
   uw34287b;
 var
   fooa: uw34287a.TFoo;
   foob: uw34287b.TFoo;
 begin
   fooa := uw34287a.TFoo.Create(nil);
   fooa.Bar('');
   foob := uw34287b.TFoo.Create(nil);
   foob.Bar('');
 end.