paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 09:29:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* x86_64 compilation fixed

Browse Source
This commit is contained in:
florian 2004-12-19 13:55:42 +00:00
parent 2e52bf2824
commit 8b0938c9ff
3 changed files with 21 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fpviews.pas
View File

@ -4158,7 +4158,7 @@ begin
begin
W:=FirstEditorWindow;
if Assigned(W) and Assigned(Report) then
Message(W,evCommand,cmAddChar,pointer(ord(Report^.AsciiChar)));
Message(W,evCommand,cmAddChar,pointer(ptrint(ord(Report^.AsciiChar))));
ClearEvent(Event);
end;
cmSearchWindow+1..cmSearchWindow+99 :
@ -4439,7 +4439,10 @@ end;
END.
{
$Log$
Revision 1.51 2004-11-20 14:21:19 florian
Revision 1.52 2004-12-19 13:55:42 florian
* x86_64 compilation fixed
Revision 1.51 2004/11/20 14:21:19 florian
* implemented reload menu item
* increased file history to 9 files

9
ide/whlpview.pas
View File

@ -103,7 +103,7 @@ type
PLinePosCollection = ^TLinePosCollection;
TLinePosCollection = object(TNoDisposeCollection)
function At(Index: sw_Integer): sw_integer;
procedure Insert (Item: longint);virtual;
procedure Insert (Item: ptrint);virtual;
end;
PHelpTopic = ^THelpTopic;
@ -402,7 +402,7 @@ begin
at := longint (inherited at(Index));
end;
procedure TLinePosCollection.Insert (Item: longint);
procedure TLinePosCollection.Insert (Item: ptrint);
begin
Inherited Insert(pointer(Item));
end;
@ -1406,7 +1406,10 @@ end;
END.
{
$Log$
Revision 1.11 2004-11-08 20:28:29 peter
Revision 1.12 2004-12-19 13:55:42 florian
* x86_64 compilation fixed
Revision 1.11 2004/11/08 20:28:29 peter
* Breakpoints are now deleted when removed from source, disabling is
still possible from the breakpoint list
* COMPILER_1_0, FVISION, GABOR defines removed, only support new

17
ide/wutils.pas
View File

@ -114,9 +114,9 @@ type
TIntCollection = object(TSortedCollection)
function Compare(Key1, Key2: Pointer): sw_Integer; virtual;
procedure FreeItem(Item: Pointer); virtual;
procedure Add(Item: longint);
function Contains(Item: longint): boolean;
function AtInt(Index: sw_integer): longint;
procedure Add(Item: ptrint);
function Contains(Item: ptrint): boolean;
function AtInt(Index: sw_integer): ptrint;
end;
{$ifdef TPUNIXLF}
@ -762,18 +762,18 @@ begin
S.WriteStr(Item);
end;
function TIntCollection.Contains(Item: longint): boolean;
function TIntCollection.Contains(Item: ptrint): boolean;
var Index: sw_integer;
begin
Contains:=Search(pointer(Item),Index);
end;
function TIntCollection.AtInt(Index: sw_integer): longint;
function TIntCollection.AtInt(Index: sw_integer): ptrint;
begin
AtInt:=longint(At(Index));
end;
procedure TIntCollection.Add(Item: longint);
procedure TIntCollection.Add(Item: ptrint);
begin
Insert(pointer(Item));
end;
@ -1378,7 +1378,10 @@ BEGIN
END.
{
$Log$
Revision 1.18 2004-09-16 22:08:13 armin
Revision 1.19 2004-12-19 13:55:42 florian
* x86_64 compilation fixed
Revision 1.18 2004/09/16 22:08:13 armin
* added target netwlibc
Revision 1.17 2003/09/27 14:03:45 peter