← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fpcsrc/tests/webtbs/tw1470.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/webtbs/tw1470.pp
 
1
{$mode objfpc}
 
2
 
 
3
function bbb (a1, a2: DWord): Boolean;
 
4
begin
 
5
        bbb := False;
 
6
end;
 
7
 
 
8
procedure a;
 
9
var
 
10
        i, j, k: DWord;
 
11
 
 
12
begin
 
13
        try
 
14
                i := 0;
 
15
                j := 1;
 
16
 
 
17
                while (True) do
 
18
                        begin
 
19
                                k := 2;
 
20
 
 
21
                                try
 
22
                                        if (not bbb (i, j)) then
 
23
                                                break; {this break generates an invalid label}
 
24
 
 
25
                                        if (k = 2) then
 
26
                                                k := 3;
 
27
 
 
28
                                finally
 
29
                                        k := 2;
 
30
                                end;
 
31
                        end;
 
32
 
 
33
                for i := 1 to 20 do
 
34
                        j := j + 1;
 
35
 
 
36
                WriteLn (j);
 
37
 
 
38
        finally
 
39
                i := 0;
 
40
                j := 1;
 
41
        end;
 
42
end;
 
43
 
 
44
begin
 
45
        a;
 
46
end.