ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/branches/udr/client/3.0/FB30Statement.pas
(Generate patch)

Comparing ibx/branches/udr/client/3.0/FB30Statement.pas (file contents):
Revision 379 by tony, Mon Jan 10 10:08:03 2022 UTC vs.
Revision 384 by tony, Mon Jan 17 09:52:58 2022 UTC

# Line 982 | Line 982 | procedure TIBXINPUTSQLDA.PackBuffer;
982   var i: integer;
983      P: PByte;
984      MsgLen: cardinal;
985 +    aNullIndicator: short;
986   begin
987    BuildMetadata;
988  
# Line 1022 | Line 1023 | begin
1023        begin
1024          Move(FNullIndicator,(FMessageBuffer + FCurMetaData.getNullOffset(StatusIntf,i))^,sizeof(FNullIndicator));
1025          Check4DataBaseError;
1026 +      end
1027 +      else
1028 +      begin
1029 +        aNullIndicator := 0;
1030 +        Move(aNullIndicator,(FMessageBuffer + FCurMetaData.getNullOffset(StatusIntf,i))^,sizeof(aNullIndicator));
1031        end;
1032      end;
1033    end;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines