False validation error for short unpacked records

[hvlad]

The problem is in validation code that not correctly handle short unpacked records (new in ODS 13.2)

How to reproduce:

firebird>isql
SQL> create database 'err.fdb';
SQL> create table tmp1(a1 integer);
SQL> insert into tmp1 values (1000);
SQL> commit;
SQL> exit;

firebird>gfix -v -full err.fdb
Summary of validation errors

    Number of record level errors   : 1

firebird.log contains

Error: Record 0 is wrong length in table TMP1 (128)