paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 00:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed 64 bit issues

Browse Source
This commit is contained in:
florian 2004-12-19 19:11:11 +00:00
parent eab53234cd
commit 97f8abc1da
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/wviews.pas
View File

@ -231,7 +231,7 @@ procedure NotImplemented;
function ColorIndex(Color: byte): word; function ColorIndex(Color: byte): word;
var FormatParams : array[1..20] of longint; var FormatParams : array[1..20] of ptrint;
FormatParamCount : integer; FormatParamCount : integer;
FormatParamStrs : array[1..10] of string; FormatParamStrs : array[1..10] of string;
FormatParamStrCount: integer; FormatParamStrCount: integer;
@ -2327,7 +2327,7 @@ end;
procedure AddFormatParam(P: pointer); procedure AddFormatParam(P: pointer);
begin begin
AddFormatParamInt(longint(P)); AddFormatParamInt(ptrint(P));
end; end;
procedure AddFormatParamInt(L: longint); procedure AddFormatParamInt(L: longint);
@ -2343,7 +2343,8 @@ end;
procedure AddFormatParamStr(const S: string); procedure AddFormatParamStr(const S: string);
begin begin
Inc(FormatParamStrCount); FormatParamStrs[FormatParamStrCount]:=S; Inc(FormatParamStrCount);
FormatParamStrs[FormatParamStrCount]:=S;
AddFormatParam(@FormatParamStrs[FormatParamStrCount]); AddFormatParam(@FormatParamStrs[FormatParamStrCount]);
end; end;
@ -2377,7 +2378,9 @@ function FormatStrStr3(const Format, Param1,Param2,Param3: string): string;
var S: string; var S: string;
P: array[1..3] of pointer; P: array[1..3] of pointer;
begin begin
P[1]:=@Param1; P[2]:=@Param2; P[3]:=@Param3; P[1]:=@Param1;
P[2]:=@Param2;
P[3]:=@Param3;
FormatStr(S,Format,P); FormatStr(S,Format,P);
FormatStrStr3:=S; FormatStrStr3:=S;
end; end;
@ -2549,7 +2552,10 @@ end;
END. END.
{ {
$Log$ $Log$
Revision 1.12 2004-12-06 20:53:55 peter Revision 1.13 2004-12-19 19:11:11 florian
* fixed 64 bit issues
Revision 1.12 2004/12/06 20:53:55 peter
Handle cmUpdate for all DlgWindows Handle cmUpdate for all DlgWindows
Revision 1.11 2004/12/06 19:23:30 peter Revision 1.11 2004/12/06 19:23:30 peter