Apple-2-SW/qasm
1
0
Fork 0
mirror of https://github.com/marketideas/qasm.git synced 2026-04-25 18:46:57 +00:00
Code Issues Projects Releases Wiki Activity

just a few more parser fixes

Browse Source
This commit is contained in:
marketideas
2019-11-19 09:22:27 -08:00
parent b391c9b729
commit 572bdd5879
4 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
asm.cpp
+9 -6
View File
@@ -174,7 +174,7 @@ void CLASS::print(uint32_t lineno)
{
pcol += printf("%c", comment[cc]);
comct++;
if ((comment[cc] <= ' ') && (pcol >= (commentcol + savpcol + 10)))
if ((comment[cc] <= ' ') && (pcol >= (commentcol + savpcol + 20)))
{
printf("\n");
pcol = 0;
@@ -416,6 +416,11 @@ void CLASS::set(std::string line)
restofline = Poco::trim(tline.substr(i, tline.length())) + " ";
//printf("ROL: |%s|\n",restofline.c_str());
if (restofline=="")
{
i=l;
break;
}
strs.clear();
x = 0;
try
@@ -478,9 +483,7 @@ void CLASS::set(std::string line)
i = l;
if (!match)
{
opcode = ":::"; // let assembler figure out this is a bad opcode
// SGQ maybe error here
//printf("---No Match %s\n", restofline.c_str());
// if you are here, there probably isn't an operand and/or comment after opcode
}
}
break;
@@ -491,7 +494,7 @@ void CLASS::set(std::string line)
if (x > 1)
{
// SGQ M32 syntax
#if 0
#if 1
while ((x > 1) && (lable[x - 1] == ':'))
{
lable = lable.substr(0, x - 1);
@@ -1419,7 +1422,7 @@ void CLASS::initpass(void)
merlinerrors = getBool("asm.merlinerrors", true);
trackrep = getBool("asm.trackrep", false);
merlincompat = getBool("asm.merlincompatible", true);
//merlincompat = getBool("asm.merlincompatible", true);
allowdup = getBool("asm.allowduplicate", true);
skiplist = false;