← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/tests/test/cg/variants/tvarol25.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/tests/test/cg/variants/tvarol25.pp
1
 
{$ifdef fpc}
2
 
{$mode delphi}
3
 
{$endif fpc}
4
 
 
5
 
{$ifdef FPC_COMP_IS_INT64}
6
 
type 
7
 
  comp = double;
8
 
{$endif FPC_COMP_IS_INT64}
9
 
procedure test(a: comp); overload;
10
 
  begin
11
 
    writeln('comp called instead of byte');
12
 
    halt(1)
13
 
  end;
14
 
 
15
 
procedure test(a: byte); overload;
16
 
  begin
17
 
    writeln('byte called instead of comp');
18
 
    writeln('YYY')
19
 
  end;
20
 
 
21
 
var
22
 
  v: variant;
23
 
  x: comp;
24
 
  y: byte;
25
 
 
26
 
begin
27
 
  try
28
 
    v := x;
29
 
    test(v);
30
 
  except
31
 
    on E : TObject do
32
 
      halt(1);
33
 
  end;
34
 
 
35
 
  try
36
 
    v := y;
37
 
    test(v);
38
 
  except
39
 
    on E : TObject do
40
 
      halt(1);
41
 
  end;
42
 
end.