fix: CHR expects a CARDINAL parameter
This commit is contained in:
parent
bdfe2ec9cf
commit
e3a1bdee64
@ -75,7 +75,7 @@ MODULE StoreFetch;
|
|||||||
REPEAT
|
REPEAT
|
||||||
INC(i);
|
INC(i);
|
||||||
Remove(OrdOfChar);
|
Remove(OrdOfChar);
|
||||||
String[i] := CHR(OrdOfChar);
|
String[i] := CHR(CARDINAL(OrdOfChar));
|
||||||
UNTIL String[i] = eos;
|
UNTIL String[i] = eos;
|
||||||
WriteLn;
|
WriteLn;
|
||||||
WriteString("After transfer: ");
|
WriteString("After transfer: ");
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user