[svn:parrot] r44128 - in trunk: examples/sdl runtime/parrot/library

[NotFound at svn.parrot.org]

Author: NotFound
Date: Thu Feb 18 03:01:31 2010
New Revision: 44128
URL: https://trac.parrot.org/parrot/changeset/44128

Log:
some fixes to SDL lib and examples

Modified:
   trunk/examples/sdl/anim_image.pir
   trunk/examples/sdl/bounce_parrot_logo.pir
   trunk/examples/sdl/move_parrot_logo.pir
   trunk/runtime/parrot/library/SDL.pir

Modified: trunk/examples/sdl/anim_image.pir
==============================================================================
--- trunk/examples/sdl/anim_image.pir	Wed Feb 17 22:20:36 2010	(r44127)
+++ trunk/examples/sdl/anim_image.pir	Thu Feb 18 03:01:31 2010	(r44128)
@@ -96,7 +96,7 @@
     .local pmc rect
 
     .local pmc rect_array
-    rect_array = new 'Array'
+    rect_array = new 'ResizablePMCArray'
     set rect_array, 2
 
 _loop:

Modified: trunk/examples/sdl/bounce_parrot_logo.pir
==============================================================================
--- trunk/examples/sdl/bounce_parrot_logo.pir	Wed Feb 17 22:20:36 2010	(r44127)
+++ trunk/examples/sdl/bounce_parrot_logo.pir	Thu Feb 18 03:01:31 2010	(r44128)
@@ -176,7 +176,7 @@
     .local pmc prev_rect
     .local pmc rect
     .local pmc rect_array
-    rect_array = new 'Array'
+    rect_array = new 'ResizablePMCArray'
     set rect_array, 2
 
     (prev_rect, rect) = sprite.'draw_undraw'( screen )

Modified: trunk/examples/sdl/move_parrot_logo.pir
==============================================================================
--- trunk/examples/sdl/move_parrot_logo.pir	Wed Feb 17 22:20:36 2010	(r44127)
+++ trunk/examples/sdl/move_parrot_logo.pir	Thu Feb 18 03:01:31 2010	(r44128)
@@ -91,7 +91,7 @@
 	.local pmc prev_rect
 	.local pmc rect
 	.local pmc rect_array
-	rect_array = new 'Array'
+	rect_array = new 'ResizablePMCArray'
 	set rect_array, 2
 
 	(prev_rect, rect) = sprite.'draw_undraw'( screen )

Modified: trunk/runtime/parrot/library/SDL.pir
==============================================================================
--- trunk/runtime/parrot/library/SDL.pir	Wed Feb 17 22:20:36 2010	(r44127)
+++ trunk/runtime/parrot/library/SDL.pir	Thu Feb 18 03:01:31 2010	(r44128)
@@ -224,7 +224,7 @@
 
   initialize:
     .local pmc nci_sub
-    dlfunc nci_sub, ttf_lib, 'TTF_Init', 'iv'
+    dlfunc nci_sub, ttf_lib, 'TTF_Init', 'i'
     unless nci_sub goto error
 
     set_hll_global ['SDL::NCI::TTF'], 'Init', nci_sub
@@ -238,7 +238,7 @@
   error:
     .local pmc e
     e    = new 'Exception'
-    e[0] = "SDL_ttf not initialized\n"
+    e['message'] = "SDL_ttf not initialized\n"
     throw e
 
   success: