luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[COMPILER]

Browse source 
* BUG: False, True and Debug preprocessor constants work correctly now.


git-svn-id: svn://localhost/gambas/trunk@3401 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2010-12-27 14:35:06 +00:00
parent 3cf59d321a
commit 326993f9b1
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
main/gbc/gbc_preprocess.c
View file

@ -136,14 +136,14 @@ static int get_symbol(const char *name, int len)
if (compare_symbol("version", name, len) || compare_symbol("gambas", name, len))
return compare_value(NULL);
if (compare_symbol("debug", name, len))
return JOB->debug;
/*if (compare_symbol("debug", name, len))
return JOB->debug;*/
if (compare_symbol("true", name, len))
/*if (compare_symbol("true", name, len))
return TRUE;
if (compare_symbol("false", name, len))
return FALSE;
return FALSE;*/
return FALSE;
}
@ -171,6 +171,12 @@ static int get_value(void)
value = get_symbol(sym->name, sym->len);
return value;
}
else if (is_current(RS_FALSE))
return 0;
else if (is_current(RS_TRUE))
return 1;
else if (is_current(RS_DEBUG))
return JOB->debug;
return 0;
}