- Код: Выделить всё
{$mode objfpc}{$H+}
function Test: PWord;
begin
Result:= GetMem(4); {2 слова}
PDWord(Result)^:= 0; {обнуляем оба}
Writeln(PWord(Result)^, ' ', PWord(Result + 2)^); {содержимое слов}
Freemem(Result, 2); {удаляем первое слово}
inc(Result); {переходим ко второму}
Writeln(PWord(Result)^, '!'); {должен быть ноль}
readln;
FreeMem(Result, 2);
readln;
end;
begin
Test;
end.
Получаю всегда не 0 значение. Это баг?
Версия компилятора 3.0.0.