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

* Fixed warnings.

Browse Source 
git-svn-id: trunk@9102 -
This commit is contained in:
yury 2007-11-03 12:22:54 +00:00
parent cc31f2d720
commit 4662eb98fc
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/i386/i386.inc
View File

@ -1021,7 +1021,7 @@ function fpc_pchar_length(p:pchar):longint;assembler;[public,alias:'FPC_PCHAR_LE
function get_frame:pointer;assembler;nostackframe;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
movl %ebp,%eax
end ['EAX'];
end;
{$ENDIF not INTERNAL_BACKTRACE}
@ -1035,7 +1035,7 @@ asm
jz .Lg_a_null
movl 4(%eax),%eax
.Lg_a_null:
end ['EAX'];
end;
{$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
@ -1048,7 +1048,7 @@ asm
jz .Lgnf_null
movl (%eax),%eax
.Lgnf_null:
end ['EAX'];
end;
{****************************************************************************
Math
@ -1063,7 +1063,7 @@ asm
cltd
xorl %edx,%eax
subl %edx,%eax
end ['EAX','EDX'];
end;
{$define FPC_SYSTEM_HAS_SQR_LONGINT}
@ -1077,7 +1077,7 @@ asm
{$endif}
{$endif}
imull %eax,%eax
end ['EAX'];
end;
{$define FPC_SYSTEM_HAS_SPTR}

2
rtl/win32/system.pp
View File

@ -51,7 +51,7 @@ type
const
{ Default filehandles }
UnusedHandle : THandle = -1;
UnusedHandle : THandle = THandle(-1);
StdInputHandle : THandle = 0;
StdOutputHandle : THandle = 0;
StdErrorHandle : THandle = 0;