andrius
/
M2-Planet
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Make M2-Planet more mescc friendly to simplify bootstrapping

This commit is contained in:
Jeremiah Orians 2017-11-05 17:13:02 -05:00
parent c46b3fc379
commit f6e2e1b89f
No known key found for this signature in database
GPG Key ID: 7457821534D2ACCD
2 changed files with 22 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cc.c
View File

@ -430,10 +430,10 @@ void collect_local()
}
/* Evaluate if statements */
int if_count;
void process_if()
{
char* label;
static int if_count;
int number = if_count;
if_count = if_count + 1;
@ -463,10 +463,10 @@ void process_if()
}
/* Process while loops */
int while_count;
void process_while()
{
char* label;
static int while_count;
int number = while_count;
while_count = while_count + 1;

27
cc_strings.c
View File

@ -16,6 +16,8 @@
*/
#include "cc.h"
#include <stdint.h>
void emit(char *s, bool hands_off);
int asprintf(char **strp, const char *fmt, ...);
@ -31,17 +33,26 @@ char upcase(char a)
int8_t hex(int c, bool high)
{
switch(c)
if (c >= '0' && c <= '9')
{
case '0' ... '9': c = (c - 48); break;
case 'a' ... 'z': c = (c - 87); break;
case 'A' ... 'Z': c = (c - 55); break;
default: exit(EXIT_FAILURE);
c = (c - 48);
}
else if (c >= 'a' && c <= 'z')
{
c = (c - 87);
}
else if (c >= 'A' && c <= 'Z')
{
c = (c - 55);
}
else
{
exit(EXIT_FAILURE);
}
if(high)
{
c = c << 4;
c = c * 16;
}
return c;
}
@ -76,7 +87,9 @@ void parse_string()
{
hold[k + 1] = upcase(global_token->s[j + 2]);
hold[k + 2] = upcase(global_token->s[j + 3]);
message[i] = (hex(global_token->s[j + 2], true) + hex(global_token->s[j + 3], false));
int t1 = hex(global_token->s[j + 2], true);
int t2 = hex(global_token->s[j + 3], false);
message[i] = t1 + t2;
if(weird(message[i])) hexit = true;
j = j + 4;
}