|
@@ -1022,7 +1022,7 @@ IMPLEMENTATION
|
|
|
|
|
|
|
|
var
|
|
var
|
|
|
i : {$ifopt r+} __lo_bh + 1 ..__hi_bh {$else} Integer {$endif};
|
|
i : {$ifopt r+} __lo_bh + 1 ..__hi_bh {$else} Integer {$endif};
|
|
|
- j : {$ifopt r+} -1..__high_fraction {$else} Integer {$endif};
|
|
|
|
|
|
|
+ j : {$ifopt r+} __low_fraction..__high_fraction+1 {$else} Integer {$endif};
|
|
|
vv : {$ifopt r+} $00..$99 {$else} Integer {$endif};
|
|
vv : {$ifopt r+} $00..$99 {$else} Integer {$endif};
|
|
|
|
|
|
|
|
begin
|
|
begin
|
michael