paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-28 14:42:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed warnings and notes.

Browse Source 
git-svn-id: trunk@9097 -
This commit is contained in:
yury 2007-11-03 10:53:08 +00:00
parent 6a36ac786a
commit 515017ece6
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/objpas/fmtbcd.pp
View File

@ -16,7 +16,7 @@
{ "Programming is the time between two bugs" } { "Programming is the time between two bugs" }
{ (last words of the unknown programmer) } { (last words of the unknown programmer) }
{ this program was a good test for the compiler: some bugs have been found. (* this program was a good test for the compiler: some bugs have been found.
1. WITH in inline funcs produces a compiler error AFTER producing an .exe file 1. WITH in inline funcs produces a compiler error AFTER producing an .exe file
(was already known; I didn't see it in the bug list) (was already known; I didn't see it in the bug list)
@ -39,7 +39,7 @@
6. two range check errors in scanner.pas 6. two range check errors in scanner.pas
a) array subscripting a) array subscripting
b) value out ouf range b) value out ouf range
} *)
{ $define debug_version} { $define debug_version}
@ -791,8 +791,8 @@ INTERFACE
{ in the tBCD_helper the bcd is stored for computations, { in the tBCD_helper the bcd is stored for computations,
shifted to the right position } shifted to the right position }
{ {$define __lo_bhb := 1 * ( __lo_bh + __lo_bh ) } } // {$define __lo_bhb := 1 * ( __lo_bh + __lo_bh ) }
{ {$define __hi_bhb := 1 * ( __hi_bh + __hi_bh + 1 ) } } // {$define __hi_bhb := 1 * ( __hi_bh + __hi_bh + 1 ) }
const const
__lo_bhb = __lo_bh + __lo_bh - 1; __lo_bhb = __lo_bh + __lo_bh - 1;
__hi_bhb = __hi_bh + __hi_bh; __hi_bhb = __hi_bh + __hi_bh;
@ -830,7 +830,7 @@ IMPLEMENTATION
PROTECTED PROTECTED
function GetInstance(const v : TVarData): tObject; OVERRIDE; function GetInstance(const v : TVarData): tObject; OVERRIDE;
PUBLIC PUBLIC
procedure BinaryOp(var Left: TVarData; const Right: TVarData; const Operation: TVarOp); procedure BinaryOp(var Left: TVarData; const Right: TVarData; const Operation: TVarOp); override;
end; end;
TFMTBcdVarData = CLASS(TPersistent) TFMTBcdVarData = CLASS(TPersistent)
@ -1563,7 +1563,6 @@ IMPLEMENTATION
bh : tBCD_helper; bh : tBCD_helper;
v : {$ifopt r+} 0..high ( myInttype ) {$else} Integer {$endif}; v : {$ifopt r+} 0..high ( myInttype ) {$else} Integer {$endif};
p : {$ifopt r+} low ( bh.Singles ) - 1..0 {$else} Integer {$endif}; p : {$ifopt r+} low ( bh.Singles ) - 1..0 {$else} Integer {$endif};
Error,
exitloop : Boolean; exitloop : Boolean;
begin begin
@ -1589,7 +1588,6 @@ IMPLEMENTATION
else v := +aValue; else v := +aValue;
LDig := 0; LDig := 0;
p := 0; p := 0;
Error := False;
REPEAT REPEAT
Singles[p] := v MOD 10; Singles[p] := v MOD 10;
v := v DIV 10; v := v DIV 10;
@ -1598,7 +1596,6 @@ IMPLEMENTATION
if p < low ( Singles ) if p < low ( Singles )
then begin then begin
exitloop := True; exitloop := True;
Error := True;
(* what to do if error occured? *) (* what to do if error occured? *)
RAISE eBCDOverflowException.create ( 'in IntegerToBCD' ); RAISE eBCDOverflowException.create ( 'in IntegerToBCD' );
end; end;
@ -1608,12 +1605,13 @@ IMPLEMENTATION
pack_BCD ( bh, result ); pack_BCD ( bh, result );
_endSELECT; _endSELECT;
end; end;
{$warnings off}
function VarToBCD ( const aValue : Variant ) : tBCD; function VarToBCD ( const aValue : Variant ) : tBCD;
begin begin
not_implemented; not_implemented;
end; end;
{$warnings on}
function CurrToBCD ( const Curr : currency; function CurrToBCD ( const Curr : currency;
var BCD : tBCD; var BCD : tBCD;