Ошибка переполнения кучи паскаль

msm.ru

Нравится ресурс?
Помоги проекту!

ошибка 203 (переполнение кучи)
, GetMem

Подписаться на тему
Сообщить другу
Скачать/распечатать тему

Сообщ.
#1

,
16.01.07, 21:36

пропагандист

Рейтинг (т): 188

Как избавиться (предотвратить) от ошибки 203 (переполнение кучи) при вызове GetMem ?

Программа работает с коллекциями (TCollection) и требует немало памяти, поэтому её в некоторый момент просто нехватает.

Нужен механизм предотвращения вылетания программы с ошибкой 203, чтобы я мог перехватить и что-то предпринять.

Добавлено 16.01.07, 21:42

Цитата Справка

If there is not enough free space in the heap to allocate the new variable,
a run-time error occurs.

Добавлено 16.01.07, 21:44
Кроме как каждый раз вызывать MaxAvail переда запросом памяти пока не вижу выхода.

Сообщение отредактировано: Romtek — 16.01.07, 21:44

volvo877

Сообщ.
#2

,
16.01.07, 21:47

Moderator

Рейтинг (т): 878

HeapFunc переопределить не пробовал?

{$F+}

Function HeapFunc(Size: Word): Integer;

Begin

HeapFunc := 1;

End;

{$F-}

И подставить в монитор кучи… Теперь при запросе очередной порции памяти, если ее мало — не будет #203, а указатель будет равен nil-у… Можно попробовать что-то ненужное убрать и повторить запрос…

Romtek

Сообщ.
#3

,
16.01.07, 21:50

пропагандист

Рейтинг (т): 188

Я такой не встречал никогда. Где можно об этом почитать?

volvo877

Сообщ.
#4

,
16.01.07, 21:51

Moderator

Рейтинг (т): 878

Help по слову HeapError… Вот небольшая цитата оттуда:

Цитата

The HeapError function returns
■ 0 to indicate failure, and causes a run-time error to occur immediately.
■ 1 to indicate failure, and causes New or GetMem to return a nil pointer.
■ 2 to indicate success, and causes a retry (which could also cause
another call to the heap error function).

Romtek

Сообщ.
#5

,
16.01.07, 21:53

пропагандист

Рейтинг (т): 188

Спасибо, уже сам нашёл. Ушёл экспериментировать..

Добавлено 16.01.07, 22:07
Дело такое: когда я в основной программе, использующей разные модули, написал HeapError := @HeapFunc;
с определённой

function HeapFunc(Size: word): Integer; far;

Begin

HeapFunc:=1;

End;

ничего не изменилось.

Добавлено 16.01.07, 22:14
Испытываю программу в жёстких условиях, когда мало памяти (< 60 KB) с интерфейсом Turbo Vision, Real Mode.

volvo877

Сообщ.
#6

,
16.01.07, 22:14

Moderator

Рейтинг (т): 878

Какие модули используешь? Не TVision, часом? У него, по-моему, свой менеджер кучи…

Добавлено 16.01.07, 22:20
Ага… Значит, все-таки, TV… Тогда смотри хелп по InitMemory + LowMemory… Я бы копал в этом направлении…

Romtek

Сообщ.
#7

,
16.01.07, 22:20

пропагандист

Рейтинг (т): 188

Использую многие модули TV.
Для конструктора есть процедура Fail, но она мне не подходит.

Мне нужно сделать так, чтобы при нахватке памяти я прерывал процесс считывания записей из файла в коллекцию и выдавал сообщение о нехватке памяти (MessageBox).

Добавлено 16.01.07, 22:21

Цитата volvo877 @ 16.01.07, 22:14

Тогда смотри хелп по InitMemory + LowMemory…

Ok…

volvo877

Сообщ.
#8

,
16.01.07, 22:26

Moderator

Рейтинг (т): 878

Кроме этого, можно вызовы GetMem заменить на MemAlloc, что опять же вернет тебе nil в случае невозможности выделения запрошенного блока памяти, и это можно будет обработать (фрагменты, выделенные через MemAlloc могут освобождаться обычным FreeMem)

Romtek

Сообщ.
#9

,
16.01.07, 22:28

пропагандист

Рейтинг (т): 188

Цитата volvo877 @ 16.01.07, 22:26

Кроме этого, можно вызовы GetMem заменить на MemAlloc

Я использую готовые коллекции из Objects.tpu, так что этот вариант отпадает.

Добавлено 16.01.07, 22:31

function HeapNotify(Size: Word): Integer; far;

begin

if FreeCache then HeapNotify := 2 else

if DisablePool then HeapNotify := 1 else

if FreeSafetyPool then HeapNotify := 2 else HeapNotify := 0;

end;

procedure InitMemory;

begin

HeapError := @HeapNotify;

SafetyPoolSize := LowMemSize * 16;

LowMemory;

end;

Это и есть менеджер памяти TV. Но я что-то неврубаюсь как мне это может помочь выдать сообщение о нехватке памяти.

Добавлено 16.01.07, 22:36
Вот конструктор объекта, который я вставляю в коллекцию

constructor TCSVinfo.Init;

begin

Inherited Init;

New (TransferRecord); { в некоторый момент выдаёт ошибку 203 }

end;

volvo877

Сообщ.
#10

,
16.01.07, 22:36

Moderator

Рейтинг (т): 878

http://citforum.ru/programming/tv_doc/tvdoc_06.shtml

Прочти про «пул надежности»…

Добавлено 16.01.07, 22:37
P.S. Размер у TransferRecord какой?

Romtek

Сообщ.
#11

,
16.01.07, 22:41

пропагандист

Рейтинг (т): 188

Также трудность проверки на наличие памяти ещё из-за неизвестного кол-ва считываемых записей.

Размер = 107 байт.

Добавлено 16.01.07, 22:43

Цитата volvo877 @ 16.01.07, 22:36

http://citforum.ru/programming/tv_doc/tvdoc_06.shtml

Читал уже

Добавлено 16.01.07, 22:44
Пул надёжности работает с элементами TView, но не коллекциями. Тут другой подход нужен.

volvo877

Сообщ.
#12

,
17.01.07, 08:52

Moderator

Рейтинг (т): 878

Цитата Romtek @ 16.01.07, 22:41

Тут другой подход нужен.

А чего ты не воспользуешься MemAlloc для того случая, который привел? Это как раз то, что нужно… Вот я тут набросал небольшую программку, Test #1 — это с new, Test #2 — с MemAlloc, посмотри…

uses

App, Memory, MsgBox, Objects, Menus, Drivers, Views;

const

cmTest1 = 251;

cmTest2 = 252;

type

PRec = ^Rec;

Rec = record

name: string;

surname: string;

data: array[1 .. 1000] of char;

end;

PMyObj = ^TMyObj;

TMyObj = object(TObject)

R: PRec;

constructor init;

constructor create;

end;

constructor TMyObj.init;

begin

inherited init;

New(R);

end;

constructor TMyObj.create;

begin

inherited init;

R := MemAlloc(sizeof(Rec));

if R = nil then Fail;

end;

type

TTutorApp = object(TApplication)

list: PCollection;

constructor init;

procedure InitStatusLine; virtual;

procedure HandleEvent(var Event: TEvent); virtual;

procedure OutOfMemory; virtual;

procedure Test1;

procedure Test2;

end;

constructor TTutorApp.init;

begin

inherited init;

list := New(PCollection, Init(10, 5));

end;

procedure TTutorApp.OutOfMemory;

begin

MessageBox(‘Not enough memory to complete operation.’,

nil, mfError + mfOKButton);

end;

procedure TTutorApp.InitStatusLine;

var

R: TRect;

begin

GetExtent(R);

R.A.Y := R.B.Y — 1;

New(StatusLine, Init(R,

NewStatusDef(0, $EFFF,

NewStatusKey(‘~F3~ Test #1’, kbF3, cmTest1,

NewStatusKey(‘~F4~ Test #2’, kbF4, cmTest2,

NewStatusKey(‘~Alt+F3~ Close’, kbAltF3, cmClose,

StdStatusKeys(nil)))),

NewStatusDef($F000, $FFFF,

StdStatusKeys(nil), nil))));

end;

procedure TTutorApp.HandleEvent(var Event: TEvent);

var

R: TRect;

begin

inherited HandleEvent(Event);

if Event.What = evCommand then begin

case Event.Command of

cmTest1:

begin

Test1;

ClearEvent(Event);

end;

cmTest2:

begin

Test2;

ClearEvent(Event);

end;

procedure TTutorApp.Test1;

var i: integer;

begin

for i := 1 to 10000 do

list^.insert(new(PMyObj, init));

end;

procedure TTutorApp.Test2;

var ToBeAdded: PMyObj;

begin

while true do begin

ToBeAdded := new(PMyObj, create);

if ToBeAdded = nil then begin

OutOfMemory; break;

end

else list^.insert(ToBeAdded);

end;

var

TutorApp: TTutorApp;

begin

TutorApp.Init;

TutorApp.Run;

TutorApp.Done;

end.

Romtek

Сообщ.
#13

,
17.01.07, 10:04

пропагандист

Рейтинг (т): 188

volvo877
немного доработал оттачиваемый пример:

uses

App, Memory, MsgBox, Objects, Menus, Drivers, Views;

const

cmTest1 = 251;

cmTest2 = 252;

type

PRec = ^Rec;

Rec = record

name: string;

surname: string;

data: array[1 .. 1000] of char;

end;

PMyObj = ^TMyObj;

TMyObj = object(TObject)

R: PRec;

constructor init;

constructor create;

end;

constructor TMyObj.init;

begin

inherited init;

New(R);

if R = nil then Fail;

end;

constructor TMyObj.create;

begin

inherited init;

R := MemAlloc(sizeof(Rec));

if R = nil then Fail;

end;

type

TTutorApp = object(TApplication)

list: PCollection;

constructor init;

procedure InitStatusLine; virtual;

procedure HandleEvent(var Event: TEvent); virtual;

procedure OutOfMemory; virtual;

procedure Test1;

procedure Test2;

end;

function HeapFunc (size: word): integer; far;

begin

HeapFunc := 1

end;

constructor TTutorApp.init;

begin

inherited init;

list := New(PCollection, Init(10, 5));

end;

procedure TTutorApp.OutOfMemory;

begin

MessageBox(‘No enough memory to complete operation!’,

nil, mfError + mfOKButton);

end;

procedure TTutorApp.InitStatusLine;

var

R: TRect;

begin

GetExtent(R);

R.A.Y := R.B.Y — 1;

New(StatusLine, Init(R,

NewStatusDef(0, $EFFF,

NewStatusKey(‘~F3~ Test #1’, kbF3, cmTest1,

NewStatusKey(‘~F4~ Test #2’, kbF4, cmTest2,

NewStatusKey(‘~Alt+F3~ Close’, kbAltF3, cmClose,

StdStatusKeys(nil)))),

NewStatusDef($F000, $FFFF,

StdStatusKeys(nil), nil))));

end;

procedure TTutorApp.HandleEvent(var Event: TEvent);

var

R: TRect;

begin

inherited HandleEvent(Event);

if Event.What = evCommand then begin

case Event.Command of

cmTest1:

begin

Test1;

ClearEvent(Event);

end;

cmTest2:

begin

Test2;

ClearEvent(Event);

end;

procedure TTutorApp.Test1;

var i: integer;

ToBeAdded: PMyObj;

begin

for i := 1 to 10000 do

begin

ToBeAdded := new(PMyObj, init);

if ToBeAdded = nil then begin

OutOfMemory; break;

end

else list^.insert(ToBeAdded);

end;

procedure TTutorApp.Test2;

var ToBeAdded: PMyObj;

begin

while true do begin

ToBeAdded := new(PMyObj, create);

if ToBeAdded = nil then begin

OutOfMemory; break;

end

else list^.insert(ToBeAdded);

end;

var

TutorApp: TTutorApp;

begin

TutorApp.Init;

HeapError := @HeapFunc; { <== добавляем обработчик ПОСЛЕ инициализации менеджера памяти, переопределяя результат }

TutorApp.Run;

TutorApp.Done;

end.

Получаю и в первом случае сообщение о нехватке памяти, но на экране вот такая фигня:

Прикреплённый файлscreen.PNG (11.17 Кбайт, скачиваний: 302)

volvo877

Сообщ.
#14

,
17.01.07, 10:10

Moderator

Рейтинг (т): 878

Romtek, странно… У меня ничего на экран не добавляется, чистое сообщение, при вызове тестов в любом порядке, хотя перемешивать менеджеры куч, конечно, не очень хорошо…

Romtek

Сообщ.
#15

,
17.01.07, 10:14

пропагандист

Рейтинг (т): 188

В таком случае стоит перекрыть constructor Init.

Добавлено 17.01.07, 10:47
Чёрт. Никак не получается.
Пробовал переопределить constructor TTutorApp.init:

constructor TTutorApp.init;

begin

InitMemory;

HeapError := @HeapFunc;

InitVideo;

InitEvents;

InitSysError;

InitHistory;

TProgram.Init;

list := New(PCollection, Init(10, 5));

end;

даёт тот же результат (что неудивительно).
А так:

constructor TTutorApp.init;

begin

HeapError := @HeapFunc;

SafetyPoolSize := LowMemSize*16;

LowMemory;

InitVideo;

InitEvents;

InitSysError;

InitHistory;

TProgram.Init;

list := New(PCollection, Init(10, 5));

end;

компилятор сообщает о незнакомой SafetyPoolSize…

Добавлено 17.01.07, 11:02
Кстати, когда зыпускаю не из IDE, a EXE, прога вообще зависает при 1-м способе.

Добавлено 17.01.07, 11:04
Ладно, оставлю экс

~~кре~~

перименты и сделаю с помощью MemAlloc.

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

Предыдущая тема
Pascal
Следующая тема

[ Script execution time: 0,0786 ] [ 15 queries used ] [ Generated: 6.06.23, 01:35 GMT ]

Источник

Приложения написанные на Free Pascal могут генерировать ошибку времени выполнения (Run Time Error) когда в программе обнаруживаются определённые аварийные состояния . Этот документ содержит список возможных ошибок и описание их возможных причин.

1 Invalid function number (Неправильный номер функции)

Была попытка неправильного вызова системной функции.

2 File not found (Файл не найден)

Генерируется при попытке перенаименования, стирания или открытия несуществующего файла.

3 Path not found (Путь(директория) не найден)

Генерируется файловой системой когда путь не существует или неправелен.
Также генерируется при попытке получить доступ к несуществующему файлу.

4 Too many open files (Слишком много файлов открыто)

Максимальное число открытых файлов для вашего процесса было превышено.
Большинство операционных систем ограничивают максимальное число открытых файлов,
и эта ошибка может возникнуть когда этот лимит превышен.

5 File access denied (В доступе к файлу — отказано)

Было запрешено получение доступа к файлу. Эта ошибка может произойти по нескольким причинам:

При попытке открыть файл, предназначенный только для чтения или в деиствительности являющиёся директорией, для записи.
В данный момент занят или заблокирован другим процессом.
При попытке создания файла или директории с именем, которое совпадает с именем уже созданного файла или директории.
При попытке чтения из файла, открытого только для записи.
При попытке записи в файл, открытый только для чтения.
При попытке удалить директорию или файл, когда это не возможно.
При неимении прав на доступ к данному файлу.

6 Invalid file handle (Неправильный хэндл файла)

Происходит, когда используемая Вами файловая переменная была обнулена (испорчена); Это говорит о том, что память вашей программы была повреждена.

12 Invalid file access code (Неправильные ключи доступа к файлу)

Генерируется когда процедуры reset или rewrite вызываются с неправильным параметром FileMode.

15 Invalid drive number (Неправильный номер диска)

Генерируется когда в функции Getdir или ChDir был передан неправильный номер диска.

16 Cannot remove current directory (Невозможно удалить текущую директорию)

Генерируется при попытке удалить текущую директорию.

17 Cannot rename across drives (Можно переименовывать файлы только в пределах одного диска)

Вы не можете переименовать файл в файл, находяшиёся на другом диске или в другом разделе.

100 Disk read error (Ошибка чтения с диска)

Генерируется при невозможности произвести чтение с диска. Обычно происходит при попытке чтения данных, после его окончания.

101 Disk write error (Ошибка записи на диск)

Генерируется когда Вы пытаетесь записать данные на переполненый диск.

102 File not assigned (Файл не определён)

Генерируется функциями Reset, Rewrite, Append, Rename и Erase, При передаче в них файловой переменной, для которой не была выполнена функция AssignFile.

103 File not open (Файл не открыт)

Генерируется следующими функциями : Close, Read, Write, Seek, EOf, FilePos, FileSize, Flush, BlockRead, и BlockWrite если файл не был открыт.

104 File not open for input (Файл не открыт для чтения)

Генерируется функциями Read, BlockRead, Eof, Eoln, SeekEof и SeekEoln если файл не был открыт при помощи Reset.

105 File not open for output (Файл не открыт для записи)

Генерируется функцией write если текстовый файл не был открыт при помощи Rewrite.

106 Invalid numeric format(Неправильный числовой формат)

Генерируется когда ожидалось числовое значение, но из текстого файла было прочитано не было.

150 Disk is write-protected (Диск защищён от записи)

(Критическая ошибка)

151 Bad drive request struct length (Неправильная длина структуры запроса)

(Критическая ошибка)

152 Drive not ready (Устройство не готово)

(Критическая ошибка)

154 CRC error in data (Ошибка контрольной суммы в данных)

(Критическая ошибка)

156 Disk seek error (Ошибка низкоуровнего поиска на диске)

(Критическая ошибка)

157 Unknown media type (Неизвестный тип …)

(Критическая ошибка)

158 Sector Not Found (Сектор не найден)

(Критическая ошибка)

159 Printer out of paper (Нет бумаги в принтере)

(Критическая ошибка)

160 Device write fault (Сбой записи устройства)

(Критическая ошибка)

161 Device read fault (Сбой чтения устройства)

(Критическая ошибка)

162 Hardware failure (Сбой железа)

(Критическая ошибка)

200 Division by zero (Деление на ноль)

Приложение пыталось разделить число на ноль.

201 Range check error (Ошибка проверки границ)

Если вы компилировали прогамму с включённой провереой границ, Вы можете получить эту ошибку в следующих случаях:

Массив был вызван с индексом, выходящим за декларированые пределы.
Попытка присвоить значение переменной, выходящее за декларированые границы (для instance и enumerated типов).

202 Stack overflow error (Переполнение стека)

Стек превысил свой максимально допустимый размер (в этом случае необходимо уменьшить размер локальных переменных), или стек был повреждён. Эта ошибка генерируется только с включённой проверкой стека.

203 Heap overflow error (Переполнение кучи)

Размер кучи превысил максимально возможный размер. Генерируется при попытке выделить память непосредственно функциями New, GetMem и ReallocMem, или когда экземпляр класса или объекта создаётся и памяти не достаточно. Пожалуйста учтите что, по умолчанию, Free Pascal поддерживает увеличение кучи, то есть, если необходимо, будет произведена попытка её увеличения. Как бы то ни было, если размер кучи превысил максимально допустимый системой и
железом, то Вы получите эту ошибку.

204 Invalid pointer operation (Непрваильная операция с указателем)

Будет сгенерирована при вызове функций Dispose или Freemem с неправильным указателем (чаще всего, Nil)

205 Floating point overflow (Максимальная границы числа с плавающей точкой)

Вы попытались использовать или создать слишком большое число с плавающей точкой.

206 Floating point underflow (Минимальная граница числа с плавающей точкой)

Вы попытались использовать или создать слишком маленькое число с плавающей точкой.

207 Invalid floating point operation (Неправильная операция над числами с плавающей точкой)

Может генерироваться если вы попытались получить квадратный корень или логарифм отрицательного числа.

210 Object not initialized (Объект не инициализирован)

Если программа была скомпилирована с включенной проверкой границ, эта ошибка будет сгенерирована при попытке вызвать виртуальный метод до его конструктора.

211 Call to abstract method (Попытка вызова абстрактного метода)

Ваша программа попыталась вызвать абстрактный виртуальный метод. Абстрактные методы должны быть перекрыты, и только перекрытый метод должен быть вызван.

212 Stream registration error (Ошибка регистрации потока)

Генерируется когда неправильный тип регистрируется в модуле objects.

213 Collection index out of range (Индекс элемента коллекции выходит за допустимые границы)

Генерируется когда Вы попытались обратиться к элементу коллекции с выходящим за допустимые границы индексом (модуль objects).

214 Collection overflow error (Переполнение коллекции)

Размер коллекции превысил максимально допустимый размер, а Вы попытались добавить новый элемент (модуль objects).

215 Arithmetic overflow error (Арифметическое переполнение)

Эта ошибка генерируется когда результат операции превысил допустимые границы. В отличие to Turbo Pascal, эта ошибка генерируется только для 32-bit и 64-bit арифметических переполнений. Это происходит согласно тому, что все операнды конвертируются в 32-bit или 64-bit, до того как производить вычисления.

216 General Protection fault (GP Ошибка защиты памяти)

Приложение попыталось обратиться к недопустимому участку памяти. Это может быть вызвано следующими причинами:

Попытка получить разуказатель для nil.
Попытка получить доступ к выходящему за допустимые границы участку памяти (например, вызов move с неправильной длиной).

217 Unhandled exception occurred (Произошо неизвестное исключение)

Произошло исключение, и для него не существеет хэндла. Модуль sysutils устанавливает handler(менеджер), который отлавливает все исключения, и безопасно выходит в случае обнаружения оного.

219 Invalid typecast (Неправильное приведение типов)

Генерируется когда недопустимое приведение типов производится над классом используя оператор as. Эта ошибка также генерируется, когда объект или класс приводится к недопустимому объекту или классу, и виртуальный метод этого объекта или класса вызывается. Эта последняя ошибка детектируется только с использованием опции -CR компилятора.

227 Assertion failed error (Сбой утверждения)

Утверждение провалено, и процедурная переменная AssertErrorProc не была уcтановлена.

Источник

yagluboko

0 / 0 / 0

Регистрация: 29.01.2017

Сообщений: 2

переполнение кучи

12.01.2010, 12:40. Показов 929. Ответов 0

Метки нет (Все метки)

не могу разобраться- компилятор выдаёт переполнение кучи

Pascal

program MyOwnNoteBook;
uses crt;
type info=record
           name:string;
           phone:string;
          end;
     poin=^list;
     list=record
           data:info;
           next:poin;
          end;
procedure Add (d:info;p:poin);
var n:poin;
    f:text;
begin
 if p=nil then
 begin
  new(n);
  n^.next:=nil;
  p:=n;
 end
 else
 begin
  new (n);
  n^.data:=d;
  n^.next:=p;
  p:=n;
 end;
end;
procedure Print (p:poin);
begin
 if p=nil then
 begin
  writeln ('ho-ho parnisha the list is empty');
 end
 else
 while p<>nil do
 begin
  writeln ('----------------------------------------');
  write (p^.data.name,':');
  writeln ( p^.data.phone);
 end;
  end;
procedure PrintInFile (p:poin;var f:text);
begin
 rewrite (f);
 while p<>nil do
 writeln (f,p^.data.name);
 writeln (f, p^.data.phone);
 close (f);
end;
procedure Search(var p:poin);
var d:string;
begin
 writeln;
 readln (d);
 writeln;
 while(p <> nil) do
 begin
  if(pos(d,p^.data.name)=1) then
  begin
   write (p^.data.name,':',p^.data.phone);
  end;
  p:=p^.next;
 end;
end;
procedure WashDown (p:poin);
var a:poin;
begin
 while p<>nil do
 begin
  a:=p;
  p:=p^.next;
  dispose (p);
 end;
end;
procedure Del (p:poin;d:string);
var a:poin;
begin
 read (d);
 search (p);
 a:=p;
 p:=p^.next;
 dispose (a);
end;
procedure SortBublInf(p:poin);
var p1,p2:poin;
    a:info;
begin
 new (p1);
 p2:=p;
 while p2<>nil do
 begin
  p1:=p2^.next;
  while p1<>nil do
  begin
   if p1^.data.name<p2^.data.name then
   begin
    a:=p1^.data;
    p1^.data:=p2^.data;
    p2^.data:=a
   end;
   p1:=p1^.next
  end;
  p2:=p2^.next
 end;
end;
var l1,l2:poin;
    i:info;
    f:text;
    ch:char;
    d:string;
    label help;
begin
 assign (f,'NoteBook.txt');
 reset (f);
 while not eof(f) do
 begin
  readln (f,i.name);
  readln (f,i.phone);
  Add (i,l1);
 end;
 rewrite(f);
 help:
 begin
  clrscr;
  writeln ('1:Help');
  writeln ('2:Add');
  writeln ('3:Print');
  writeln ('4:Search');
  writeln ('5:Delete');
  writeln ('6:Exit');
  writeln ('press key');
 end;
 ch:=readkey;
 repeat
 begin
 case ch of
 '1':begin
      repeat
      begin
       clrscr;
       writeln ('1:Help');
       writeln ('2:Add');
       writeln ('3:Print');
       writeln ('4:Search');
       writeln ('5:Delete');
       writeln ('6:Exit');
       writeln ('press key');
      end;
      until keypressed;
     end;
 '2':begin
      clrscr;
      writeln ('enter the data');
      read (i.name);
      writeln ('press enter');
      read (i.phone);
      writeln ('press enter');
      add (i,l1);
      SortBublInf(l1);
      goto help;
     end;
 '3':begin
      print (l1);
      goto help;
     end;
 '4':begin
      writeln ('enter the symbols and press enter');
      Search (l1);
      goto help;
     end;
 '5':begin
      writeln ('enter the name');
      Del (l1,d);
      goto help;
     end;
 end;
 end;
 until ch='6';
 PrintInFile (l1,f);
 WashDown (l1);
 close (f);
end.

Источник

Ошибка переполнения кучи.

Описание

Подпрограммы New и GetMem сообщают об этой ошибке, когда недостаточно свободного места в куче (Heap), для распределения блока запрошенного размера.

Если данная ошибка возникает при выполнении вашей программы внутри IDE, попробуйте выйти из Turbo Pascal (File│Exit) и запустить вашу программу из командной строки DOS.

Смотри описание ошибки времени выполнения #1: Out of memory, чтобы попробовать увеличить количество свободной памяти.

Для полного обсуждения диспетчера кучи обратитесь к главе «Проблемы памяти» в Руководстве Программиста на Turbo Pascal.

Источник

14 Years Ago

Is pascal vulnarable to heap overflow vulnarability?I think pascal doesn’t any have problem with stack overflow attack.is it true in heap overflow attack too?does pascal any problem with heap overflow attack?
Thanks.

All 6 Replies

Duoas

1,025

Postaholic

Featured Poster

14 Years Ago

That depends entirely on the OS and the compiler vendor.

I’m pretty sure that old Turbo Pascals will properly crash if you try to overflow the heap. Delphi will raise an exception. For other vendors, particularly on OSes other than Windows, your results may vary.

Hope this helps.

BTW, please don’t shout.

14 Years Ago

i ‘m very very thanks for your answer.i use freepascal compiler.do you think may be have problem with this compiler?i want to know my program that compile with freepascal ,is safe about stack overflow and heap overflow?
Thanks.

Duoas

1,025

Postaholic

Featured Poster

14 Years Ago

FPC will generate exceptions for them. Check FPC’s documentation for runtime errors.

Good luck!

14 Years Ago

i ‘m sorry my friend.i ‘m very new in programming.what’s the meaning of exception in your sentence.is this mean that FPC permit to occur overflow in compiled program or don’t permit occur overflow in program.it’s very important for me that know which in occur.
Thanks a lot my friend

Duoas

1,025

Postaholic

Featured Poster

14 Years Ago

My friend, It looks like that you are using Borland CodeGear FreePascal IDE! If it is so, then you are enabled to tell the compiler what to do. it is easy. just you should use compiler directives.
for this issue, (i think) this could help a bit:
use this in the top body of your code.

1. {$STACKCHECKS ON}
2. {$Q+} or {$OVERFLOWCHECKS ON}
3. {$R+}

comments:

$R+: RANGECHECKS ON
you can use (-) or (OFF) instead to tell the compiler stop doing that special task.

The $Q directive controls the generation of overflow checking code. In the {$Q+} state, certain integer arithmetic operations (+, -, *, Abs, Sqr, Succ, Pred, Inc, and Dec) are checked for overflow. If an overflow check fails, an EIntOverflow exception is raised (or the program is terminated if exception handling is not enabled). The $Q switch is usually used in conjunction with the $R switch, which enables and disables the generation of range-checking code.

For More Info, Refer to CODEGEAR help: RAD SUTDIO DOCUMENTATION, COMPILER DIRECTIVES

Hope it helps. Dont Worry! Be Happy!
and Good Luck.

Reply to this topic

Be a part of the DaniWeb community

We’re a friendly, industry-focused community of developers, IT pros, digital marketers,
and technology enthusiasts meeting, networking, learning, and sharing knowledge.

Источник

П3.
СООБЩЕНИЯ И КОДЫ ОШИБОК

П3.1. СООБЩЕНИЯ
ОБ ОШИБКАХ ПЕРИОДА КОМПИЛЯЦИИ

Среда Турбо Паскаля дает исчерпывающую
информацию о характере и месте обнаруженной
компилятором ошибки. При обнаружении
ошибки среда автоматически загружает
в окно редактора исходный файл и помещает
курсор около того места, где в исходном
тексте обнаружена ошибка. При этом в
верхней строке редактора появляется
диагностическое сообщение. После нажатия
на любую клавишу (кроме FI) верхняя строка
восстанавливает свой первоначальный
вид и среда переходит к режиму
редактирования. Если после появления
сообщения об ошибке нажать F1, на экране
появится окно справочной службы с
детальной информацией об ошибке и
рекомендациями по ее устранению.
Некоторые ошибки в исходном тексте
обнаруживаются не сразу, а в ходе
продолжающегося контекстного разбора.
Например, несоответствие типов в
операторе присваивания не может быть
обнаружено до тех пор, пока не будет
вычислено целиком выражение в правой
части этого оператора. В таких случаях
ищите ошибку слева от курсора или в
предыдущей строке текста.

Ниже приводятся сообщения об ошибках
в том виде, в каком они появляются в
верхней строке редактора, а также перевод
сообщений справочной службы.

На экране после кода ошибки (цифры) нет
точки, поэтому ее нет и в соответствующем
месте текста.

1 Out of memory (Выход
за границы памяти).

Компилятору не хватает памяти. Имеется
ряд возможных решений этой проблемы:

если в опции COMPILE/DESTINATION установлено
значение MEMORY, замените эту опцию на
DISK;
если в опции OPTIONS/LINKER/LINK BUFFER установлено
значение MEMORY, замените эту опцию т DISK;
если Вы используете резидентные
обслуживающие программы, такие как
SIDEKICK, NORTON, удалите их из памяти;
если Вы используете интегрированную
среду TVRBO.EXE, то попробуйте воспользоваться
компилятором ТРС.ЕХЕ — он занимает
меньше памяти.

Если ни одна из рекомендаций не помогает,
то, возможно, Ваша программа просто
слишком велика, чтобы компилировать ее
в таком объеме памяти. В этом случае Вы
должны разбить ее на два или более
модулей.

2 Identifier
expected (He указан
идентификатор).

В этом месте должен находиться
идентификатор. Возможно, Вы пытаетесь
использовать в качестве идентификатора
зарезервированное слово.

3 Unknown identifier (Неизвестный
идентификатор).

Этот идентификатор не был описан.

4 Duplicate identifier (Двойной
идентификатор).

Попытка дважды описать один и тот же
идентификатор.

5 Syntax error (Синтаксическая
ошибка).

В исходном тексте найден недопустимый
символ. Возможно, Вы забыли заключить
в апострофы строковую константу.

6 Error in real constant (Ошибка
в вещественной константе).

Синтаксис констант вещественного типа
описан в гл.4.

7 Error in integer constant
(Ошибка в целой константе).

Синтаксис констант целого типа описан
в гл.4. Учтите, что после целых действительных
чисел, превышающих диапазон представления
целых чисел (-2147483648..+2147483647), должны
ставиться точка и ноль, например,
12345678912.0.

8 String constant exceeds line
(Строковая константа превышает допустимые
размеры).

Вероятно, Вы забыли поставить апостроф
в конце строковой константы.

9 Too many nested files (Слишком
много вложенных файлов).

Компилятор допускает не более пяти
уровней вложенности включаемых файлов
(т.е. в исходном файле есть ссылка на
включаемый файл, в котором есть ссылка
на еще один включаемый файл и т.д.).

10 Unexpected end of file (He
найден конец файла).

Вы могли получить это сообщение об
ошибке по одной из следующих причин:

Ваш исходный файл закончился перед
последним END основного раздела операторов;
вероятно, в Вашей программе неодинаковое
количество операторов BEGIN и END;
включаемый файл заканчивается в середине
раздела операторов; каждый раздел
операторов должен целиком помещаться
в одном файле;
Вы не закончили комментарий.

11 Line too long (Слишком
длинная строка).

Максимальная длина строки, обрабатываемой
компилятором, равна 126 символам (обратите
внимание: редактор среды может обрабатывать
строки практически неограниченной
длины).

12 Type identifier expected
(Здесь нужен идентификатор типа).

Не указан тип идентификатора.

13 Too many open files (Слишком
много открытых файлов).

Появление этой ошибки означает, что
конфигурационный файл CONFIG.SYS операционной
системы не включает параметр FlLES=xx или
этот параметр указывает слишком мало
файлов. Увеличьте число файлов до нужного
значения, например, до 80.

14 Invalid file name (Неверное
имя файла).

Имя файла неверно или указан несуществующий
путь.

15 File not found (Файл не
найден).

Файл не был найден в просмотренных
каталогах.

16 Disk full (Диск
заполнен).

Удалите некоторые файлы или воспользуйтесь
новым диском.

17 Invalid compiler directive
(Неправильная директива компилятора).

Неверная буква в директиве компилятора,
один из параметров директивы компилятора
неверный, или Вы пользуетесь глобальной
директивой компилятора, когда компиляция
тела программы уже началась.

18 Too many files (Слишком
много файлов).

В компиляции программы или программного
модуля участвуют слишком много файлов.
Попытайтесь не использовать так много
файлов, например, объединяя включаемые
файлы или делая короче имена файлов.

19 Undefined type in pointer
definition (Неопределенный тип в объявлении
указателя).

Попытка объявить типизированный
указатель, связанный с ранее не объявленным
типом данных.

20 Variable identifier expected
(Отсутствует идентификатор переменной).

На этом месте должен быть идентификатор
переменной.

21 Error in type (Ошибка в
объявлении типа).

Объявление типа не может начинаться с
этого символа.

22 Structure too large (Слишком
большая структура).

Максимально допустимый размер любого
структурного типа составляет 65520 байт.

23 Set base type of range
(Базовый тип множества нарушает границы).

Базовый тип множества должен представлять
собой тип-диапазон с границами в пределах
от 0 до 255 или перечисляемый тип с не
более чем 256 значениями.

24 File components may not be files (Компонентами файла
не могут быть файлы) .

Конструкции типа file of file (файл файлов)
или file of object (файл объектов) не допускаются.
Нельзя объявлять любые структурные
типы, которые используют в качестве
компонентов объекты или файлы.

25 Invalid string length
(Неверная длина строки).

Объявляемая длина строки должна
находиться в диапазоне от 1 до 255.

26 Type mismatch (Несоответствие
типов).

Это сообщение может быть вызвано
следующими причинами:

несовместимые типы переменной и
выражения в операторе присваивания;
несовместимые типы фактического и
формального параметров в обращении к
процедуре или функции;
тип выражения не совместим с типом
индекса при индексировании массива;
несовместимые типы операндов в выражении.

27 Invalid subrange base
type(Неправильный базовый тип для
типа-диапазона).

Допустимыми базовыми типами являются
все порядковые типы.

28 Lower bound greater than upper
bound (Нижняя граница больше верхней).

Описание типа-диапазона содержит
неправильные границы.

29 Ordinal type expected (Нужен
порядковый тип) .

Вещественные, строковые, структурные,
процедурные типы и указатели в данном
месте программы не допускаются.

30 Integer constant expected
(Нужна целая константа).

31 Constant expected (Нужна
константа).

32 Integer or real constant
expected (Нужна целая или вещественная
константа) .

33 Tуре identifier expected
(Нужен идентификатор типа)

34 Invalid function result type
(Неправильный тип результата функции)

Правильными типами результата функции
являются все простые типы, строковые
типы и указатели.

35 Label identifier expected
(Нужен идентификатор метки).

Метка не обозначена с помощью
идентификатора, как это требуется из
контекста программы.

36 BEGIN expected (Нужен
BEGIN).

37 END expected (Нужен END).

38 Integer expression expected
(Нужно выражение типа INTEGER).

39 Ordinal expression expected
(Нужно выражение перечисляемого типа).

40 Boolean expression expected
(Нужно выражение типа BOOLEAN).

41 Operand types do not match
operator (Типы операндов не соответствуют
операции).

Данная операция не может быть применена
к указанным операндам, например, ‘ А’ div
‘ 2 ‘ .

42 Error in expression (Ошибка
в выражении).

Данный символ не может участвовать в
выражении указанным образом. Возможно,
Вы забыли указать операцию между двумя
операндами.

43 Illegal assignment (Неверное
присваивание).

Файлам и нетипизированным переменным
нельзя присваивать значения. Идентификатору
функции можно присвоить значение только
внутри раздела операторов данной
функции.

44 Field identifier expected
(Нужен идентификатор поля).

Попытка использовать запись целиком в
том месте, где требуется ссылка на
какое-либо поле записи.

45 Object file too large
(Объектный файл слишком большой).

Турбо Паскаль не может компоновать
файлы .OBJ больше 64 Кбайт.

46 Undefined external
(Неопределенная внешняя процедура).

Внешняя процедура или функция не имеет
соответствующего определения PUBLIC в
объектном файле. Убедитесь, что Вы
указали все объектные файлы в директивах
{$L <имя .OBJ-файлa>} и проверьте написание
идентификаторов процедуры или функции
в файле . ASM.

47 Invalid object file record
(Неправильная запись объектного файла).

Файл .OBJ содержит неверную объектную
запись. Убедитесь, что данный файл
является действительно файлом .OBJ.

48 Code segment too large
(Сегмент кода слишком большой).

Максимальный размер кода программы или
программного модуля равняется 65520
байтам. Разбейте Вашу программу или
модуль на два или более модулей.

49 Data segment too large
(Сегмент данных слишком велик).

Максимальный размер сегмента данных
программы равен 65520 байтам, включая
данные, используемые программными
модулями. Если Вам нужно большее
количество глобальных данных, опишите
большие структуры с помощью указателей
и выделяйте для них память динамически
с помощью процедуры NEW.

50 DO expected (Нужен
оператор DO).

51 Invalid PUBLIC definition
(Неверное PUBLIC-определение).

Возможные причины сообщения:

данный идентификатор получил тип PUBLIC
с помощью соответствующей директивы
языка ассемблера, но не соответствует
описанию EXTERNAL в программе или программном
модуле Паскаля;
две или более директивы PUBLIC языка
ассемблера определяют один и тот же
идентификатор;
файлы .OBJ определяют символы PUBLIC, не
находящиеся в сегменте CODE.

52 Invalid EXTRN definition
(Неправильное EXTRN-определение).

Возможные причины сообщения:

программа на ассемблере ссылается с
помощью директивы EXTRN на идентификатор,
который не описан в программе на Паскале
и не был описан в интерфейсных секциях
используемых программных модулей;
ассемблерная программа ссылается на
идентификатор, обозначающий абсолютную
переменную (т.е. определенную словом
ABSOLUTE);
ассемблерная программа ссылается на
идентификатор процедуры или функции
типа INLINE.

53 Too many EXTRN definition
(Слишком много EXTRN-определений).

Турбо Паскаль не может обрабатывать
файлы .OBJпри более чем 256 определениях
EXTRN.

54 OF expected (Требуется
OF).

55 INTERFACE expected (Требуется
интерфейсная секция).

56 Invalid relocatable reference
(Неправильная перемещаемая ссылка).

Возможные причины сообщения:

файл .OBJ содержит данные и перемещаемые
ссылки в сегментах, отличных от CODE.
Например, Вы пытаетесь описать
инициализированные переменные в
сегменте DATA;
файл .OBJ содержит ссылки с размерами в
байтах на перемещаемые символы. Такая
ошибка происходит в случае, если Вы
используете операторы HIGH и LOW с
перемещаемыми символами или если Вы
ссылаетесь в директивах DB на перемещаемые
символы;
операнд ссылается на перемещаемый
символ, который не был определен в
сегменте CODE или в сегменте DATA;
операнд ссылается на процедуру EXTRN или
функцию EXTRN со сдвигом, например, CALL
SortProc+8.

57 THEN expected (Требуется
THEN).

58 TO or DOWNTO expected
(Требуется ТО или DOWNTO).

59 Undefined forward
(Неопределенное опережающее описание).

Возможные причины сообщения:

была рписана процедура или функция в
интерфейсной секции программного
модуля, но ее определение отсутствует
в секции реализации;
процедуры или функции были описаны с
помощью опережающего описания, но их
определение не найдено.

60 Too many procedures (Слишком
иного процедур).

Турбо Паскаль допускает не более 512
процедур или функций в одном модуле.
Если Вы компилируете программу, то
поместите некоторые процедуры или
функции в модули. Если Вы компилируете
модуль, то разбейте его на два или
несколько модулей.

61 Invalid typecast (Неверное
преобразование типа).

Возможные причины сообщения:

Вы пытаетесь разместить в памяти,
занимаемой некоторой переменной,
значение выражения другого типа э
случае, когда размер размещаемого
значения не равен размеру переменной;
Вы пытаетесь осуществить преобразование
типа выражения, когда разрешается
только ссылка на переменную, процедуру
или функцию.

62 Division by zero (Деление
на ноль).

Предшествующая операция пытается
выполнить деление на ноль.

63 Invalid file type (Неверный
файловый тип).

Данный файловый тип не обслуживается
процедурой обработки файлов. Например,
процедура READLN используется для
типизированного файла или процедура
SEEK — для текстового файла.

64 Cannot Read or Write variables
of this type (Нет возможности считать или
записать переменные данного типа).

Нарушены следующие ограничения:

процедуры READ и READLN могут считывать
переменные символьного, целого,
действительного и строкового типов;
процедуры WRITE и WRITELN могут выводить
переменные символьного, целого,
действительного, булевского и строкового
типов.

65 Pointer variable expected
(Нужно использовать переменную-указатель).

Предыдущая переменная должна быть
указателем.

66 String variable expected
(‘Нужна строковая переменная) .

Предшествующая переменная должна иметь
строковый тип.

67 String expression expected
(Нужно выражение строкового типа).

Предшествущее выражение должно иметь
строковый тип.

68 Circular unit reference
(Перекрестная ссылка модулей).

Два модуля ссылаются друг на друга:

Unit A;
Unit В;

Uses В;
Uses А;

…..
…..

69 Unit name mismatch
(Несоответствие имен программных
модулей).

Имя программного модуля, найденное в
файле .TPU, не соответствует имени,
указанному в предложении USES.

70 Unit version mismatch
(Несоответствие версий модулей).

Один или несколько программных модулей,
используемых данной программой, были
изменены после их компиляции. Воспользуйтесь
опцией COMPILE/MAKE или COMPILE/BUILD в интегрированной
среде или опциями /М или /В в компиляторе
ТРС, что позволит автоматически
скомпилировать программные модули,
нуждающиеся в перекомпиляции.

71 Duplicate unit name (Повторное
имя программного модуля).

Вы уже указали этот программный модуль
в операторе USES.

72 Unit file format error (Ошибка
формата файла модуля).

Файл .TPU не соответствует стандарту
Турбо Паскаля.

73 IMPLEMENTATION expected
(Отсутствует исполняемая часть модуля).

74 Constant and case types do not
match (Типы констант и тип выражения
оператора CASE не соответствуют друг
другу).

Тип константы оператора CASE не совместим
с выражением в операторе варианта.

75 Record variable expected
(Нужна переменная типа запись) .

Предшествующая переменная должна иметь
тип запись.

76 Constant out of range
(Константа нарушает границы).

Возможные причины сообщения:

Вы пытаетесь указать индекс массива,
выходящий за его границы;
Вы пытаетесь присвоить переменной
значение, выходящее за границы, допустимые
для типа этой переменной;
Вы пытаетесь передать в качестве
фактического параметра процедуре или
функции константу, выходящую за границы,
допустимые для типа соответствующего
формального параметра.

77 File variable expected (Нужна
файловая переменная).

Предшествующая переменная должна иметь
файловый тип.

78 Pointer expression expected
(Нужно выражение типа указатель).

Предшествующее выражение должно иметь
тип указателя.

79 Integer or real expression
expected (Нужно выражение вещественного
или целого типа).

Предшествующее выражение должно иметь
тип REAL или INTEGER.

80 Label not within current block
(Метка не находится внутри текущего
блока) .

Оператор GOTO не может ссылаться на метку,
находящуюся вне текущего блока.

81 Label already defined (Метка
уже определена).

Данная метка уже помечает оператор.

82 Undefined label in processing
statement part (Неопределенная метка в
предшествующем разделе операторов).

Данная метка была описана, и на нее
осуществлялась ссылка в предшествующем
разделе операторов, но она не указана
в тексте программы.

83 Invalid @ argument
(Неправильный аргумент операции @).

Правильными аргументами являются
идентификаторы переменных, процедур и
функций.

84 Unit expected (Нужно
кодовое слово UNIT).

85«;» expected (Нужно
указать»;») .

86«:» expected (Нужно
указать*:») .

87«,» expected (Нужно
указать»,») .

88 «(» expected (Нужно
указать «(»).

89«)» expected (Нужно
указать»)»).

90 «=» expected (Нужно
указать «=») .

91«:=» expected (Нужно
указать»:=»).

92 «[» or «(.» expected
(Нужно указать «[» или «(.»).

93«]» or «.)» expected (Нужно
указать»]» или».)»).

94».» expected (Нужно
указать».») ,

95«..» expected (Нужно
указать»..») .

96 Too many variables (Слишком
много переменных).

Нарушены следующие ограничения:

общий размер глобальных переменных,
описанных в программе или программном
модуле, не может превышать 64 Кбайт;
размер локальных переменных, описанных
в процедуре или функции, не может
превышать 64 Кбайт. .

97 Invalid FOR control
variable(Неправильный параметр цикла
оператора FOR).

Параметр цикла оператора FOR должен быть
переменной порядкового типа, определенной
в разделе описаний текущей подпрограммы.

98 Integer variable expected
(Нужна переменная целого типа).

Предшествующая переменная должна иметь
целый тип.

99 File and procedure types are
not allowed here (Здесь не могут использоваться
файлы или процедурные типы).

Типизированная константа не может иметь
файловый или процедурный тип.

100 String length mismatch
(Несоответствие длины строки).

Длина строковой константы не соответствует
количеству элементов символьного
массива.

101 Invalid ordering of fields
(Неверный порядок полей).

Поля в константе типа запись должны
записываться в порядке их описания.

102 String constant expected
(Нужна константа строкового типа).

103 Integer or real variable
expected (Нужна переменная типа INTEGER или
REAL).

Предшествующая переменная должна иметь
целый или вещественный тип.

104 Ordinal variable expected
(Нужна переменная порядкового типа).

Предшествующая переменная должна иметь
порядковый тип.

105 INLINE error (Ошибка в
операторе INLINE).

Оператор «<» не допускается в сочетании
с перемещаемыми ссылками на переменные.
Такие ссылки всегда имеют размер в
слово.

106 Character expression expected
(Предшествующее выражение должно иметь
символьный тип).

107 Too many relocation items
(Слишком много перемещаемых Элементов).

Размер таблицы перемещения файла .ЕХЕ
превышает 64 Кбайта, что является верхним
пределом в Турбо Паскале. Если Вы
обнаружили эту ошибку, то это значит,
что программа просто слишком велика
для обработки компоновщиком Турбо
Паскаля. Возможно также, что она слишком
велика для выполнения в MS-DOS. В таком
случае нужно выделить в программе
основной раздел, который выполнял бы
обращение к двум или более вспомогательным
разделам с помощью процедуры ЕХЕС из
модуля DOS (см. гл.11).

108 Overflow in arithmetic
operator (Переполнение при выполнении
арифметического оператора).

Результат предыдущей арифметической
операции не лежит в диапазоне -2 146 483
648…+2 147 483 647. Исправьте операцию или
используйте вещественные типы вместо
целочисленных.

109 No enclosing FOR, WHILE or
REPEAT statment (Нет операторов, заканчивающих
операторы FOR, WHILE или REPEAT) .

Процедуры BREAK и CONTINUE не могут вызываться
вне тела оператора цикла.

110 Debug information table
overflow (Переполнение информационной
таблицы отладки).

Возможно, программа содержит более
65536 имен или 65536 строк. Отключите генерацию
таблиц отладки директивой компилятора
{$D-} или исправьте один или более модулей.

111

Ошибка с этим кодом не описана в версии
7.0 системы Турбо Паскаль.

112 CASE constant out of
range(Константа CASE нарушает допустимые
границы).

Целочисленные константы оператора CASE
должны находиться в диапазоне от -32768
до 32767.

113 Error in
statement (Ошибка
в
операторе).

Данный символ не может быть первым
символом в операторе.

114 Cannot call an interrupt
procedure (Невозможно вызвать процедуру
прерывания) .

Вы не можете непосредственно вызвать
процедуру обработки прерывания.

115

Ошибка с этим кодом не описана в версии
7.0 системы Турбо Паскаль.

116 Must be in
8087 mode to compile this (Для
компиляции
необходим
режим
8087) .

Данная программа может быть скомпилирована
только в режиме {$N+}. В состоянии {SN-}
операции с типами SINGLE, DOUBLE, EXTENDED и СОМР
не допускаются.

117 Target address not found
(Указанный адрес не найден).

Команда COMPILE/FIND ERROR в среде Турбо Паскаля
(или поиск с помощью опции /F в командной
строке компилятора ТРС.ЕХЕ) не обнаружила
оператор, соответствующий заданному
адресу.

118 Include
files are not allowed here (Здесь
не
допускаются
включаемые
файлы)
.

Раздел операторов должен целиком
размещаться в одном файле.

119 No inherited methods are
accessible here (В этом месте программы нет
унаследованных методов).

Вы используете зарезервированное слово
INHERITED вне метода объекта или в методе,
который не унаследован от родительского
объекта.

120

Ошибка с этим кодом не описана в версии
7.0 системы Турбо Паскаль. .

121 Invalid qualifier (Неверный
квалификатор).

Возможные причины сообщения:

Вы пытаетесь индексировать переменную,
которая не является массивом;
Вы пытаетесь указать поля в переменной,
которая не является записью;
Вы используете в качестве указателя
переменную, которая не является
указателем.

122 Invalid variable reference
(Недействительная ссылка на переменную).

Предыдущая конструкция удовлетворяет
синтаксису ссылки на переменную, но она
не указывает адрес памяти. Возможно Вы
вызываете функцию-указатель, но забываете
сослаться на результат с помощью знака
^.

123 Too many symbols'(Слишком
много символов) .

Программа или программный модуль
содержат более 64 Кбайт символов. Если
Вы компилируете программу с директивой
{$D+}, то попробуйте отключить эту директиву
или разбейте программу на несколько
модулей.

124 Statement part too large
(Слишком большой раздел операторов).

Турбо Паскаль ограничивает размер
раздела операторов до величины примерно
24 Кбайта. Если Вы обнаружили эту ошибку,
поместите части раздела операторов в
одну или несколько процедур и вообще
сделайте Вашу программу более
структурированной.

125

Ошибка с этим кодом не описана в версии
7.0 системы Турбо Паскаль.

126 Files must be var parameters
(Файлы должны передаваться как
параметры-переменные) .

Вы пытаетесь передать процедуре или
функции параметр-значение файлового
типа. Параметры файлового типа должны
быть параметрами-переменными.

127 Too many conditional symbols
(Слишком много условных символов).

Недостаточно памяти для определения
условных символов (слов, управляющих
командами условной компиляции).
Попытайтесь удалить некоторые символы
или уменьшить их длину.

128 Misplaced conditional
directive (Пропущена условная директива).

Компилятор обнаружил директиву {$ELSE}
или {$ENDIF} без соответствующих директив
{$IFDEF}, {$IFNDEF} или {$IFOPT}.

129 ENDIF
directive missing (Пропущена
директива
ENDIF).

Исходный файл закончился внутри
конструкции условной компиляции. В
исходном файле должно быть равное
количество директив {$IFxxx} и {$ENDIF}.

130 Error in
initial conditional defines (Ошибка
в
условных
определениях).

Исходные условные символы.указанные в
опции OPTIONS/COMPILER /CONDITIONAL DEFINES являются
недействительными. Турбо Паскаль требует
нуля или более идентификаторов,
разделенных пробелами, запятыми или
точками с запятой.

131 Header does not match
previous definition (Заголовок не соответствует
предыдущему определению).

Возможные причины сообщения:

заголовок процедуры или функции,
указанный в интерфейсной секции, не
соответствует заголовку в исполняемой
части.
заголовок процедуры или функции,
указанный с помощью опережающего
описания FORWARD, не соответствует заголовку
найденной далее одноименной процедуры
или функции.

132 Critical disk error
(Критическая ошибка диска).

Во время компиляции произошла критическая
ошибка диска (например, дисковод находится
в состоянии «не готов»).

133 Cannot
evaluate this expression (Нельзя
вычислить
данное
выражение).

В выражении-константе или в отладочном
выражении Вы пытаетесь использовать
неподдерживаемые средства, например,
в описании константы пытаетесь
использовать функцию SIN или вызвать в
отладочном выражении определенную
пользователем функцию.

134 Expression incorrectly
terminated (Некорректное завершение
выражения).

Контекстуально в данном месте программы
должен быть конец выражения или оператора.

135 Invalid format specifier
(Неверный спецификатор формата).

Используется неверный спецификатор
формата или числовой аргумент спецификатора
формата выходит за допустимые границы.

136 Invalid indirect reference
(Недопустимая косвенная ссылка).

Оператор пытается осуществить недопустимую
косвенную ссылку. Например, Вы используете
абсолютную переменную, базовая переменная
которой в текущем модуле неизвестна,
или используете программу типа INLINE, в
которой делается ссылка на переменную,
неопределенную в текущем модуле.

137 Structured variable are not
allowed here (Здесь нельзя использовать
переменную структурного типа).

Делается попытка выполнить над переменной
структурного типа неподдерживаемую
операцию. Например, Вы пытаетесь
перемножить две записи.

138 Cannot evaluate without
System unit (Нельзя вычислить выражение без
модуля SYSTEM).

Чтобы отладчик смог вычислить выражение,
в файле TURBO.TPL должен содержаться модуль
SYSTEM.

139 Cannot access this symbol
(Нет доступа к данному символу).

Как только Вы скомпилируете программу,
все множество ее символов становится
доступным. Однако к отдельным символам
(например, к переменным) нельзя получить
доступ, пока Вы не запустите программу.

140 Invalid floating-point
operation (Недопустимая операция с плавающей
запятой) .

При выполнении операции с плавающей
запятой произошло переполнение или
деление на ноль.

141 Cannot compile overlay to
memory (Нельзя выполнить компиляцию
оверлейных модулей в память).

Программа, использующая оверлейные
модули, должна компилироваться на диск.

142 Procedure or function
variable expected (Должна использоваться
переменная процедурного типа).

В этом контексте оператор получения
адреса @ может использоваться только с
переменной процедурного типа.

143 Invalid
procedure or function reference (Недопустимая
ссылка
на
процедуру
или
функцию).

Возможные причины сообщения:

Вы пытаетесь вызвать процедуру в
выражении;
процедура или функция, использующаяся
в качестве параметра вызова другой
процедуры или функции, должна
компилироваться в состоянии {$F+} и не
может описываться с помощью
зарезервированных слов INLINE или INTERRUPT.

144 Cannot overlay this unit
(Этот модуль не может использоваться в
качестве оверлейного).

Попытка использовать в качестве
оверлейного модуль, который не был
скомпилирован с директивой {$O+}.

145 Too many nested scopes
(Слишком много вложений).

В программе не может быть больше 512
вложений с не более чем 128 вложениями в
каждом модуле. Вложениями считаются:

каждый модуль в предложении USES;
каждая вложенная запись в типе RECORD;
каждый вложенный оператор WITH.

146 File access denied (Отказано
в доступе к файлу).

Возможные причины:

Вы пытаетесь использовать файл с
атрибутом «только для чтения» в качестве
выводного файла;
Вы используете имя каталога вместо
имени выводного файла.

147 Object
type expected (Здесь
должен
быть
тип
OBJECT).

1 Invalid function number (Неправильный номер функции)

Была попытка неправильного вызова системной функции.

2 File not found (Файл не найден)

Генерируется при попытке перенаименования, стирания или открытия несуществующего файла.

3 Path not found (Путь(директория) не найден)

4 Too many open files (Слишком много файлов открыто)

5 File access denied (В доступе к файлу — отказано)

Было запрешено получение доступа к файлу. Эта ошибка может произойти по нескольким причинам:

При попытке открыть файл, предназначенный только для чтения или в деиствительности являющиёся директорией, для записи.
В данный момент занят или заблокирован другим процессом.
При попытке создания файла или директории с именем, которое совпадает с именем уже созданного файла или директории.
При попытке чтения из файла, открытого только для записи.
При попытке записи в файл, открытый только для чтения.
При попытке удалить директорию или файл, когда это не возможно.
При неимении прав на доступ к данному файлу.

6 Invalid file handle (Неправильный хэндл файла)

12 Invalid file access code (Неправильные ключи доступа к файлу)

Генерируется когда процедуры reset или rewrite вызываются с неправильным параметром FileMode.

15 Invalid drive number (Неправильный номер диска)

Генерируется когда в функции Getdir или ChDir был передан неправильный номер диска.

16 Cannot remove current directory (Невозможно удалить текущую директорию)

Генерируется при попытке удалить текущую директорию.

17 Cannot rename across drives (Можно переименовывать файлы только в пределах одного диска)

Вы не можете переименовать файл в файл, находяшиёся на другом диске или в другом разделе.

100 Disk read error (Ошибка чтения с диска)

101 Disk write error (Ошибка записи на диск)

Генерируется когда Вы пытаетесь записать данные на переполненый диск.

102 File not assigned (Файл не определён)

103 File not open (Файл не открыт)

Генерируется следующими функциями : Close, Read, Write, Seek, EOf, FilePos, FileSize, Flush, BlockRead, и BlockWrite если файл не был открыт.

150 Disk is write-protected (Диск защищён от записи)

(Критическая ошибка)

151 Bad drive request struct length (Неправильная длина структуры запроса)

(Критическая ошибка)

152 Drive not ready (Устройство не готово)

(Критическая ошибка)

154 CRC error in data (Ошибка контрольной суммы в данных)

(Критическая ошибка)

156 Disk seek error (Ошибка низкоуровнего поиска на диске)

(Критическая ошибка)

157 Unknown media type (Неизвестный тип …)

(Критическая ошибка)

158 Sector Not Found (Сектор не найден)

(Критическая ошибка)

159 Printer out of paper (Нет бумаги в принтере)

(Критическая ошибка)

160 Device write fault (Сбой записи устройства)

(Критическая ошибка)

161 Device read fault (Сбой чтения устройства)

(Критическая ошибка)

162 Hardware failure (Сбой железа)

(Критическая ошибка)

200 Division by zero (Деление на ноль)

Приложение пыталось разделить число на ноль.

201 Range check error (Ошибка проверки границ)

Массив был вызван с индексом, выходящим за декларированые пределы.
Попытка присвоить значение переменной, выходящее за декларированые границы (для instance и enumerated типов).

202 Stack overflow error (Переполнение стека)

203 Heap overflow error (Переполнение кучи)

204 Invalid pointer operation (Непрваильная операция с указателем)

Будет сгенерирована при вызове функций Dispose или Freemem с неправильным указателем (чаще всего, Nil)

206 Floating point underflow (Минимальная граница числа с плавающей точкой)

Вы попытались использовать или создать слишком маленькое число с плавающей точкой.

207 Invalid floating point operation (Неправильная операция над числами с плавающей точкой)

Может генерироваться если вы попытались получить квадратный корень или логарифм отрицательного числа.

210 Object not initialized (Объект не инициализирован)

211 Call to abstract method (Попытка вызова абстрактного метода)

212 Stream registration error (Ошибка регистрации потока)

Генерируется когда неправильный тип регистрируется в модуле objects.

213 Collection index out of range (Индекс элемента коллекции выходит за допустимые границы)

215 Arithmetic overflow error (Арифметическое переполнение)

216 General Protection fault (GP Ошибка защиты памяти)

Попытка получить разуказатель для nil.
Попытка получить доступ к выходящему за допустимые границы участку памяти (например, вызов move с неправильной длиной).

217 Unhandled exception occurred (Произошо неизвестное исключение)

219 Invalid typecast (Неправильное приведение типов)

227 Assertion failed error (Сбой утверждения)

Утверждение провалено, и процедурная переменная AssertErrorProc не была уcтановлена.

Содержание

Отладка программ в Turbo Pascal

Автор: volvo877 (он же и volvo71)

Ссылка на оригинал статьи

FIXME (не хватает картинок из статьи)

Каждый программист знает, что программу надо не только написать, иначе говоря —
«заставить работать», а еще и отладить, т.е. заставить ее работать правильно…
Для того, чтобы делать это быстро и эффективно, желательно научиться
пользоваться встроенными в IDE средствами отладки программ…

Интегрированная интерактивная среда разработки программ Borland Pascal (IDE)
включает в себя ряд средств, облегчающих разработку программ: автоматическое
управление проектами, средств обеспечения модульной структуры программы,
быструю компиляцию и простые в использовании оверлеи. Но, несмотря на все это,
Ваша программа все равно может содержать ошибки, что не позволит ей корректно
работать.

IDE для DOS Borland Pascal предоставляет вам инструментальные средства для
отладки программ, то есть поиска и исправления ошибок. В этой статье
описываются инструментальные средства и процедуры отладки программы в
интегрированной среде Борланд Паскаль (большинство описанных возможностей
применимо также к IDE FreePascal-я).

Что такое отладка?

Отладка — это процесс поиска и исправления ошибок в программе, препятствующих
корректной работе программы. Перед тем как углубиться в специфические средства
IDE, которые помогают при отладке, дадим краткое описание видов ошибок, которые
Вы можете наблюдать, и различного рода операций, которые будут использоваться
для их поиска.

Какие существуют виды ошибок?

Существует три основных типа ошибок:

Ошибки этапа компиляции
Ошибки этапа выполнения
Логические ошибки

Ошибки этапа компиляции

Ошибки этапа компиляции или синтаксические ошибки происходят, когда
исходный код программы нарушает правила синтаксиса Паскаля. Компилятор не
может скомпилировать программу, пока она не будет содержать только
допустимые операторы Паскаля. Когда компилятор встречает оператор, который он не может распознать, соответствующий файл выводится в окне
редактирования, курсор устанавливается на то место, которое не понял
компилятор, и выводится сообщение об ошибке.

Наиболее общей причиной ошибок этапа компиляции являются ошибки набора (опечатки), пропущенные точки с запятой, ссылки на неописанные переменные, передача неверного числа (или типа) параметров процедуры или функции и присваивание переменной значения неверного типа.

После исправления ошибки компиляцию необходимо выполнить заново. После устранения в программе всех синтаксических ошибок и ее успешной компиляции программа будет готова к выполнению и поиску ошибок этапа выполнения и логических ошибок.

Ошибки этапа выполнения

Ошибки этапа выполнения или семантические ошибки происходят, когда вы
запускаете успешно откомпилированную программу, которая при выполнении
делает что-то недопустимое. То есть, программа содержит допустимые
операторы Паскаля, но при выполнении этих операторов что-то происходит
неверно. Например, программа может пытаться открыть для ввода
несуществующий файл или выполнить деление на ноль.

Когда такая ошибка обнаруживается, выполнение программы завершается, и выводится сообщение следующего вида:

Run-time error ## at seg:ofs

Если Вы выполняете программу из IDE, она автоматически находит оператор,
вызвавший ошибку (как и в случае синтаксических ошибок). Если же программа выполняется вне IDE (EXE-файл запускается из командной строки или файлового менеджера ОС), то вы можете запустить IDE и, чтобы найти вызвавший ошибку оператор, использовать команду Search → Find Error, которая дает вам адрес сегмента и смещения (seg:ofs).

Логические ошибки

Логические ошибки — это ошибки проектирования и реализации программы. То
есть, операторы, используемые в программе, допустимы, и что-то делают, но
не то, что Вы предполагали. Эти ошибки часто трудно отследить, поскольку
IDE не может найти их автоматически, как синтаксические и семантические
ошибки. К счастью, IDE включает в себя также и средства отладки, помогающие вам найти логические ошибки.

Логические ошибки приводят к некорректному или непредвиденному изменению значений переменных, неправильному отображению графики или невыполнению кода тогда, когда это ожидается. В остальной части этой статьи обсуждаются методы отслеживания логических ошибок.

Иногда, когда программа делает что-то непредвиденное, причина достаточно очевидна, и Вы можете быстро исправить код программы. Но другие ошибки более трудноуловимы и вызываются в результате взаимодействия различных частей программы. В этих случаях лучше всего остановить вашу программу в заданной точке, пройти ее шаг за шагом и просмотреть состояние переменных и выражений.

Пошаговый прогон: какая разница между F4, F7 и F8?

Основной смысл использования встроенного отладчика состоит в управляемом
выполнении. Отслеживая выполнение каждой инструкции, Вы можете легко
определить, какая часть Вашей программы вызывает проблемы. В отладчике
предусмотрено пять основных механизмов управления выполнением программы,
которые позволяют вам:

Выполнять инструкции по шагам
Трассировать инструкции
Выполнять программу до заданной точки
Находить определенную точку
Выполнять сброс программы

Само по себе выполнение программы по шагам может быть недостаточно полезным, разве что поможет найти то место, где что-то происходит совершенно неверно. Но управляемое выполнение дает Вам возможность проверять состояние программы и ее данных, например, отслеживать вывод программы и ее переменные.

Что такое шаг?

Когда Вы отлаживаете программу, наименьшим выполняемым элементом является
строка. Это означает, что Вы можете управлять отладкой до уровня отдельной строки исходного кода программы. Поэтому, если на одной строке программы содержится несколько операторов Паскаля, эти операторы не могут быть отлажены индивидуально. С другой стороны, с целью отладки оператор можно разбить на несколько строк, каждая из которых будет выполняться за один шаг.

Все выполнение в отладчике, включая выполнение по шагам, трассировку и останов, основывается на строках. Подсвечивая строку, встроенный отладчик всегда сообщает Вам, какую строку он выполнит на следующем шаге (строка выполнения). Строка выполнения выводится цветом, отличным от нормального цвета. Благодаря этому Вы можете легко видеть, где находитесь.

Выполнение программы по шагам

Выполнение по шагам — это простейший способ выполнения программы по
элементарным фрагментам. Выбор команды Run → Step Over или нажатие клавиши F8 вызывает выполнение отладчиком всего кода в операторе, указанном строкой выполнения, включая любые вызываемые на ней процедуры или функции, пока управление не вернется обратно к вам. После этого строка выполнения указывает следующий выполняемый оператор.

Возьмем, например, следующую программу:

program StepTest;   function Negate(X: Integer): Integer; begin Negate := -X; end;   var I: Integer; begin for I := 1 to 10 do Writeln(Negate(I)); end.

Если в окне редактирования Вы выведете StepTest и нажмете клавишу F8, то строка выполнения перемещается на оператор begin в начале основного цикла, поскольку это первое, что выполняется в программе. Второе нажатие клавиши F8 выполняет begin и перемещает строку выполнения вниз до оператора for на следующей строке.

После этого нажатие F8 вызывает выполнение всего цикла for; на экран
пользователя выводятся числа от -1 до -10, а строка выполнения перемещается к end.

Хотя функция Negate и вызывается 10 раз, строка выполнения никогда на нее не перемещается. Выполнение по шагам позволяет отладчику не показывать детали любых вызовов для отдельной строки. Выполнение по шагам вызывает выполнение всего цикла for сразу, поэтому Вы не сможете видеть изменения в ходе выполнения цикла. Если же Вы хотите видеть подробности выполнения цикла, внесите в пример следующее простое изменение.

begin for I := 1 to 10 do WriteLn(Negate(I)); end.

Поскольку оператор Паскаля может занимать несколько строк, такая программа будет в точности эквивалентна предыдущей версии, и генерируемый код будет идентичен. Но поскольку оператор WriteLn теперь находится на отдельной строке, отладчик может интерпретировать его отдельно. Если теперь Вы будете нажимать клавишу F8, то увидите, что строка выполнения будет при выполнении цикла 10 раз возвращаться на WriteLn.

Трассировка программы

Трассировка программы во многом аналогична ее выполнению по шагам. Единственное исключение состоит в том, что когда встречается оператор вызова процедуры/функции, при трассировке эти процедуры и функции также выполняются по шагам, а при простом выполнении по шагам управление возвращается вам после завершения выполнения подпрограммы.

Например, чтобы выполнить трассировку кода в вышеприведенном примере, загрузите файл, затем выберите команду Run → Trace Into или нажмите клавишу F7. Когда Вы в первый раз делаете это, управление перемещается на оператор begin основной программы. Повторное нажатие F7 снова перемещает строку управления на оператор for. После этого нажатие клавиши F7 трассирует вызов функции Negate — строка выполнения перемещается на оператор begin в блоке функции. Если Вы продолжаете нажимать F7, строка выполнения перемещается по функции, а затем, когда Вы дойдете до оператора end, возвращается к оператору вызова.

Формат программы влияет на поведение строки выполнения при трассировке, хотя и не в такой степени как при пошаговом выполнении. Если код сформатирован как в первоначальном варианте приведенного выше примера, то трассировка оператора for приводит к выполнению 10 раз функции Negate. Если вы разобьете оператор for на две строки, то трассировка оператора end функции возвращает строку выполнения: ту строку основной программы, которая будет выполняться следующей. Первые девять раз это снова будет вызов функции. В десятый раз строка выполнения перемещается на оператор end программы.

Трассировка или выполнение по шагам?

Пошаговое выполнение и трассировка выполняют одно и то же действие, кроме того случая, когда строка выполнения находится на строке вызова процедуры/функции, или когда выполняется оператор begin в начале программы или модуля, который использует другие модули.

Выполнение begin в блоке begin..end основной программы вызывает код
инициализации для любого используемого в программе модуля в том порядке,
который указывается в операторе uses программы. Аналогично, выполнение
оператора begin в начале секции инициализации вызывает код инициализации для любых модулей, используемых в данном модуле. Выполнение по шагам и трассировка работает в этих случаях как и следовало ожидать — пошаговое выполнение begin выполняет всю инициализацию, возвращая управление на следующий оператор только после того, как все будет завершено; при трассировке выполняется трассировка кода инициализации.

Пошаговое выполнение и трассировка методов объектов

Если в программе используются объекты, отладчик ведет себя аналогично своему поведению в случае обычных процедур/функций. Пошаговое выполнение метода интерпретирует метод как один шаг, возвращая управление к отладчику после того как метод завершает выполнение. Трассировка метода загружает и выводит на экран код метода и трассирует его операторы.

Выполнение больших фрагментов

Иногда, конечно, нежелательно выполнять по шагам всю программу только для того, чтобы добраться до того места, где возникает проблема. Отладчик дает Вам возможность выполнять сразу большой фрагмент программы до той точки, где вы хотите начать выполнение по шагам.

Чтобы задать в программе точку, до которой она должна выполняться, а затем остановиться, используйте команду Run → GoTo Cursor или клавишу F4. (Этим вы сообщите отладчику, что не хотите выполнять программу по шагам, пока не достигнете заданной точки.) Установите курсор на той строке, где вы хотите возобновить управление отладкой, затем нажмите клавишу F4. Заметим, что Вы можете сделать это как в начале сеанса отладки, так и когда уже выполните часть программы по шагам или протрассируете.

Внимание: С использованием этой команды связана одна особенность: если Вы хотите, чтобы программа выполнилась до определенной строки, и устанавливаете курсор внутри модуля (Unit), то этого не произойдет, Вы просто получите ошибку Cannot Run a Unit , и этим все закончится, т.к. IDE понимает это действие, как приказ запустить модуль, чего делать нельзя. Требуется объяснить IDE, чего Вы от нее хотите примерно так: «Запусти основную программу, и только потом выполни все, до текущего положения курсора». Для этого надо зайти в меню Compile → Primary File, указать системе основной файл (НЕ модуль) Вашего приложения, и
только после этого установить курсор внутрь модуля, и нажать F4…

Казалось бы, что поменялось? А вот что: теперь IDE точно знает — основным
файлом приложения является тот, который был установлен, как Primary File,
следовательно, совершенно нет необходимости запускать МОДУЛЬ, достаточно
запустить основной файл, и остановиться тогда, когда выполнение дойдет до
нужной строки в модуле.

Что такое окно Watches и как им пользоваться?

Выполнение программы по шагам или ее трассировка могут помочь Вам найти ошибки в алгоритме программы, но обычно желательно также знать, что происходит на каждом шаге со значениями отдельных переменных. Можно, конечно, по-старинке добавлять в необходимые места программы оператор WriteLn, который распечатает значение контролируемой переменной (а иногда просто нет другого выбора, например, при компиляции крупных проектов на Турбо Паскале возникает необходимость вообще отказаться от IDE, и пользоваться автономной версией компилятора — TPC — запускаемой из командной строки), но если уж есть возможность пользоваться средой программирования — то лучше использовать для контроля за переменными одно из специальных средств IDE: окно Watches (Просмотр) или диалоговое окно Evaluate and Modify (Вычисление и модификация).

Оба средства вычисления и просмотра работают на уровне выражений, поэтому важно определить, что считается выражением. Выражение состоит из констант, переменных и структур данных, скомбинированных с помощью операций и большинства встроенных функций. Почти все, что вы можете использовать в правой части оператора присваивания, может также использоваться в качестве отладочного выражения.

Элементы выражений отладчика

┌────────────────┬────────────────────────────────────────────────────┐ │Элемент │Допустимые значения │ │выражения │ │ ├────────────────┼────────────────────────────────────────────────────┤ │ │Все допустимые типы: Boolean, Byte, Char, │ │Константы │перечислимый тип, Integer, Longint, Real, Shortint, │ │ │Word и строковый тип. │ ├────────────────┼────────────────────────────────────────────────────┤ │Переменные │Все типы, включая типы, определенные пользователем. │ ├────────────────┼────────────────────────────────────────────────────┤ │ целочисленный│Любое целочисленное выражение с переменными │ │тип │границами диапазона. │ ├────────────────┼────────────────────────────────────────────────────┤ │ тип с │Любые выражения с плавающей точкой или целочисленные│ │плавающей точкой│выражения; лишние значащие цифры отбрасываются. │ ├────────────────┼────────────────────────────────────────────────────┤ │ │Любое символьное выражение, включая печатаемые │ │ символьный │символы в одинарных кавычках, целочисленные │ │тип │выражения, тип которых приведен к типу Char, и │ │ │контанты ASCII (#xx). │ ├────────────────┼────────────────────────────────────────────────────┤ │ булевский тип│True, False и все булевские выражения. │ ├────────────────┼────────────────────────────────────────────────────┤ │ перечислимый │Любые совместимые перечислимые константы или │ │тип │целочисленные выражения в рамках диапазона, тип │ │ │которых приведен к совместимому перечислимому типу. │ ├────────────────┼────────────────────────────────────────────────────┤ │ │Любые совместимые указатели или выражения с │ │ указатель │приведенными к ним типами; функция Ptr с │ │ │соответствующим параметрами. │ ├────────────────┼────────────────────────────────────────────────────┤ │ │Любая строковая константа (текст в одинарных │ │ строковый тип│кавычках); строковые переменные; строковые │ │ │выражения, состоящие из конкатенированных строковых │ │ │констант и переменных. │ ├────────────────┼────────────────────────────────────────────────────┤ │ │Любая множественная константа; любое выражение, │ │ множество │совместимое с множественным типом, в котором │ │ │используются операции +, - и *. │ ├────────────────┼────────────────────────────────────────────────────┤ │Приведение типа │Соблюдаются стандартные правила Паскаля. │ ├────────────────┼────────────────────────────────────────────────────┤ │Операции │Все операции Borland Pascal. │ ├────────────────┼────────────────────────────────────────────────────┤ │Встроенные │Все функции, допустимые в выражениях-константах. │ │функции │ │ ├────────────────┼────────────────────────────────────────────────────┤ │Массивы │Массивы Borland Pascal - Mem, MemL, MemW. │ └────────────────┴────────────────────────────────────────────────────┘

Разберем использование окна Watches

Вначале это окно нужно отобразить на экране. Делается это выбором пункта
меню Debug → Watch. На экране появится пустое окно с соответствующим заголовком.

Теперь запускаем программу в пошаговом режиме (нажатием клавиши F7, или
выбором меню «Run → Trace Into»), в редакторе устанавливаем курсор на
название переменной, за которой будем «следить», и жмем Ctrl+F7 (или меню
«Debug → Add Watch…») и подтверждаем выбор нажатием «Ok»… Всё…
Переменная добавлена в окно Watches, и можно наблюдать за ее значением на Watch каждом шаге выполнения программы…

Примечание: Если выбрать переменную для просмотра без предварительного
отображения пустого окна Watches на экране, ничего страшного не произойдет: IDE автоматически откроет окно Watches самостоятельно.

Например, после выполнения выделенной строки

i := 15;

значение переменной i будет уже равно не 0, а 15…

В окне Watches могут отображаться любые типы констант/переменных, объявленных в программе. Например, если описан массив …

const arr: array[1 .. 10] of integer = ( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10 );

… то можно просмотреть одновременно (!!!) как весь этот массив, так
и его левую и правую части… Для этого достаточно ввести во втором и Просмотр третьем случае не только название массива, но и стартовый элемент, и массива (через запятую) число повторений.

Кроме массивов и переменных встроенных типов возможно просматривать Просмотр также и записи (либо в простом формате — только имя переменной, либо в записи специальном — с добавлением спецификатора R.

Все возможные спецификаторы перечислены в таблице (перед любым спецификатором можно указать количество повторений, а если не нужно преобразовывать тип переменной, то сам спецификатор можно не указывать, чем я уже пользовался выше, при выводе части массива arr):

┌──────┬─────────────┬────────────────────────────────────────────────────────┐ │ │Тип, на │ │ │Символ│который он │Функция │ │ │влияет │ │ ├──────┼─────────────┼────────────────────────────────────────────────────────┤ │$, H │целочисленные│Шестнадцатиричный. Выводит целочисленные значения с │ │или X │типы │префиксом $, включая те, которые содержатся в структуре │ │ │ │данных. │ ├──────┼─────────────┼────────────────────────────────────────────────────────┤ │ │Char, │Символьный. Выводит специальные символы для кодов ASCII │ │C │строковые │0..31. По умолчанию такие символы выводятся в виде │ │ │типы │значений #xx. │ ├──────┼─────────────┼────────────────────────────────────────────────────────┤ │ │целочисленные│Десятичный. Выводят целочисленные значения в десятичном │ │D │типы │виде (включая те, которые содержатся в структурах │ │ │ │данных). │ ├──────┼─────────────┼────────────────────────────────────────────────────────┤ │Fn │с плавающей │С плавающей точкой. Выводит n значащих цифр, где n лежит│ │ │точкой │в диапазоне 2..18 (по умолчанию - 11). │ ├──────┼─────────────┼────────────────────────────────────────────────────────┤ │ │ │Дамп памяти. Выводит n байт памяти, начиная с адреса, │ │nM │все │указываемого выражением. Если n не задано, то по │ │ │ │умолчанию оно равно значению размера в байтах типа │ │ │ │переменной. │ ├──────┼─────────────┼────────────────────────────────────────────────────────┤ │P │указатели │Указатель. Выводит указатели в формате сегм:смещ (а не │ │ │ │Ptr(сегм:смещ), как это делается по умолчанию. │ ├──────┼─────────────┼────────────────────────────────────────────────────────┤ │R │записи, │Запись. Выводит имена полей, например, (X:1;Y:10; Z:5) │ │ │объекты │вместо (1, 10,5). │ ├──────┼─────────────┼────────────────────────────────────────────────────────┤ │ │ │Строки. Выводит символы ASCII 0..31 в виде #xx. │ │S │Char, строки │Использует только для модификации дампов памяти (см. │ │ │ │выше nM). │ └──────┴─────────────┴────────────────────────────────────────────────────────┘

Окно Evaluate and Modify

Но кроме простого просмотра значений той или иной переменной или выражения,
существует средство, позволяющее вам в любой момент вычислять выражения и
изменять на этапе выполнения значения переменных. Этим средством и является
диалог Evaluate and Modify (Вычисление и модификация).

Вычисление выражений

Чтобы вычислить выражение, выбираем команду Debug → Evaluate/Modify или нажимаем клавиши Ctrl+F4. Отладчик выводит диалоговое окно Evaluate and Modify (Вычисление и модификация). Здесь (в поле ввода Expression) можно занести любое допустимое выражение , или выбрать его из списка ранее вычисленных при помощи этого же диалога выражений и отредактировать.

После нажатия на Enter или щелчка мышью на кнопке Evaluate (Вычислить), текущее значение выражения будет показано в поле Result (Результат).

Примечание: если в поле Expression введено выражение, которое не может быть вычислено интегрированной средой, то в поле Result появится вот такая надпись: «Cannot evaluate this expression».

Модификация переменных

Кроме этого, во время отладки с помощью диалогового окна Evaluate and Modify существует возможность поменять значение переменной на любое другое, чтобы проверить работу программы с другим, вновь присвоенным значением переменной. Для этого нужно установить курсор на имени переменной, и выбрать в меню Debug → Evaluate/Modify… (или просто нажать Ctrl+F4)…

В появившемся окне в поле Expression (Выражение) достаточно ввести имя переменной (или ничего не делать, если имя уже введено), и нажать кнопку Evaluate… Текущее значение выбранной переменной будет отображено в поле Result. Если оно же отображается и в поле New Value, это значит, что у Вас есть возможность прямо сейчас поменять это значение на любое другое (разумеется, совместимое по присваиванию с типом выбранной переменной; присваивать строке целому числу Вам никто не позволит, также, как и, например, записать в целочисленную переменную значение 3.14159), и применить новое значение переменной, не перезапуская программу…

Например, допустим, что программа имеет вид:

var i: integer; begin for i := 1 to 20 do writeln(i); readln; end.

, и Вам захотелось попасть в точку, где распечатывается значение i = 20 (желание далеко не самое сумасшедшее, представьте, например, что вместо простого распечатывания значения i там будет вызов какой-нибудь функции, которую надо прогнать пошагово при определенном значении i, да еще и функция может быть длинной и долго выполняться), но не очень хочется нажимать F7 почти 20 раз и приходить в нужную точку «естественным путем». Что делаем? А вот что:

Добавляем значение i в окно Watches, начинаем выполнять программу пошагово (F7)… Я остановился, когда значение i было равно трем, хотя это же самое можно было сделать и сразу после входа в цикл, то есть как только i стало равно единице.

Теперь ставим курсор под название переменной i и жмем Ctrl+F4 для вызова нужного нам окна… Состояние экрана, которое должно получиться, видно на скриншоте…

Переходим в поле New Value (как я говорил, если в нем записано текущее значение переменной, то нам будет позволено его сменить), печатаем в нем значение 20, и жмем на «Modify»…

Как видим, значение i в Watches тоже поменялось на 20, теперь спокойно закрываем окно «Evaluate and Modify» (кнопкой Cancel), и продожлжаем выполнять программу пошагово…

Таким образом, мы пропустили все НЕинтересующие нас в данном случае шаги,
выполнение которых могло занять значительное время…

Окно Call Stack — что это такое?

В IDE Паскаля есть еще одно очень удобное средство отладки — просмотр стека вызовов подпрограмм. Представьте себе, что программа имеет не только основную часть, но и несколько процедур/функций, вызывающих друг друга. В таком случае при пошаговой отладке становится сложно держать в памяти, какая именно процедура вызвала ту, что выполняется сейчас, и куда, соответственно, вернется управление после завершения текущей подпрограммы.

Да и не нужно этого держать в голове. Для этого существует такое средство, как «Call Stack» (вызывается из меню Debug → Call Stack или просто Ctrl+F3). Например, пусть наша программа имеет вид:

function fact(n: longint): longint; begin if n = 0 then fact := 1 else fact := n * fact(n - 1); end;   function b(n: longint): integer; begin b := 2 * fact(n); end;   begin writeln( b(10) ); end.

Если начать выполнять ее пошагово, очень скоро можно запутаться в том, что именно сейчас выполняется (факториал какого числа вычисляется в данный момент, к примеру), и что еще осталось НЕзавершенным. А если программа будет в 10 раз длиннее, и будет содержать не 2, а 10 процедур/функций? В таком случае достаточно вызвать окно Call Stack (способ вызова — выше), и посмотреть, что именно в данный момент выполняется (то есть находится на першине стека вызовов), и что еще выполняться будет (находится ниже в списке), вплоть до Program, обозначающего, самый нижний уровень — основную программу…

Вот, например, в данном случае: выполняется функция вычисление факториала 8, которая вызвана из нижестоящей в списке функции вычисления факториала 9, которая в свою очередь… Ну, дальше все понятно… При продолжении пошагового выполнения этой программы в окно Call Stack будут добавляться новые и новые вызовы Fact (7), Fact(6), … до Fact(0); потом рекурсия начнет раскручиваться обратно…

Кстати, Call Stack — незаменимый помощник именно при работе с рекурсивными подпрограммами, поскольку дает возможность контролировать последовательность вызовов рекурсивной функции, и на ранней стадии определить, например, бесконечную рекурсию…
Например, здесь — совершенно очевидно, что рекурсивная функция оформлена неверно (отсутствует ветка Else), сразу после того, как в окне Call Stack появились вызовы f (-1) и f(-2)…

Еще одно полезное применение окна Call Stack — если вы случайно начали трассировку кода, который хотели бы выполнить за один шаг. В стеке вызовов вы можете найти тот вызов, который начали трассировать по ошибке, затем выбрать команду Run to Cursor, чтобы выполнить за один шаг остальную часть вызова.

Что такое точки останова программы?

Кроме всех вышеперечисленных возможностей, значительно облегчающих жизнь программисту, в IDE Паскаля встроено еще одно средство, очень мощное и эффективное (при правильном использовании)… Это — работа с точками останова программы (BreakPoints).

Точка останова — это обозначенная в коде программы позиция, в которой вы хотите прекратить выполнение программы и вернуть выполнение отладчику. В этом смысле точка останова работает аналогично команде GoTo Cursor, при которой программа выполняется обычным путем до достижения определенной точки. Основное различие состоит в том, что вы можете задать несколько точек останова и точки останова, которые будут срабатывать не при каждом их достижении.

Допустим, есть следующая программа:

const parameter = 10;   function f(x: integer): integer; begin f := 10 * parameter - sqr(x); end;   var i, j: integer; arr: array[1 .. 20] of real; begin for i := 1 to 20 do begin j := f(i); arr[i] := (15 * j / parameter) + i / j - 8; end; { ... } end.

(не обольщайтесь, программа может быть не в 17, а в 1700 строк длиной, и функция f может быть гораздо более сложной, так же как и способ ее вызова)…

Естественно, запустив эту программу, получаем:

Runtime error 200 at 0006:0004.

, из чего заключаем, что где-то в программе происходит деление на 0. Ну, где
оно происходит, понятно. А вот на какой итерации? Чему равно i, при котором
происходит эта ошибка? Можно, конечно, воспользоваться старым и проверенным
способом, и сделать так:

const parameter = 10;   function f(x: integer): integer; begin f := 10 * parameter - sqr(x); end;   var i, j: integer; arr: array[1 .. 20] of real; begin for i := 1 to 20 do begin j := f(i); writeln('j = ', j); arr[i] := (15 * j / parameter) + i / j - 8; end; { ... } end.

, после чего нам будут распечатаны все значения j, для которых программа отработала нормально, и еще одно, при котором как раз и произошло «Деление на Ноль». Но для этого нужно вносить изменения в программу. А можно обойтись без её изменений… Используя точку останова…

Для этого проделаем следующее… Во-первых, добавим переменную i в список Watches, так как нам нужно найти именно «при каком i программа вылетает».

Далее — установим курсор на той строке программы, где происходит деление, и выберем в меню пункт «Debug → Add Breakpoint…» Экран примет вид, показанный на снимке справа.

Примечание: строка, на которую устанавливается BreakPoint, должна содержать выполняемый код и не может быть комментарием, описанием или пустой строкой…

В поле Condition внесем условие, при котором следует остановить программу (условие вводится так же как и при использовании условных операторов в программе, только Условный If здесь присутствовать не должно), и подтверждаем установку BreakPoint-а нажатием кнопки «Ok»:

Строка, в которой установлен хотя бы один BreakPoint (а устанавливать можно несколько точек останова для программы, причем даже на одной строке, но с разными условиями, может быть установлено более одного BreakPoint-а) меняет цвет на красный…

Если теперь запустить программу (обычным способом — через Ctrl+F9, или пошагово, не имеет значения), то как только значение j в Условный выделенной строке станет равным 0, прогон программы будет приостановлен с выдачей вот такого сообщения:

Как видим (в окне Watches), происходит это при i = 10… Что и требовалось
определить…

Чтобы просмотреть, какие BreakPoint-ы были установлены в программе, достаточно зайти в меню «Debug → BreakPoints», и будет выведен список всех точек останова для данной программы:

Нажатием на «Clear All» можно удалить все точки останова сразу, «Delete» удалит только подсвеченный BreakPoint, а «Edit»-ом можно отредактировать текущий (подсвеченный) BreakPoint — подкорректировать условие, поменять номер строки, в которой должна производиться проверка, изменить счетчик числа проходов (задание для точки останова счетчика проходов сообщает отладчику, что останавливать программу нужно не при каждом достижении точки останова, а только на n-ый раз. То есть, если счетчик проходов равен 3, то отладчик останавливает программу только при третьем достижении данной точки останова) и т.д.

Поиск нужного места

IDE предусматривает два способа поиска в программе заданного места. Простейший способ предоставляет команда Find Procedure (Поиск процедуры) из меню Search. Эта команда запрашивает у Вас имя процедуры или функции, затем находит соответствующую строку в файле, где определяется эта подпрограмма. Этот подход полезно использовать при редактировании, но его можно комбинировать с возможностью выполнения программы до определенной точки, чтобы пройти программу до той части кода, которую вы хотите отладить.

Повторное выполнение (сброс программы)

В ходе сеанса отладки иногда желательно начать все сначала. Выберите команду Run → Reset Program или нажмите клавиши Ctrl+F2. Это приведет к полному сбросу, так что выполнение по шагам, или трассировка начнется в начале основной программы.

Отслеживание вывода программы

При выполнении программы по шагам часто полезно просмотреть вывод программы, называемый экраном пользователя. IDE предоставляет несколько способов просмотра экрана пользователя.

Переключение экранов

В любой момент сеанса отладки вы можете выполнять переключение экрана IDE и экрана пользователя. Чтобы вывести экран пользователя, нажмите клавиши Alt+F5. Чтобы вернуться в IDE, нажмите любую клавишу или щелкните «мышью».

Окно Output

IDE для DOS предусматривает для экрана пользователя окно, которое называется окном вывода. Выбрав команду меню Debug → Output, вы можете открыть (вывести на передний план) активное окно, содержащее вывод программы. Настроить размер этого окна можно аналогично окну редактирования.

Источник

uses crt,graph;
Type ukazat=^S;
  S=record
    inf:integer;
    Next:ukazat;
  end;
var
u1,u2,u3,u4:ukazat;
x1,y1,x2,y2:integer;
k:integer;
p,pp:byte;
o:boolean;
Procedure abc(p,pp:integer);
begin
      u1:=u3;
      u1^.inf:=x1+p;
      new(u1^.next);
      u1^.next^.inf:=y1+pp;
      putpixel(x1+p,y1+pp,10);
      new(u1^.next^.next);
      u1:=u1^.next^.next;
      u3:=u1;
      inc(k);
end;
begin
 initgraph(x1,y1,'');
 Setcolor(10);
 rectangle(10,100,100,200); x1:=11;y1:=120;
 k:=0;
 new(u1);
 u3:=u1;u4:=u1;
 abc(0,0);
 readkey;
 while k<>0 do
  begin
    u1:=u4;
    x1:=u1^.inf; y1:=u1^.next^.inf;
    if getpixel(x1-1,y1)=0 then abc(-1,0);
    if getpixel(x1+1,y1)=0 then abc(1,0);
    if getpixel(x1,y1-1)=0 then abc(0,-1);
    if getpixel(x1,y1+1)=0 then abc(0,1);
    u1:=u4; u2:=u1; u1:=u1^.next; dispose(u2);
    dec(k);
    u2:=u1; u1:=u1^.next; dispose(u2); u4:=u1;
  end;
 readln;
end.

Источник

переполнение кучи

Описание

Recommended Answers

All 6 Replies

Содержание

Отладка программ в Turbo Pascal

Что такое отладка?

Какие существуют виды ошибок?

Ошибки этапа компиляции

Ошибки этапа выполнения

Логические ошибки

Пошаговый прогон: какая разница между F4, F7 и F8?

Что такое шаг?

Выполнение программы по шагам

Трассировка программы

Трассировка или выполнение по шагам?

Пошаговое выполнение и трассировка методов объектов

Выполнение больших фрагментов

Что такое окно Watches и как им пользоваться?

Разберем использование окна Watches

Окно Evaluate and Modify

Вычисление выражений

Модификация переменных

Окно Call Stack — что это такое?

Что такое точки останова программы?

Поиск нужного места

Повторное выполнение (сброс программы)

Отслеживание вывода программы

Переключение экранов

Окно Output

Не пропустите эти материалы по теме: