Оптимизация "Allow Unrounded Floating Point Operations&

[Mikle]

Подскажите, кто знает, что делает данный пункт оптимизации, когда его можно применять?

[GSerg]

Allow Unrounded Floating-Point Operations

Allows the compiler to compare the results of floating-point expressions without first rounding those results to the correct precision.

Floating-point calculations are normally rounded off to the correct degree of precision (Single or Double) before comparisons are made. Selecting this option allows the compiler do floating-point comparisons before rounding, when it can do so more efficiently. This improves the speed of some floating-point operations; however, this may result in calculations being maintained to a higher precision than expected, and two floating-point values that might be expected to compare equal might not.

In general this option should not be used if you perform equality comparisons directly on the results of floating-point computations. For example:

Код: Выделить всё

Dim Q As Single

Q = <floating-point computation>
  …
If Q = <floating-point computation> then
  ...
End If

If the option is set, the comparison of Q will be made with the result of the floating-point expression, which will likely have higher precision than that of a Single, so the comparison may fail. If the option is not set, the result of the floating-point expression will be rounded to the appropriate precision (Single) before the comparison, then the comparison will succeed.

[Mikle]

GSerg
Бум переводить...

[Ennor]

По своему опыту могу сказать, что это - вторая и последняя опция, недостойная применения. Из-за нее мне как-то пришлось срочно писать свою функцию сравнения дат, т.к. штатное сравнение в VB почему-то резко начало находить различия в датах, округленных до часа (!) и равных между собой в строковом виде.

[Mikle]

Ennor

это - вторая и последняя опция, недостойная применения.

А первая какая?

[Ennor]

Assume No Aliasing, разумеется. Чтобы ее включить и ничего не заглючило... ну, я не знаю, как надо программу писать. Там даже "Hello world" не факт, что заработает. Грубо говоря, там получается эффект исчезновения ByRef-аргументации. Не думаю, что без этого можно написать хоть сколько-нибудь сложную программу.

[Mikle]

Ennor
Я почти всегда включаю "Assume No Aliasing", что-то не замечал проблем. Единственное, что иногда глючило - это "Allow Unrounded Floating-Point Operations". Вот и решил разобраться.

[GSerg]

Никогда не включал Assume No Aliasing, и, видимо, не включу
Потому что с ByRef можно делать очень красивые, на мой взгляд, веши

Например, есть структура

Код: Выделить всё

Private Type SYSTEMTIME
  wYear As Integer
  wMonth As Integer
  wDayOfWeek As Integer
  wDay As Integer
  wHour As Integer
  wMinute As Integer
  wSecond As Integer
  wMilliseconds As Integer
End Type

Как написать функцию, которая, получив эту структуру, вернёт указанный её член?
Можно так:

Код: Выделить всё

Function GetDatePart(struct As SYSTEMTIME, MemberName As String) As Integer
  Select Case MemberName
  Case "Year"
    GetDatePart = struct.wYear
  case "Month"
    ...

  End Select
End Function

А можно так:

Код: Выделить всё

Function GetDatePart(t As SYSTEMTIME, ByRef tmember As Integer) As Integer
  GetDatePart = tmember
End Function

Sub Test
  Dim t As SYSTEMTIME

  t.wYear = 2005
  t.wMonth = 8
  t.wDay = 10
 
  MsgBox GetDatePart(t, t.wMonth)
End sub


[GSerg]

Да, и если возникнет вопрос, почему просто не взять сразу t.wMonth - отвечаю: потому что структура хитро получается через API и иначе придётся делать арифметику с указателями - либо дублировать код

[Mikle]

GSerg
Только что проверил твой пример - работает скомпиленный со всеми оптимизациями. А ByRef я и сам, может и более прозаично, но постоянно использую. В VB ByRef используется по умолчанию, а для структур вообще ByVal невозможен.

[Mikle]

GSerg
Что-то не нахожу смысла в примере, может ты что-то не дописал?
Работает и так:

Код: Выделить всё

Private Function GetDatePart(t As SYSTEMTIME, ByVal tmember As Integer) As Integer
  GetDatePart = tmember
End Function

Sub Test
  Dim t As SYSTEMTIME
  Dim t2 As SYSTEMTIME

  t.wYear = 2005
  t.wMonth = 8
  t.wDay = 10
 
  MsgBox GetDatePart(t2, t.wMonth)
End sub


Никакой разницы.

[GSerg]

Да, да, да
Перепутал порядок действий

Переменная объявляется в вызывающей программе, но заполняется через API в функции GetDatePart, возвращая ту часть, которая нужна

[Mikle]

Все-таки хотелось бы понять

[GSerg]

Код: Выделить всё

Public Property Get Month() As Variant
  Dim t As SYSTEMTIME
 
  Month = GetDatePart(t, t.wMonth)
End Property

Public Property Get Day() As Variant
  Dim t As SYSTEMTIME
 
  Day = GetDatePart(t, t.wDay)
End Property

Public Property Get Hour() As Variant
  Dim t As SYSTEMTIME
 
  Hour = GetDatePart(t, t.wHour)
End Property

Public Property Get Minute() As Variant
  Dim t As SYSTEMTIME
 
  Minute = GetDatePart(t, t.wMinute)
End Property

Public Property Get Second() As Variant
  Dim t As SYSTEMTIME
 
  Second = GetDatePart(t, t.wSecond)
End Property


Private Function GetDatePart(t As SYSTEMTIME, ByRef tmember As Integer) As Variant
  If SendMessage(h, DTM_GETSYSTEMTIME, 0, t) = GDT_VALID Then
    GetDatePart = tmember
  Else
    GetDatePart = Null
  End If
End Function

Ы?

[Igor_123]

Блин! Минут 10 смотрел как баран на новые ворота, пока не дошло:
В функции заполняеться структура, и сразу используеться поле для возвращаемого значения.

Интересненько! Подумаем как применять у себя
Очередное Спасибо!
Даже нет Внеочередное Спасибо

[Ennor]

Прикольно, согласен. Такого метода я еще не применял. Только вот... GSerg, объясни плиз, а нафига вообще в функции GetDatePart() первый параметр? Ведь всю эту конструкцию можно причесать в один элегантный самописный enum.

[alibek]

Ennor, первый параметр и является ключевым
Второй параметр обозначает всего лишь смещение в первом параметре.

P.S. Выглядит офигительно красиво Вот только никак не могу сообразить, где его можно применить практически.

[GSerg]

Ага

Помнится, где-то у меня был пример, когда мне понадобилось один и тот же параметр передавать в функцию и как byval, и как byref
Ща поищем...

[alibek]

И как я подозреваю, это применимо лишь к мемберам одного типа. Вернее, самой идее пофиг, какого типа будет мембер, но компилятор такое не пропустит. А так как на практике мемберы UDT обычно бывают разных типов, то применять такой подход получится не всегда.

[alibek]

и как byval, и как byref

А чем не устраивал MyProc A и MyProc (A) ?

[GSerg]

Не, ты не понял - одновременно, в рамках одного вызова, одну и ту же переменную как byval и как byref, двумя разными параметрами


Впрочем, я нашёл этот пример, и он не так интересен

[Amed]

GSerg, не могу не отметиться

Тонко, элегантно, оригинально

[Konst_One]

GSerg
во завернул то как
до такого еще ведь додуматься было надо

[Mikle]

Код: Выделить всё

SendMessage(h, DTM_GETSYSTEMTIME, 0, t) = GDT_VALID


Саму ф-цию я нашел в деклараторе, с "h" разобрался - me.hwnd, а где взять константы DTM_GETSYSTEMTIME и GDT_VALID ?

[alibek]

Из хидеров студии (скорее всего commdlg.h).

[Andrey Fedorov]

Ы?

А так, случаем не проще:

Код: Выделить всё

Public Property Get Second() As Variant
    Second = GetDatePart.wSecond
End Property

Private Function GetDatePart() As SYSTEMTIME
    Dim t As SYSTEMTIME
    ...
    GetDatePart = t
End Function


[GSerg]

Обращаем внимание на код.
Видим, что в случае, когда не GDT_VALID, возвращается Null.

Ы?

[Igor_123]

Так то оно может проще, но мы выясняли принцип, а куда применять и выгодность применения каждый решает в своем случае сам

[GSerg]

Так то оно может проще

Не может, а неверно в корне, ибо нельзя вернуть Null

[Andrey Fedorov]

Обращаем внимание на код.
Видим, что в случае, когда не GDT_VALID, возвращается Null.

Ы?

Ну возвращай структуру со значениями Variant - что мешает?

Если на то пошло то мне изначально сие решение не нравится - допустим минуты я считал в 23:59. Далее читаю часы и получаю 0 - успели переключиться!!! А я в итоге имею в корне неверное время 0:59.

IMHO время надо считывать за один раз каким-то методом класса, а потом уже разбирать его по пропертям...