Mercurial > repos > tabletprog
comparison modules/sdl.tp @ 285:bb1539decd62
Fix const warning in sdl module
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 22 Jul 2014 08:35:30 -0700 |
parents | 99c18127da04 |
children | b01d7c1b4edd |
comparison
equal
deleted
inserted
replaced
284:99c18127da04 | 285:bb1539decd62 |
---|---|
391 } x!: x) y!: y) w!: w) h!: h | 391 } x!: x) y!: y) w!: w) h!: h |
392 } | 392 } |
393 | 393 |
394 llMessage: getError withVars: { | 394 llMessage: getError withVars: { |
395 str <- string ptr | 395 str <- string ptr |
396 rawstr <- char ptr | 396 rawstr <- const: (char ptr) |
397 } andCode: { | 397 } andCode: { |
398 rawstr <- SDL_GetError: | 398 rawstr <- SDL_GetError: |
399 str <- make_object: (addr_of: string_meta) NULL 0 | 399 str <- make_object: (addr_of: string_meta) NULL 0 |
400 str bytes!: (strlen: rawstr) | 400 str bytes!: (strlen: rawstr) |
401 str len!: (str bytes) | 401 str len!: (str bytes) |