# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1406043330 25200
# Node ID bb1539decd625efac7d542f77f6868f2310dad46
# Parent  99c18127da0475c54b3e592122e5e98e9f553d4e
Fix const warning in sdl module

diff -r 99c18127da04 -r bb1539decd62 cbackend.js
--- a/cbackend.js	Tue Jul 22 08:32:39 2014 -0700
+++ b/cbackend.js	Tue Jul 22 08:35:30 2014 -0700
@@ -275,6 +275,11 @@
 funcall.prototype.toCTypeName = function() {
 	switch(this.name)
 	{
+	case 'const:':
+	case 'const':
+		var receiver = this.receiver ? this.receiver : this.args[0];
+		return  'const ' + receiver.toCTypeName();
+		break;
 	case 'ptr:':
 	case 'ptr':
 		var receiver = this.receiver ? this.receiver : this.args[0];
diff -r 99c18127da04 -r bb1539decd62 modules/sdl.tp
--- a/modules/sdl.tp	Tue Jul 22 08:32:39 2014 -0700
+++ b/modules/sdl.tp	Tue Jul 22 08:35:30 2014 -0700
@@ -393,7 +393,7 @@
 
 		llMessage: getError withVars: {
 			str <- string ptr
-			rawstr <- char ptr
+			rawstr <- const: (char ptr)
 		} andCode: {
 			rawstr <- SDL_GetError:
 			str <- make_object: (addr_of: string_meta) NULL 0