Zero is deleted as a possible argument to LOI and STI.

Allowing that was an oversight.
This commit is contained in:
keie 1985-01-31 14:03:56 +00:00
parent 6459b0bf5f
commit f586956618

View file

@ -240,7 +240,7 @@ begin if (a<0) or (a>maxoffs)
end;
function argo(a:double):size;
begin if (a<0) or (a>maxoffs)
begin if (a<=0) or (a>maxoffs)
then trap(EODDZ)
else if (a mod wsize<>0) and (wsize mod a<>0) then trap(EODDZ);
argo:=a ;