firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-22 20:43:02 +01:00
Code Issues

Restore local variable usage.

Browse Source
This commit is contained in:
Vlad Khorsun 2023-04-10 14:23:36 +03:00
parent 308579c2f7
commit f4361bb670
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/misc/pascal/Pascal.implementation.pas
View File

@ -24,6 +24,7 @@ end;
class procedure FbException.catchException(status: IStatus; e: Exception);
var
statusVector: array[0..4] of NativeIntPtr;
msg: AnsiString;
begin
if (not Assigned(status)) then
Exit;
@ -32,10 +33,12 @@ begin
status.setErrors(FbException(e).getStatus.getErrors)
else
begin
msg := AnsiString(e.message);
statusVector[0] := NativeIntPtr(isc_arg_gds);
statusVector[1] := NativeIntPtr(isc_random);
statusVector[2] := NativeIntPtr(isc_arg_string);
statusVector[3] := NativeIntPtr(PAnsiChar(AnsiString(e.message)));
statusVector[3] := NativeIntPtr(PAnsiChar(msg));
statusVector[4] := NativeIntPtr(isc_arg_end);
status.setErrors(@statusVector);