Author: jquelin
Date: Thu Oct 4 09:22:03 2007
New Revision: 21830
Modified:
branches/pdd15oo/examples/sdl/minesweeper/eventhandler.pir
branches/pdd15oo/examples/sdl/minesweeper/field.pir
Log:
more find_type removal
Modified: branches/pdd15oo/examples/sdl/minesweeper/eventhandler.pir
==============================================================================
--- branches/pdd15oo/examples/sdl/minesweeper/eventhandler.pir (original)
+++ branches/pdd15oo/examples/sdl/minesweeper/eventhandler.pir Thu Oct 4
09:22:03 2007
@@ -20,8 +20,8 @@
.sub __onload :load
- $I0 = find_type "Mines::EventHandler"
- if $I0 > 1 goto END
+ $P0 = get_class "Mines::EventHandler"
+ unless null $P0 goto END
newclass $P0, "Mines::EventHandler"
Modified: branches/pdd15oo/examples/sdl/minesweeper/field.pir
==============================================================================
--- branches/pdd15oo/examples/sdl/minesweeper/field.pir (original)
+++ branches/pdd15oo/examples/sdl/minesweeper/field.pir Thu Oct 4 09:22:03 2007
@@ -1064,8 +1064,9 @@
=cut
.sub __onload :load
- $I0 = find_type "Mines::Field"
- if $I0 > 1 goto END
+ .local pmc class
+ class = get_class "Mines::Field"
+ unless null class goto END
.local pmc tmp
.local pmc size
