OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Воскресенье, 16 Декабрь, 2018 11:27

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 22 ]  На страницу Пред.  1, 2
Автор Сообщение
СообщениеДобавлено: Среда, 07 Декабрь, 2011 19:40 
Аватара пользователя

Зарегистрирован: Пятница, 25 Ноябрь, 2005 12:02
Сообщения: 7932
Откуда: Троицк, Москва
Trurl писал(а):
Info21 писал(а):
Грузить независимый ББ для каждой задачки?

Наверное, так. Дети - они такие затейники.
Trurl как скажет, так прямо в глаз :)


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Четверг, 08 Декабрь, 2011 08:35 
Модератор
Аватара пользователя

Зарегистрирован: Среда, 16 Ноябрь, 2005 00:53
Сообщения: 4487
Откуда: Россия, Орёл
Kernel
Код:
   PROCEDURE AllocModMem* (descSize, modSize: INTEGER; VAR descAdr, modAdr: INTEGER);
      VAR res: INTEGER;
   BEGIN
      descAdr := WinApi.VirtualAlloc(0, descSize, {12, 13}, {6});   (* reserve & commit; exec, read, write *)
      IF descAdr # 0 THEN
         modAdr := WinApi.VirtualAlloc(0, modSize, {12, 13}, {6});   (* reserve & commit; exec, read, write *)
         IF modAdr # 0 THEN INC(used, descSize + modSize)
         ELSE res := WinApi.VirtualFree(descAdr, 0, {15}); descAdr := 0
         END
      ELSE modAdr := 0
      END
   END AllocModMem;

   PROCEDURE DeallocModMem* (descSize, modSize, descAdr, modAdr: INTEGER);
      VAR res: INTEGER;
   BEGIN
      DEC(used, descSize + modSize);
      res := WinApi.VirtualFree(descAdr, 0, {15});   (* release *)
      res := WinApi.VirtualFree(modAdr, 0, {15})   (* release *)
   END DeallocModMem;

   PROCEDURE InvalModMem (modSize, modAdr: INTEGER);
      VAR res: INTEGER;
   BEGIN
      DEC(used, modSize);
      res := WinApi.VirtualFree(modAdr, modSize, {14})   (* decommit *)
   END InvalModMem;
AllocModMem используется в StdLoader.ReadModule; DeallocModMem там же при неуспешной загрузке. В Kernel.UnloadMod используется только InvalModMem.

Дальше нужно выткать в http://msdn.microsoft.com/en-us/library ... 85%29.aspx


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 22 ]  На страницу Пред.  1, 2

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2018, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB