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

* remove warnings

Browse Source
This commit is contained in:
peter 2001-04-13 22:26:32 +00:00
parent a6d36b284a
commit e150c46c78
5 changed files with 35 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/i386/math.inc
View File

@ -33,7 +33,7 @@
// comes from DJ GPP
fldt d
fldl2e
fmulp %st(1)
fmulp %st,%st(1)
fstcw .LCW1
fstcw .LCW2
andw $0xf3ff,.LCW2
@ -46,7 +46,7 @@
fsub %st(1),%st
f2xm1
fld1
faddp %st(1)
faddp %st,%st(1)
fscale
fstp %st(1)
jmp .LCW3
@ -74,7 +74,7 @@
fldt d
frndint
fldt d
fsub %st(1)
fsub %st(1),%st
fstp %st(1)
fclex
fldcw -4(%ebp)
@ -329,7 +329,10 @@
{
$Log$
Revision 1.4 2000-10-21 18:20:17 florian
Revision 1.5 2001-04-13 22:26:32 peter
* remove warnings
Revision 1.4 2000/10/21 18:20:17 florian
* a lot of small changes:
- setlength is internal
- win32 graph unit extended

11
rtl/inc/except.inc
View File

@ -148,8 +148,10 @@ end;
Procedure PopAddrStack;[Public, Alias : 'FPC_POPADDRSTACK'];
{$ifndef HAS_ADDR_STACK_ON_STACK}
var
hp : PExceptAddr;
{$endif HAS_ADDR_STACK_ON_STACK}
begin
{$ifdef excdebug}
writeln ('In Popaddrstack');
@ -161,11 +163,13 @@ begin
end
else
begin
{$ifndef HAS_ADDR_STACK_ON_STACK}
hp:=ExceptAddrStack;
ExceptAddrStack:=ExceptAddrStack^.Next;
{$ifndef HAS_ADDR_STACK_ON_STACK}
dispose(hp^.buf);
dispose(hp);
{$else HAS_ADDR_STACK_ON_STACK}
ExceptAddrStack:=ExceptAddrStack^.Next;
{$endif HAS_ADDR_STACK_ON_STACK}
end;
end;
@ -269,7 +273,10 @@ begin
end;
{
$Log$
Revision 1.5 2001-01-24 21:47:18 florian
Revision 1.6 2001-04-13 22:30:04 peter
* remove warnings
Revision 1.5 2001/01/24 21:47:18 florian
+ more MT stuff added
Revision 1.4 2001/01/05 17:35:50 florian

15
rtl/inc/int64.inc
View File

@ -31,7 +31,7 @@
r:=0;
for i:=0 to 31 do
begin
if (tqwordrec(q).high and (longint($80000000) shr i))<>0 then
if (tqwordrec(q).high and (dword($80000000) shr i))<>0 then
begin
count_leading_zeros:=r;
exit;
@ -40,7 +40,7 @@
end;
for i:=0 to 31 do
begin
if (tqwordrec(q).low and (longint($80000000) shr i))<>0 then
if (tqwordrec(q).low and (dword($80000000) shr i))<>0 then
begin
count_leading_zeros:=r;
exit;
@ -296,7 +296,7 @@
((q1>q3) or (q2>q3) or
{ the bit 63 can be only set if we have $80000000 00000000 }
{ and sign is true }
((tqwordrec(q3).high and longint($80000000))<>0) and
((tqwordrec(q3).high and dword($80000000))<>0) and
((q3<>(qword(1) shl 63)) or not(sign))
) then
HandleErrorFrame(215,get_frame);
@ -450,8 +450,8 @@
Exit;
with qwordrec(maxqword) do
begin
l1 := $ffffffff;
l2 := $ffffffff;
l1 := longint($ffffffff);
l2 := longint($ffffffff);
end;
while Code<=Length(s) do
begin
@ -477,7 +477,10 @@
{
$Log$
Revision 1.8 2001-03-03 12:39:09 jonas
Revision 1.9 2001-04-13 22:30:04 peter
* remove warnings
Revision 1.8 2001/03/03 12:39:09 jonas
* fixed qword_str for values with bit 63 = 1
Revision 1.7 2000/12/10 15:00:14 florian

7
rtl/inc/objpas.inc
View File

@ -623,7 +623,7 @@
if getinterface(iid,obj) then
result:=0
else
result:=$80004002;
result:=longint($80004002);
end;
function TInterfacedObject._AddRef : longint;stdcall;
@ -678,7 +678,10 @@
{
$Log$
Revision 1.13 2000-12-20 21:38:23 florian
Revision 1.14 2001-04-13 22:30:04 peter
* remove warnings
Revision 1.13 2000/12/20 21:38:23 florian
* is-operator fixed
Revision 1.12 2000/11/12 23:23:34 florian

7
rtl/inc/sstrings.inc
View File

@ -397,7 +397,7 @@ end;
Function ValUnsignedInt(Const S: ShortString; var Code: ValSInt): ValUInt; [public, alias:'FPC_VAL_UINT_SHORTSTR'];
var
u, prev, maxValue: ValUInt;
u, prev : ValUInt;
base : byte;
negative : boolean;
begin
@ -546,7 +546,10 @@ end;
{
$Log$
Revision 1.10 2001-04-13 18:06:28 peter
Revision 1.11 2001-04-13 22:30:04 peter
* remove warnings
Revision 1.10 2001/04/13 18:06:28 peter
* removed rtllite define
Revision 1.9 2001/03/03 12:38:53 jonas