paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 08:51:42 +01: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 // comes from DJ GPP
fldt d fldt d
fldl2e fldl2e
fmulp %st(1) fmulp %st,%st(1)
fstcw .LCW1 fstcw .LCW1
fstcw .LCW2 fstcw .LCW2
andw $0xf3ff,.LCW2 andw $0xf3ff,.LCW2
@ -46,7 +46,7 @@
fsub %st(1),%st fsub %st(1),%st
f2xm1 f2xm1
fld1 fld1
faddp %st(1) faddp %st,%st(1)
fscale fscale
fstp %st(1) fstp %st(1)
jmp .LCW3 jmp .LCW3
@ -74,7 +74,7 @@
fldt d fldt d
frndint frndint
fldt d fldt d
fsub %st(1) fsub %st(1),%st
fstp %st(1) fstp %st(1)
fclex fclex
fldcw -4(%ebp) fldcw -4(%ebp)
@ -329,7 +329,10 @@
{ {
$Log$ $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: * a lot of small changes:
- setlength is internal - setlength is internal
- win32 graph unit extended - win32 graph unit extended

11
rtl/inc/except.inc
View File

@ -148,8 +148,10 @@ end;
Procedure PopAddrStack;[Public, Alias : 'FPC_POPADDRSTACK']; Procedure PopAddrStack;[Public, Alias : 'FPC_POPADDRSTACK'];
{$ifndef HAS_ADDR_STACK_ON_STACK}
var var
hp : PExceptAddr; hp : PExceptAddr;
{$endif HAS_ADDR_STACK_ON_STACK}
begin begin
{$ifdef excdebug} {$ifdef excdebug}
writeln ('In Popaddrstack'); writeln ('In Popaddrstack');
@ -161,11 +163,13 @@ begin
end end
else else
begin begin
{$ifndef HAS_ADDR_STACK_ON_STACK}
hp:=ExceptAddrStack; hp:=ExceptAddrStack;
ExceptAddrStack:=ExceptAddrStack^.Next; ExceptAddrStack:=ExceptAddrStack^.Next;
{$ifndef HAS_ADDR_STACK_ON_STACK}
dispose(hp^.buf); dispose(hp^.buf);
dispose(hp); dispose(hp);
{$else HAS_ADDR_STACK_ON_STACK}
ExceptAddrStack:=ExceptAddrStack^.Next;
{$endif HAS_ADDR_STACK_ON_STACK} {$endif HAS_ADDR_STACK_ON_STACK}
end; end;
end; end;
@ -269,7 +273,10 @@ begin
end; end;
{ {
$Log$ $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 + more MT stuff added
Revision 1.4 2001/01/05 17:35:50 florian Revision 1.4 2001/01/05 17:35:50 florian

15
rtl/inc/int64.inc
View File

@ -31,7 +31,7 @@
r:=0; r:=0;
for i:=0 to 31 do for i:=0 to 31 do
begin begin
if (tqwordrec(q).high and (longint($80000000) shr i))<>0 then if (tqwordrec(q).high and (dword($80000000) shr i))<>0 then
begin begin
count_leading_zeros:=r; count_leading_zeros:=r;
exit; exit;
@ -40,7 +40,7 @@
end; end;
for i:=0 to 31 do for i:=0 to 31 do
begin begin
if (tqwordrec(q).low and (longint($80000000) shr i))<>0 then if (tqwordrec(q).low and (dword($80000000) shr i))<>0 then
begin begin
count_leading_zeros:=r; count_leading_zeros:=r;
exit; exit;
@ -296,7 +296,7 @@
((q1>q3) or (q2>q3) or ((q1>q3) or (q2>q3) or
{ the bit 63 can be only set if we have $80000000 00000000 } { the bit 63 can be only set if we have $80000000 00000000 }
{ and sign is true } { 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)) ((q3<>(qword(1) shl 63)) or not(sign))
) then ) then
HandleErrorFrame(215,get_frame); HandleErrorFrame(215,get_frame);
@ -450,8 +450,8 @@
Exit; Exit;
with qwordrec(maxqword) do with qwordrec(maxqword) do
begin begin
l1 := $ffffffff; l1 := longint($ffffffff);
l2 := $ffffffff; l2 := longint($ffffffff);
end; end;
while Code<=Length(s) do while Code<=Length(s) do
begin begin
@ -477,7 +477,10 @@
{ {
$Log$ $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 * fixed qword_str for values with bit 63 = 1
Revision 1.7 2000/12/10 15:00:14 florian 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 if getinterface(iid,obj) then
result:=0 result:=0
else else
result:=$80004002; result:=longint($80004002);
end; end;
function TInterfacedObject._AddRef : longint;stdcall; function TInterfacedObject._AddRef : longint;stdcall;
@ -678,7 +678,10 @@
{ {
$Log$ $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 * is-operator fixed
Revision 1.12 2000/11/12 23:23:34 florian 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']; Function ValUnsignedInt(Const S: ShortString; var Code: ValSInt): ValUInt; [public, alias:'FPC_VAL_UINT_SHORTSTR'];
var var
u, prev, maxValue: ValUInt; u, prev : ValUInt;
base : byte; base : byte;
negative : boolean; negative : boolean;
begin begin
@ -546,7 +546,10 @@ end;
{ {
$Log$ $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 * removed rtllite define
Revision 1.9 2001/03/03 12:38:53 jonas Revision 1.9 2001/03/03 12:38:53 jonas