Отрицательный адрес памяти

[S0rcerer]

Вот в общем какой вопрос
Работаю в Lazarus ( Free Pascal )
нужно обратиться к указателю на переменную через его адрес, а теперь НО

Код: [Выделить]

New(Point);
  writeln(integer(Point));выводит отрицательный адрес памяти, но это не самое обидное
Самое обидное что после  операции Point:=pointer(integer(Point));  Point  уже указывает на другое место в памяти, хотя его integer (Point) остается прежним

Проблему можно решить сделав так

Код: [Выделить]

New(Point);
Point:=pointer(abs(integer(Point)));

  writeln(integer(Point));
Но после этого как понятно у Point отсутствует зарезервированное место в памяти
В общем у кого какие мысли, давайте обсудим... Я бы написал на форуме Lazarus или FreePascal , но на Windows с той же сборкой Lazarus все норм

[Ururu_2]

Подозреваю, что выводится отнюдь не "отрицательный адрес памяти", а вполне нормальный. Как по-твоему определяется, отрицательное ли число в integer? Скорее всего, просто всё, что меньше определённого значения - считается отрицательным. Соответственно, просто адрес оказался меньше "порога" и integer(point) выдало отрицательное число. А в винде адрес просто оказался больше (системы разные и адресация разная) - и integer(point) выдало положительное число.

[shumtest]

Почти так, только с точностью до наоборот Старший бит используется для отрицательных чисел.
А по указателю - там надо выводить или как unsigned или как longint

[Lion-Simba]

А зачем указатель приводить к типу integer?

[S0rcerer]

Спасибо за ответы!
Изменение типа к Longint результата не дало.Плюс integer(Point) = longint(Point) , значит адрес помещается и в integer.
с unsign попробую. А вообще все это мне нужно для реализации Xor-связанного списка
Пользователь решил продолжить мысль 03 Апреля 2011, 10:13:57:pointer(word(Point)) тоже не помогло

[Yurror]

указатель это указатель и не надо указатели приводить к целым числам. вы себе яму роете.
Внимательно читаем
http://www.viva64.com/ru/a/0050/
http://www.viva64.com/ru/t/0041/

[Alexx2000]

В FreePascal есть два типа, которые имеют размерность аналогичную указателю:
PtrInt - знаковый целочисленный тип
PtrUInt - беззнаковый целочисленный тип
Соответственно можно написать так:

Код: [Выделить]

Pointer(PtrUInt(Point))


[S0rcerer]

Yurror, Alexx2000 огромное спасибо!
Как то не подумал что Windows у меня стоит на i386, и проблема может быть в этом

Ещё раз спасибо.Тему можно закрывать

[Yurror]

Да пожалуйста. Сам открыл - сам закрывай. Так можно делать.