Browse Source

Avoid range check error for 64bit cpu by direct writing to FormatParams array

git-svn-id: trunk@29990 -
pierre 10 years ago
parent
commit
85a7b9d9cf
1 changed files with 2 additions and 1 deletions
  1. 2 1
      ide/wviews.pas

+ 2 - 1
ide/wviews.pas

@@ -2342,7 +2342,8 @@ end;
 
 
 procedure AddFormatParam(P: pointer);
 procedure AddFormatParam(P: pointer);
 begin
 begin
-  AddFormatParamInt(ptrint(P));
+  Inc(FormatParamCount);
+  FormatParams[FormatParamCount]:=ptrint(P);
 end;
 end;
 
 
 procedure AddFormatParamInt(L: longint);
 procedure AddFormatParamInt(L: longint);