anchor.diff:  {$ENDIF}
   {$ENDIF}
         end;
  -      datap := Pointer(IPointer(datap)+ (2*sizeof(Pointer)+sizeof(LongBool)));
  +      datap := Pointer(IPointer(datap)+ (3*sizeof(Pointer)));
         p := Pointer(IPointer(p) + Cardinal(v^.ElementSize));
       end;
       FreeMem(v.Data, v.ElementSize * v.ItemCount);
  
positive.code:   mov [esp], edx
    mov eax, ecx
  end;
  
  function ResultAsRegister(b: TPSTypeRec): Boolean;
  begin
  
negative.code: {$ENDIF}
        end;
      end;
      datap := Pointer(IPointer(datap)+ (3*sizeof(Pointer)));
      p := PansiChar(p) + Result^.ElementSize;
    end;
  end;
  