← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to fpcsrc/tests/tbs/tb0306.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/tests/tbs/tb0306.pp
 
1
{$mode objfpc}
 
2
 
 
3
type
 
4
   tobject2 = class
 
5
      constructor create;
 
6
      function rname : string;
 
7
      procedure wname(const s : string);
 
8
      property name : string read rname write wname;
 
9
   end;
 
10
 
 
11
   tclass2 = class of tobject2;
 
12
 
 
13
var
 
14
   o2 : tobject2;
 
15
   c2 : tclass2;
 
16
 
 
17
constructor tobject2.create;
 
18
 
 
19
  begin
 
20
     inherited create;
 
21
  end;
 
22
 
 
23
procedure tobject2.wname(const s : string);
 
24
 
 
25
  begin
 
26
  end;
 
27
 
 
28
function tobject2.rname : string;
 
29
 
 
30
  begin
 
31
  end;
 
32
 
 
33
begin
 
34
   o2:=tobject2.create;
 
35
   o2.name:='1234';
 
36
   writeln(o2.name);
 
37
   o2.destroy;
 
38
   c2:=tobject2;
 
39
   o2:=c2.create;
 
40
   o2.destroy;
 
41
end.