equal
deleted
inserted
replaced
168 var f: textfile; |
168 var f: textfile; |
169 {$ENDIF} |
169 {$ENDIF} |
170 |
170 |
171 function hwSign(r: hwFloat): LongInt; |
171 function hwSign(r: hwFloat): LongInt; |
172 begin |
172 begin |
173 if r.isNegative then hwSign:= -1 else hwSign:= 1 |
173 if r.isNegative and (r.QWordValue > 0) then hwSign:= -1 else hwSign:= 1 |
174 end; |
174 end; |
175 |
175 |
176 function Min(a, b: LongInt): LongInt; |
176 function Min(a, b: LongInt): LongInt; |
177 begin |
177 begin |
178 if a < b then Min:= a else Min:= b |
178 if a < b then Min:= a else Min:= b |