6502/acme
1
0
Fork 0
mirror of https://github.com/uffejakobsen/acme.git synced 2024-11-25 07:31:52 +00:00
Code Issues Projects Releases Wiki Activity

started checking in test sources

Browse Source 
git-svn-id: https://svn.code.sf.net/p/acme-crossass/code-0/trunk@223 4df02467-bbd4-4a76-a152-e7ce94205b78
This commit is contained in:
marcobaye 2020-06-09 18:52:49 +00:00
parent 0588f0fffe
commit da12925408
6 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/alu.c
View File

@ -1460,6 +1460,7 @@ static void int_handle_dyadic_operator(struct object *self, struct op *op, struc
self->u.number.val.intval = ((uintval_t) (self->u.number.val.intval)) >> other->u.number.val.intval; self->u.number.val.intval = ((uintval_t) (self->u.number.val.intval)) >> other->u.number.val.intval;
break; break;
case OPID_LESSOREQUAL: case OPID_LESSOREQUAL:
// FIXME - all comparison results should clear all force bits and set fits_byte! also for floats!
self->u.number.val.intval = (self->u.number.val.intval <= other->u.number.val.intval); self->u.number.val.intval = (self->u.number.val.intval <= other->u.number.val.intval);
break; break;
case OPID_LESSTHAN: case OPID_LESSTHAN:

2
testing/errors/alreadydefined1.a Normal file
View File

@ -0,0 +1,2 @@
a = 3
a = 3.0 ; -> "already defined" (type has changed)

2
testing/errors/alreadydefined2.a Normal file
View File

@ -0,0 +1,2 @@
a = 3
a = 4 ; -> "already defined" (value has changed)

4
testing/errors/alreadydefined3.a Normal file
View File

@ -0,0 +1,4 @@
*=$1000
label
nop
label ; -> already defined

3
testing/errors/toolateforpostfix1.a Normal file
View File

@ -0,0 +1,3 @@
a = 3
b = a ; read a
a+2 = 3 ; -> "too late for postfix"

4
testing/errors/toolateforpostfix2.a Normal file
View File

@ -0,0 +1,4 @@
*=$1000
label
b = label ; read symbol
label+2 ; -> too late for postfix