| changeset 916 | 1d0022336fbb |
| parent 915 | 33040b7695c0 |
| child 918 | c8cff180da57 |
| 915:33040b7695c0 | 916:1d0022336fbb |
|---|---|
80 end; |
80 end; |
81 |
81 |
82 function rndSign(num: hwFloat): hwFloat; |
82 function rndSign(num: hwFloat): hwFloat; |
83 begin |
83 begin |
84 num.isNegative:= odd(GetNext); |
84 num.isNegative:= odd(GetNext); |
85 if num.isNegative then AddFileLog('isNegative TRUE') else AddFileLog('isNegative FALSE'); |
|
85 rndSign:= num |
86 rndSign:= num |
86 end; |
87 end; |
87 |
88 |
88 {$IFDEF DEBUGFILE} |
89 {$IFDEF DEBUGFILE} |
89 procedure DumpBuffer; |
90 procedure DumpBuffer; |