No!adimetrius wrote:P.S. It seems I can't post at the other discussion page
The policy is described here: https://wiki.blackboxframework.org/inde ... tin_Boards .
No!adimetrius wrote:P.S. It seems I can't post at the other discussion page
@adimetriusadimetrius wrote:For a permanent correction, why not amend CheckForm?
It would be the most 'straight' logic: CheckForm checks that the format of data is correct. It is correct to convert a Pointer to a Real64, and that't what CheckForm should return. Amending other procedures looks as a workaround to me.P.S. It seems I can't post at the other discussion pageCode: Select all
PROCEDURE CheckForm (form: BYTE; VAR mf: INTEGER); BEGIN IF form = Real32 THEN mf := 0 ELSIF form = Real64 THEN mf := 4 ELSIF form = Int32 THEN mf := 2 ELSIF form = Pointer THEN mf := 2 (* this is the addition *) ELSE ASSERT(form = Int16); mf := 6 END END CheckForm;