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

* fixed compilation with 2.0.4

Browse Source 
git-svn-id: trunk@5082 -
This commit is contained in:
florian 2006-10-30 07:53:46 +00:00
parent e70355cb57
commit c5535366c7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/objpas/fmtbcd.pp
View File

@ -3687,7 +3687,7 @@ procedure TFMTBcdFactory.BinaryOp(var Left: TVarData; const Right: TVarData; con
end; end;
{$if declared ( myMinIntBCD ) } {$if declared ( myMinIntBCD ) }
(*
{$if sizeof ( integer ) = 2 } {$if sizeof ( integer ) = 2 }
{$ifdef BCDgr4 } {$ifdef BCDgr4 }
@ -3697,12 +3697,14 @@ procedure TFMTBcdFactory.BinaryOp(var Left: TVarData; const Right: TVarData; con
{$endif} {$endif}
{$else} {$else}
{$if sizeof ( integer ) = 4 } {$if sizeof ( integer ) = 4 }
*)
{$ifdef BCDgr9 } {$ifdef BCDgr9 }
const const
myMinIntBCDValue : packed array [ 1..10 ] of Char = #$21#$47#$48#$36#$48; myMinIntBCDValue : packed array [ 1..10 ] of Char = #$21#$47#$48#$36#$48;
{$endif} {$endif}
(*
{$else} {$else}
{$if sizeof ( integer ) = 8 } {$if sizeof ( integer ) = 8 }
{$ifdef BCDgr18 } {$ifdef BCDgr18 }
@ -3716,6 +3718,7 @@ procedure TFMTBcdFactory.BinaryOp(var Left: TVarData; const Right: TVarData; con
{$endif} {$endif}
{$endif} {$endif}
{$endif} {$endif}
*)
{$endif} {$endif}
initialization initialization