# | 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; |
# | Line 0 | Line 1 | |
---|---|---|
1 | + | native |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |