Указатели (POINTER)

[ibx]

Взял из примеров весьма нужную функцию - two_word_to_real
Великолепно работает, но сам код не понял. Если можно поподробней разъясните пожалуйста.

FUNCTION two_word_to_real : REAL
VAR_INPUT
IN_Data: POINTER TO ARRAY[0..1] OF WORD; (*Указатель на массив регистров для Float*)
END_VAR
VAR
p1: POINTER TO BYTE;
p2: POINTER TO BYTE;
END_VAR

p1:=ADR(two_word_to_real);
p2:=ADR(IN_Data^[1]);
p1^:=p2^;
p1:=p1+1;
p2:=p2+1;
p1^:=p2^;
p1:=p1+1;
p2:=ADR(IN_Data^[0]);
p1^:=p2^;
p1:=p1+1;
p2:=p2+1;
p1^:=p2^;

[capzap]

Да ну, фигня это всё, это можно спокойно сделать с помощью shl, без всякого создания подобных функций, ладно бы ещ байты местами надо было бы менять

[amn]

Взял из примеров весьма нужную функцию - two_word_to_real
Великолепно работает, но сам код не понял. Если можно поподробней разъясните пожалуйста.

FUNCTION two_word_to_real : REAL
VAR_INPUT
IN_Data: POINTER TO ARRAY[0..1] OF WORD; (*Указатель на массив регистров для Float*)
END_VAR
VAR
p1: POINTER TO BYTE;
p2: POINTER TO BYTE;
END_VAR

p1:=ADR(two_word_to_real);
p2:=ADR(IN_Data^[1]);
p1^:=p2^;
p1:=p1+1;
p2:=p2+1;
p1^:=p2^;
p1:=p1+1;
p2:=ADR(IN_Data^[0]);
p1^:=p2^;
p1:=p1+1;
p2:=p2+1;
p1^:=p2^;

Если коротко, то массив из двух регистров имеет 4 байта в следующей последовательности
1-й байт, 2-й байт, 3-й байт, 4-й байт

После выполнения функции последовательность будет такая
3-й байт, 4-й байт, 1-й байт, 2-й байт

FUNCTION two_word_to_real : REAL
VAR_INPUT
IN_Data: POINTER TO ARRAY[0..1] OF WORD; (*Указатель на массив регистров для Float (всего 4 байта)*)
END_VAR
VAR
p1: POINTER TO BYTE;	(указатель на результат функции)
p2: POINTER TO BYTE;	(*указатель на массив регистров*)
END_VAR

p1:=ADR(two_word_to_real);		(*указатель на начало результата функции (1-й байт)*)
p2:=ADR(IN_Data^[1]);			(*указатель на второй элемент массива (3-й байт) *)
p1^:=p2^;			(*копируем содержимое по адресу второго указателя в адрес первого указателя *)
p1:=p1+1;			(*смещаем адрес на 1 байт, теперь он указывает на 2-й байт результата*)
p2:=p2+1;			(*смещаем адрес на 1 байт, теперь он указывает на 4-й байт массива*)
p1^:=p2^;			(*копируем содержимое по адресу второго указателя в адрес первого указателя *)
p1:=p1+1;			(*смещаем адрес на 1 байт, теперь он указывает на 3-й байт результата*)
p2:=ADR(IN_Data^[0]);			(*указатель на первый элемент массива (1-й байт) *)
p1^:=p2^;			(*копируем содержимое по адресу второго указателя в адрес первого указателя *)
p1:=p1+1;			(*смещаем адрес на 1 байт, теперь он указывает на 4-й байт результата*)
p2:=p2+1;			(*смещаем адрес на 1 байт, теперь он указывает на 2-й байт массива*)
p1^:=p2^;			(*копируем содержимое по адресу второго указателя в адрес первого указателя *)

[lara197a]

Адресная регистрация придумана давным давно.
А еще есть символьная.
В Вашем случае указатели вообще не уместны.
все давно пользуются вторым вариантом(символьная.)

[приборист]

Адресная регистрация придумана давным давно.
А еще есть символьная.
В Вашем случае указатели вообще не уместны.
все давно пользуются вторым вариантом(символьная.)

А символьная это как?
Все пытаюсь осознать указатели, а тут еще и символьная существует

[lara197a]

при создании переменной обзавите ее как нравится.
и используйте это слово по всей программе, где имеете данную переменную.
см. справку..

[ibx]

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

[приборист]

при создании переменной обзавите ее как нравится.
и используйте это слово по всей программе, где имеете данную переменную.
см. справку..

Ааа.. Ну так всегда делал и делаю

[Максим Tomahawk]

В CoDeSys 3 есть Union, кто писал на С наверное предпочтёт через него сделать )

TYPE uRealBytes :
UNION
rValue : REAL; // Needs 4 Bytes in memory
abValue: ARRAY [0..3] OF BYTE;
END_UNION
END_TYPE

В CoDeSys 2.3 мне надо было REAL разбить на массив байт, чтобы их передать. Сделал это следующим образом:

P1: POINTER TO ARRAY [0..3] OF BYTE;
TempMassiv: ARRAY[0..3] OF BYTE;
P1 := ADR(Pressure);
TempMassiv := P1^;
И из TempMassiv теперь можно байты забирать куда нужно.

[Yegor]

кто писал на С

Кто писал на C, тот в цирке не смеётся того ломает прежде всего от невозможности разыменовать возврат ADR. То есть нельзя сделать a := ADR(a)^ как это допускается в Си (a = *&a), потому что ADR возвращает DWORD, а не POINTER. Будь иначе, можно было бы обойтись без объявления лишних переменных и типов.