/[eiffelstudio]/trunk/eweasel/tests/lib038/test.e
ViewVC logotype

Diff of /trunk/eweasel/tests/lib038/test.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 86886 by dhollen, Thu Jul 21 18:19:36 2011 UTC revision 86925 by manus, Mon Aug 1 22:50:42 2011 UTC
# Line 1  Line 1 
   
1  class TEST  class TEST
2    inherit
3            EXCEPTION_MANAGER
4    
5  create  create
6          make          make
7  feature  feature
8          make          make
9                  local                  local
10                          p: MANAGED_POINTER                          p: MANAGED_POINTER
11                            retried: BOOLEAN
12                  do                  do
13                          create p.own_from_pointer (default_pointer, 0)                          if not retried then
14                                    create p.own_from_pointer (default_pointer, 0)
15                            end
16                    rescue
17                            if
18                                    attached last_exception as l_exception and then
19                                    attached {PRECONDITION_VIOLATION} l_exception.original
20                            then
21                                    retried := True
22                                    retry
23                            end
24                  end                  end
25  end  end
26    
           
27            

Legend:
Removed from v.86886  
changed lines
  Added in v.86925

  ViewVC Help
Powered by ViewVC 1.1.23