fix: CHR expects a CARDINAL parameter
This commit is contained in:
parent
62d8930080
commit
3b922f1292
|
@ -75,7 +75,7 @@ MODULE StoreFetch;
|
|||
REPEAT
|
||||
INC(i);
|
||||
Remove(OrdOfChar);
|
||||
String[i] := CHR(OrdOfChar);
|
||||
String[i] := CHR(CARDINAL(OrdOfChar));
|
||||
UNTIL String[i] = eos;
|
||||
WriteLn;
|
||||
WriteString("After transfer: ");
|
||||
|
|
Loading…
Reference in a new issue