24 lines
694 B
Smalltalk
24 lines
694 B
Smalltalk
(*
|
|
===============================================================================
|
|
Project : PLC_Library
|
|
Device : -
|
|
Path : Преобразование значений
|
|
Name : REAL_TO_DW
|
|
Type : FUNCTION
|
|
===============================================================================
|
|
*)
|
|
|
|
FUNCTION REAL_TO_DW : DWORD
|
|
(* Побитовое переинтерпретирование REAL как DWORD (без преобразования значения) *)
|
|
VAR_INPUT
|
|
X : REAL; (* Значение для переинтерпретации *)
|
|
END_VAR
|
|
VAR
|
|
pt : POINTER TO DWORD;
|
|
END_VAR
|
|
|
|
(*----- IMPLEMENTATION -----*)
|
|
pt := ADR(X);
|
|
REAL_TO_DW := pt^;
|
|
END_FUNCTION
|