Mercurial > repos > rhope
comparison runtime/bool.c @ 48:a24eb366195c
Fixed some bugs introduced in previous commit and moved definition of integer methods out of runtime and into the compiler
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Tue, 02 Mar 2010 00:18:49 -0500 |
| parents | 31f8182f3433 |
| children | 04baa003de5a |
comparison
equal
deleted
inserted
replaced
| 47:6202b866d72c | 48:a24eb366195c |
|---|---|
| 2 #include "func.h" | 2 #include "func.h" |
| 3 #include "builtin.h" | 3 #include "builtin.h" |
| 4 #include "context.h" | 4 #include "context.h" |
| 5 #include <stddef.h> | 5 #include <stddef.h> |
| 6 | 6 |
| 7 t_Boolean * val_yes; | |
| 8 t_Boolean * val_no; | |
| 9 #define lval ((t_Boolean *)(cdata->params[0]))->val | |
| 10 | 7 |
| 11 MethodNoLocals(If,Boolean, | |
| 12 NumParams 1, | |
| 13 CallSpace 1) | |
| 14 | |
| 15 Param(0, TYPE_BOOLEAN) | |
| 16 | |
| 17 if(lval) | |
| 18 { | |
| 19 Ret(1, NULL) | |
| 20 } else { | |
| 21 Ret(1, cdata->params[0]); | |
| 22 Ret(0, NULL) | |
| 23 } | |
| 24 EndFunc |