/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/pointers10.pas
15 строк
337 B
Бондарев Иван
fix #1580
16 дек 2018, 19:52
16 дек 2018, 19:52
45c0420
Код
Авторство
О чём код?
begin var i: int64 := $FF22FF3322; var p := pointer(i); i := int64(p); if System.Environment.Is64BitProcess then begin assert(i = $FF22FF3322); assert(PointerToString(p) = '$FF22FF3322'); end; i := $FF22FF; p := pointer(i); i := int64(p); assert(i = $FF22FF); assert(PointerToString(p) = '$FF22FF'); end.