Версия для печати
Нажмите сюда для просмотра этой темы в оригинальном формате |
Форум на Исходниках.RU > 32-битные компиляторы > Bug ?... (TMTPas) |
Автор: jf.illusion 12.06.02, 10:32 |
Кусок кода : //=====================// <{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}> var p:pointer; a,b:longint; begin a := memavail; getmem(p,10000000); freemem(p,10000000); b := memavail; writeln(a-b); end. //=====================// как демаете, что печатает ?...... чиселку >0 хе хе хе (если что, не ламер) |
Автор: 7in 12.06.02, 15:42 |
Можно даже проще: //=====================// <{CODE_COLLAPSE_OFF}><{CODE_WRAP_OFF}> begin writeln(memavail); writeln(memavail) end. //=====================// Напиши им на мыло! |
Автор: vb 13.06.02, 13:26 |
Это не баг а feature. Поросто при первом вызове memory manager выделяет немного памяти для своей работы. При последующих вызовах getmem/freemem этого не происходит. |
Автор: 7in 13.06.02, 17:04 |
Клевая фича, однако! Вывожу подряд 5 раз MemAvail: 119359216 119375600 119174896 119396080 119039728 |
Автор: DjG-CORE 14.06.02, 14:44 |
PMODE/W DOS Extender v1.33 Copyright (C) 1994-1997, Charles Scheffold and Thomas Pytel 360240880 361793264 361793264 361793264 361793264 Всё работает абсолютно правильно, "Note that return value does not represent the actual physical size of the paging file on disk". |
Автор: vb 18.06.02, 19:24 |
Цитата 7in, 13.06.02, 21:04:58 Клевая фича, однако! Вывожу подряд 5 раз MemAvail: 119359216 119375600 119174896 119396080 119039728 Ты из под DOS'а запускать не пытался? ![]() |