Zero is deleted as a possible argument to LOI and STI.
Allowing that was an oversight.
This commit is contained in:
parent
6459b0bf5f
commit
f586956618
1 changed files with 1 additions and 1 deletions
|
@ -240,7 +240,7 @@ begin if (a<0) or (a>maxoffs)
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function argo(a:double):size;
|
function argo(a:double):size;
|
||||||
begin if (a<0) or (a>maxoffs)
|
begin if (a<=0) or (a>maxoffs)
|
||||||
then trap(EODDZ)
|
then trap(EODDZ)
|
||||||
else if (a mod wsize<>0) and (wsize mod a<>0) then trap(EODDZ);
|
else if (a mod wsize<>0) and (wsize mod a<>0) then trap(EODDZ);
|
||||||
argo:=a ;
|
argo:=a ;
|
||||||
|
|
Loading…
Add table
Reference in a new issue