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

* Fixed warnings.

Browse Source 
git-svn-id: trunk@9514 -
This commit is contained in:
yury 2007-12-22 12:27:03 +00:00
parent d7d6b37158
commit d306e25dc8
4 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/i386/mathu.inc
View File

@ -49,7 +49,7 @@ function cotan(x : float) : float;assembler;
asm
fldt X
fptan
fdivp
fdivp %st,%st(1)
fwait
end;

2
rtl/objpas/typinfo.pp
View File

@ -1395,7 +1395,7 @@ begin
PComp(Pointer(Instance)+PtrUInt(PropInfo^.SetProc))^:=trunc(Value);
{$else FPC_COMP_IS_INT64}
ftComp:
PComp(Pointer(Instance)+PtrUInt(PropInfo^.SetProc))^:=Value;
PComp(Pointer(Instance)+PtrUInt(PropInfo^.SetProc))^:=Comp(Value);
{$endif FPC_COMP_IS_INT64}
ftCurr:
PCurrency(Pointer(Instance)+PtrUInt(PropInfo^.SetProc))^:=Value;

4
rtl/win/mouse.pp
View File

@ -158,7 +158,7 @@ begin
EnterCriticalSection(ChangeMouseEvents);
MouseEvent:=PendingMouseHead^;
inc(PendingMouseHead);
if ptrint(PendingMouseHead)=ptrint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
if ptruint(PendingMouseHead)=ptruint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
PendingMouseHead:=@PendingMouseEvent[0];
dec(PendingMouseEvents);
@ -205,7 +205,7 @@ begin
begin
PendingMouseTail^:=MouseEvent;
inc(PendingMouseTail);
if ptrint(PendingMouseTail)=ptrint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
if ptruint(PendingMouseTail)=ptruint(@PendingMouseEvent)+sizeof(PendingMouseEvent) then
PendingMouseTail:=@PendingMouseEvent[0];
{ why isn't this done here ?
so the win32 version do this by hand:}

1
rtl/win32/classes.pp
View File

@ -180,6 +180,7 @@ function AllocateHWnd(Method: TWndMethod): HWND;
begin
{ dummy }
runerror(217);
Result:=0;
end;