projects
/
unix-history
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
file reorg, pathnames.h, paths.h
[unix-history]
/
usr
/
src
/
old
/
dbx
/
check.c
diff --git
a/usr/src/old/dbx/check.c
b/usr/src/old/dbx/check.c
index
d871292
..
ebcc542
100644
(file)
--- a/
usr/src/old/dbx/check.c
+++ b/
usr/src/old/dbx/check.c
@@
-5,7
+5,7
@@
*/
#ifndef lint
*/
#ifndef lint
-static char sccsid[] = "@(#)check.c 5.
1
(Berkeley) %G%";
+static char sccsid[] = "@(#)check.c 5.
2
(Berkeley) %G%";
#endif not lint
static char rcsid[] = "$Header: check.c,v 1.5 84/12/26 10:38:35 linton Exp $";
#endif not lint
static char rcsid[] = "$Header: check.c,v 1.5 84/12/26 10:38:35 linton Exp $";
@@
-48,7
+48,11
@@
register Node p;
case O_ASSIGN:
p1 = p->value.arg[0];
p2 = p->value.arg[1];
case O_ASSIGN:
p1 = p->value.arg[0];
p2 = p->value.arg[1];
- if (not compatible(p1->nodetype, p2->nodetype)) {
+ if (varIsSet("$unsafeassign")) {
+ if (size(p1->nodetype) != size(p2->nodetype)) {
+ error("incompatible sizes");
+ }
+ } else if (not compatible(p1->nodetype, p2->nodetype)) {
error("incompatible types");
}
break;
error("incompatible types");
}
break;