fix: CHR expects a CARDINAL parameter
This commit is contained in:
parent
62d8930080
commit
3b922f1292
|
@ -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…
Reference in a new issue