mirror of
https://github.com/uffejakobsen/acme.git
synced 2024-11-22 03:30:46 +00:00
started checking in test sources
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:
parent
0588f0fffe
commit
da12925408
@ -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;
|
||||
break;
|
||||
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);
|
||||
break;
|
||||
case OPID_LESSTHAN:
|
||||
|
2
testing/errors/alreadydefined1.a
Normal file
2
testing/errors/alreadydefined1.a
Normal file
@ -0,0 +1,2 @@
|
||||
a = 3
|
||||
a = 3.0 ; -> "already defined" (type has changed)
|
2
testing/errors/alreadydefined2.a
Normal file
2
testing/errors/alreadydefined2.a
Normal file
@ -0,0 +1,2 @@
|
||||
a = 3
|
||||
a = 4 ; -> "already defined" (value has changed)
|
4
testing/errors/alreadydefined3.a
Normal file
4
testing/errors/alreadydefined3.a
Normal file
@ -0,0 +1,4 @@
|
||||
*=$1000
|
||||
label
|
||||
nop
|
||||
label ; -> already defined
|
3
testing/errors/toolateforpostfix1.a
Normal file
3
testing/errors/toolateforpostfix1.a
Normal 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
4
testing/errors/toolateforpostfix2.a
Normal file
@ -0,0 +1,4 @@
|
||||
*=$1000
|
||||
label
|
||||
b = label ; read symbol
|
||||
label+2 ; -> too late for postfix
|
Loading…
Reference in New Issue
Block a user