1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 |
uses graph,crt; type mas=array[1..4,1..4] of integer; var ch:char; a:mas; gd,gm,xkursor,ykursor,i,j,xzas,yzas,dxzas,dyzas,b,c:integer; p2048,menu,kmenu,helpkar,game12,proigral,win:pointer; function loader(filename:string):pointer; var sz:longint; p:pointer; f:file; begin assign(f,filename); reset(f,1); sz:=filesize(f); getmem(p,sz); blockread(f,p^,sz); close(f); loader:=p; end; procedure upr (var ch:char;var xkursor,y:integer); begin ch:=readkey; putimage(xkursor,y,kmenu^,xorput); if ch=#0 then ch:=readkey; case ch of #72: if y>99 then y:=y-220; #80: if y<550 then y:=y+220; end; if y>545 then y:=100; if y<100 then y:=540; putimage(xkursor,y,kmenu^,xorput); end; function proverka(a:mas): boolean; var i,j,k,z:integer; begin proverka:=true; for i:=1 to 4 do for j:=1 to 4 do if (a[i,j] = 0) then proverka:=false else for k:=2 to 3 do for z:= 2 to 3 do if (a[k,z] = a[k+1,z]) or (a[k,z] = a[k-1,z]) or (a[k,z] = a[k,z-1]) or (a[k,z] = a[k,z+1]) then proverka:=false else if ((a[1,j] = a[2,j]) or (a[2,j] = a[3,j]) or (a[3,j] = a[4,j])) or ((a[i,1] = a[i,2]) or (a[i,2] = a[i,3]) or (a[i,3] = a[i,4])) then proverka:=false; end; procedure gg(a:mas); var i,j:integer; begin for i:=1 to 4 do for j:=1 to 4 do if a[i,j] = 2048 then begin cleardevice; putimage(0,0,win^,xorput); end; end; procedure zastavka(var xzas,yzas,dxzas,dyzas:integer); begin putimage(xzas,yzas,p2048^,xorput); xzas:=xzas+dxzas; yzas:=yzas+dyzas; if (xzas>getmaxx-100) then dxzas:=-dxzas; if (xzas<0) then dxzas:=-dxzas; putimage(xzas,yzas,p2048^,xorput); if (yzas>getmaxy-100) then dyzas:=-dyzas; if (yzas<0) then dyzas:=-dyzas; settextstyle(1,1,1); outtextxy(0,getmaxy-20,'Game created: Podlesny Ilya'); delay(30); end; procedure game; var f:text; l,i,n,c,m1,m2,h,z,LoshadCount:Integer; max:Real; v:array[1..7] of integer; s:array[1..7] of real; begin begin clrscr; l:=0; Randomize; LoshadCount:=Random(6)+2; z:=Random(5)+3; m1:=Random(4)+2; m2:=Random(5)+6; begin assign(f,'C:UsersiDeathlessDesktopdata RacecourseInput.txt'); rewrite(f); write(f,m1); write(f,m2); close(f); end; for h:=1 to z do begin // Stavki Randomize; LoshadCount:=Random(6)+2; n:=0; repeat write('Vibirite loshad (ot 1 do ', LoshadCount,'): '); readln(n); until n in [1..LoshadCount]; // Zaezd Randomize; for i:=1 to LoshadCount do s[i]:=round(Random(m2-m1+1)+m1)*7; // Finish max:=s[1]; for i:=2 to LoshadCount do if s[i]>max then max:=s[i]; c:=0; for i:=1 to LoshadCount do if s[i]=max then begin Inc(c); v[c]:=i; end; if c=1 then begin c:=v[1]; end else begin // Fotofinish max:=max+0.001; c:=Random(c)+1; c:=v[c]; s[c]:=max; end; // Resultat Writeln; Writeln ('--------------------'); Writeln (' Sredniya'); Writeln ('Loshad skorost, Resultat'); Writeln (' km/ch'); Writeln ('--------------------'); for i:=1 to LoshadCount do begin Write (' ', i, s[i]:15:3); if i=c then Write (' POBEDITEL'); Writeln(); end; Writeln ('--------------------'); Writeln; if c=n then begin Writeln ('VI VIIGRALI !!!'); l:=l+1; end else Writeln ('Vi proigrali'); Readln; clrscr; end; end; begin assign(f,'C:UsersiDeathlessDesktopdata RacecourseOutput.txt'); rewrite(f); write(f,l); write(f,z); close(f); end; end; procedure help; begin cleardevice; putimage(0,0,helpkar^,xorput); readkey; end; begin gd:=detect; b:=9; c:=11; initgraph(b,c,''); randomize; menu:=loader('buhf/menu2.bmp'); kmenu:=loader('buhf/kursor.bmp'); helpkar:=loader('buhf/help1.bmp'); p2048:=loader('buhf/2048.bmp'); game12:=loader('buhf/game12.bmp'); proigral:=loader('buhf/pr5.bmp'); win:=loader('buhf/win.bmp'); xzas:=random(getmaxx div 2); yzas:=random(getmaxy div 2); dxzas:=random(10)+20; dyzas:=random(10)+20; putimage(xzas,yzas,p2048^,xorput); repeat zastavka(xzas,yzas,dxzas,dyzas); until keypressed; readkey; repeat xkursor:=400; ykursor:=100; cleardevice; putimage(0,0,menu^,xorput); putimage(xkursor,ykursor,kmenu^,xorput); repeat upr(ch,xkursor,ykursor); until ch=#13; case ykursor of 100:game; 320:help; end; until ykursor=540; end. |
1
Out of memory
Выход за границы памяти
Компилятор выполняется вне допустимых границ памяти. Имеется ряд возможных решений проблемы:
§ Если в меню Options?Linker?Link Buffer, установлен параметр Memory, переключите его в значение Disk.
§ Возможно программа слишком велика, чтобы компилироваться в таком объеме памяти. Следует разбить ее на два или более модуля.
2
Identifier expected
Не указан идентификатор
В этом месте должен находиться идентификатор.
3
Unknown identifier
Неизвестный идентификатор
Этот идентификатор не был описан.
4
Duplicate identifier
Повторный идентификатор
Идентификатор уже представляет имя программы, модуля, константы, переменной, типа, процедуры и функции, описанных в текущем блоке.
5
Syntax error
Синтаксическая ошибка
В исходном тексте найден неверный символ.
6
Error in real constant
Ошибка в вещественной константе
7
Error in integer constant
Ошибка в целой константе
8
String constant exceeds line
Строковая константа превышает размеры строки
Вероятно, отсутствует кавычка в конце строковой константы.
10
Unexpected end of file
Неожиданный конец файла
Причины:
§ несоответствующее количество begin и end (не забудьте, что оператор case также заканчивается словом end);
§ включаемый файл заканчивается в середине раздела операторов. Каждый раздел операторов должен целиком помещаться в одном файле;
§ незаконченный комментарий.
11
Line too long
Строка слишком длинная
Максимальная длина строки может равняться 126 символам. Возможно, отсутствует апостроф в конце строковой константы.
12
Type identifier expected
Нужен идентификатор типа
Не указан типа идентификатора, как это должно быть.
13
Too many open files
Слишком много открытых файлов
Файл CONFIG.SYS не содержит параметра FILES=xx или этот параметр указывает слишком много файлов. Следует увеличить число файлов.
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
Слишком большая структура
Максимально допустимый размер структурного типа 65 535 байт.
23
Set base type of range
Базовый тип множества выходит за допустимые границы
Базовый тип множества должен представлять собой отрезок типа с границами в пределах от 0 до 255 или перечислимого типа, допускающим не более чем 256 значений.
24
File components may not be files or objects
Элементы файла не могут быть файлами или объектами
Тип компоненты файлового типа не может быть объектным или файловым типом и не может быть структурным типом с компонентами файлового или объектного типа: конструкции 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
Pointer type identifier expected
Нужен идентификатор типа указателя
Данный идентификатор не обозначает тип указателя, как это требуется.
34
Invalid function result type
Неправильный тип результата функции
Правильными типами результата функции являются все простые типы, а также строковые и ссылочные типы.
35
Label identifier expected
Нужен идентификатор метки
Метка не обозначена с помощью идентификатора, как это требуется.
36
BEGIN expected
Нужен BEGIN
37
END expected
Нужен END
Следует проверить соответствие ключевых слов BEGIN и END.
38
Integer expression expected
Нужно выражение типа INTEGER
Предыдущее выражение должно иметь целочисленный тип INTEGER
39
Ordinal expression expected
Нужно выражение порядкового типа
Предшествующее выражение должно иметь порядковый тип.
40
Boolean expression expected
Нужно выражение типа BOOLEAN
Предшествующее выражение должно иметь тип BOOLEAN
41
Operand types do not math operator
Типы операндов не соответствуют оператору
Данный оператор не может быть применен к операндам этого типа, например, нельзя ‘A’ разделить на ‘2’.
42
Error in expression
Ошибка в выражении
Данный идентификатор не может участвовать в выражении указанным образом.
43
Illegal assignment
Неверное присваивание
§ Нетипизированным файлам и переменным нельзя присваивать значения.
§ Идентификатору функции можно присваивать значения только внутри раздела операторов данной функции.
44
Field identifier expected
Нужен идентификатор поля
Данный идентификатор не является полем предшествующей переменной типа «запись».
45
Object file too large
Объектный файл слишком большой
Нельзя компоновать файлы .obj, превышающие 64 Кбайт.
46
Undefined external
Не определена внешняя процедура
Внешняя процедура или функция не имеет соответствующего определения Public в объектном файле. Убедитесь, что вы указали все объектные файлы в директивах {$L имя_файла}, и проверьте написание идентификаторов процедуры или функции в файле .asm.
47
Invalid object file record
Неправильная запись объектного файла
Файл .obj содержит неверную объектную запись. Убедитесь, что данный файл является действительно файлом .obj.
48
Code segment too large
Сегмент кода слишком большой
Максимальный размер кода программы или программного модуля равняется 65 520 байт. Если вы компилируете программный модуль, разбейте его на два или более программных модулей.
49
Data segment too large
Сегмент данных слишком велик
Максимальный размер сегмента данных равен 65 520 байт, включая данные, описываемые используемыми программными модулями. Если вам нужно большее количество глобальных данных, опишите большие структуры с помощью указателей и выделяйте для них память динамически с помощью процедуры New.
50
DO expected
Нужен оператор DO
51
Invalid PUBLIC definition
Неверное определение PUBLIC
§ Две или более директивы PUBLIC на языке ассемблера определяют один и тот же идентификатор.
§ Объектный файл .obj определяет идентификаторы PUBLIC, которые не находятся в сегменте CODE.
52
Invalid EXTRN definition
Неверное определение EXTRN
§ На идентификатор имеется ссылка в директиве EXTRN на языке ассемблера, но он не описан в программе или модуле на Паскале или в интерфейсной части какого-либо из используемых модулей.
§ Идентификатор обозначает абсолютную переменную.
§ Идентификатор обозначает процедуру или функцию типа inline.
53
Too many EXTRN definition
Слишком много определений EXTRN
Невозможно обработать файлы .obj, если имеется более чем 256 EXTRN.
54
OF expected
Требуется OF
55
INTERFACE expected
Требуется интерфейсный раздел
56
Invalid relocatable reference
Недопустимая перемещаемая ссылка
§ Файл .obj содержит данные и перемещаемые ссылки в сегментах, отличных от CODE. Например, вы пытаетесь описать инициализированные переменные в сегменте DATA.
§ Файл .com содержит ссылки с размерами в байтах на перемещаемые идентификаторы. Такая ошибка происходит в случае, если вы используете операторы HIGH и DOWN с перемещаемыми идентификаторами или если вы ссылаетесь в директивах DB на перемещаемые идентификаторы.
§ Операнд ссылается на перемещаемый идентификатор, который не был определен в сегменте CODE или в сегменте DATA.
§ Операнд ссылается на процедуру EXTRN или функцию EXTRN со смещением, например CALL SortProc+8.
57
Then expected
Требуется THEN
В нужном месте отсутствует слово then.
58
TO or DOWNTO expected
Требуется TO или DOWNTO
В нужном месте отсутствует ключевое слово TO или DOWNTO.
59
Undefined forward
Не определено опережающее описание
§ Процедура или функция были описаны в интерфейсном разделе программного модуля, но их определение отсутствует в разделе реализации.
§ Процедуры или функции были описаны с помощью описания forward, но их определение не найдено.
61
Invalid typecast
Неверное преобразование типа
§ Размеры ссылки на переменную и тип результата отличаются друг от друга при изменении типа переменной.
§ Вы пытаетесь осуществить приведение типа выражения, когда разрешается только ссылка на переменную, процедуру или функцию.
62
Division by zero
Деление на нуль
Предшествующая операция пытается выполнить деление на нуль.
63
Invalid file type
Неверный файловый тип
Данный файловый тип не обслуживается процедурой обработки файлов. Например, вы пытаетесь использовать процедуру Readln для типизированного файла или процедуру Seek для текстового.
64
Cannot Read or Write variables of this type
Нельзя считать или записать переменные данного типа
Процедуры Read и Readln могут считывать переменные символьного, целого, вещественного и строкового типа.
65
Pointer variable expected
Нужно использовать переменную-указатель
Предыдущая переменная должна иметь тип «указатель».
66
String variable expected
Нужна строковая переменная
Предшествующая переменная должна иметь строковый тип.
67
String expression expected
Нужно выражение строкового типа
Предшествующее выражение должно иметь строковый тип.
68
Circular unit reference
Циклическая ссылка на модуль
Два модуля не могут ссылаться друг на друга в разделе interface, но могут это делать в разделе implementation. Переупорядочите операторы uses таким образом, чтобы циклические ссылки имели место только в разделе implementation.
69
Unit name mismatch
Несоответствие имен программных модулей
Имя программного модуля, найденное в файле .tpu, не соответствует имени, указанному в операторе uses.
70
Unit version mismatch
Несоответствие версий программных модулей
Один или несколько программных модулей, используемых данной программой, были изменены после их компиляции. Воспользуйтесь командой Compile?Make или Compile?Build в интегрированной интерактивной среде программирования, что позволит автоматически скомпилировать программные модули, нуждающиеся в перекомпиляции.
71
Internal stack overflow
Переполнение внутреннего стека
Внутренний стек компилятора исчерпан из-за слишком большого уровня вложенности операторов. Переорганизуйте исходный код и уменьшите уровень вложенности. Например, переместите внутренние уровни вложенных операторов в отдельную процедуру.
72
Unit file format error
Ошибка формата файла программного модуля
Файле .tpu является недействительным. Возможно, он создан с помощью старой версии Turbo Pascal или Borland Pascal. В этом случае нужно перекомпилировать исходный код модуля и создать новый модуль.
73
Implementation expected
Требуется раздел реализации
Ключевое слово Implementation отсутствует там, где оно должно быть. Возможно, вы включили реализацию процедуры, функции или метода в интерфейсную часть модуля.
74
Constant and case types do not math
Типы констант и выражения оператора 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
Предшествующее выражение должно иметь тип 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
Не указано ключевое слово Unit, как это требуется.
85
«;» expected
Нужно указать «;»
Не указана, где это требуется, точка с запятой.
86
«:» expected
Нужно указать «:»
Не указана, где это требуется, двоеточие.
87
«,» expected
Нужно указать «,»
Не указана, где это требуется, запятая.
88
«(» expected
Нужно указать «(»
Не указана, где это требуется, открывающаяся круглая скобка.
89
«)» expected
Нужно указать «)»
Не указана, где это требуется, закрывающаяся круглая скобка.
90
«=» expected
Нужно указать «=»
Нужно указать знак равенства.
91
«:=» expected
Нужно указать «:=»
Требуется использовать операцию присваивания.
92
«[» or «(.» expected
Нужно «[» or «(.»
Требуется указать квадратную скобку или «(. ».
93
«]» or «.)» expected
Нужно «]» or «.)»
Требуется указать квадратную скобку или «.) ».
94
«.» expected
Нужно «.»
Требуется указать точку. Убедитесь, что тип не используется как переменная или что именем программы не переопределяется важный идентификатор другого модуля.
95
«..» expected
Нужно «..»
Требуется указать точки. Там, где это нужно, не указан диапазон.
96
Too many variables
Слишком много переменных
Общий размер глобальных переменных, описанных в программе или программном модуле, не может превышать 64 Кбайт.
Размер локальных переменных, описанных в программе или функции, не может превышать 64 Кбайт.
97
Invalid for control variable
Недопустимая управляющая переменная оператора for
Управляющая переменная оператора for должна быть переменной перечисляемого типа, определенной в разделе описаний текущей подпрограммы.
98
Integer variable expected
Нужна переменная целого типа
Предшествующая переменная должна иметь тип integer.
99
Files 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
Character expression
Ожидается символьные выражения
105
Compilation aborted
Компиляция прервана
106
Error in statement
Ошибка в операторе
107
Error in type
Ошибка в типе
108
Expected
Ожидается имя
109
Invalid floating point operation
Неправильная операция для вещественных операндов
110
Ordinal variable expected
Ожидается переменная целого или символьного типа
111
Too many symbols
Слишком много символов
112
Undefined type
Неопределенный тип
113
Abnormal program termination
Ненормальное окончание программы
114
Ctrl-Break to quit
нажмите CTRL и Break для входа
115
Disk is write-protected
Диск защищен от записи
116
Disk read error
Ошибка записи на диск
117
Disk write error
Ошибка записи на диск
118
Drive not ready
дисковод не готов (нет дискеты)
119
Error on execute
Ошибка исполнения
120
Floating point overflow
Вещественное переполнение
121
Hardware failure
Ошибка оборудования
122
Heap overflow error
Не хватает основной памяти
123
I/O checking
Ошибка ввода/вывода
124
Invalid Breakpoint
Неправильная точка останова
125
Invalid format specifier
Неправильный формат
126
No debug info
Не задана информация для отладки
127
Not enough memory
Не хватает памяти
128
Press any key
Нажмите любую клавишу
129
Program terminated
Исполнение программы прекращено
130
Range check error
Выход индекса за пределы массива
131
Runtime error
Ошибка во время исполнения
132
Stack overflow error
Ошибка по переполнению стека
133
Too many breakpoints
Слишком много точек останова
134
Type EXIT to return to Turbo Pascal
Введите Exit для возврата в Турбо Паскаль
135
User Break
Пользователь прервал исполнение программы
Модераторы:Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
-
Dahlia
- Сообщения:1
- Зарегистрирован:17 июл 2013, 18:35
Программа в Паскале компилится, но не запускается. Ошибка «Exitcode = 1». Не понимаю, в чём дело. Зарезервированными словами переменные не обозначал. Скажите, пожалуйста, в каких случаях может возникать такая ошибка. Если нужен будет код, я его дам.
-
Naeel Maqsudov
- Сообщения:2551
- Зарегистрирован:20 фев 2004, 19:17
- Откуда:Moscow, Russia
- Контактная информация:
17 июл 2013, 23:32
Ну, наверное в программе написано EXIT(1); и она таки выполняется ровно до этого места.
-
somewhere
- Сообщения:1837
- Зарегистрирован:31 авг 2006, 17:14
- Откуда:71 RUS
- Контактная информация:
18 июл 2013, 09:46
Да не, в документации же русским по белому написано:
1. Invalid function number
An invalid operating system call was attempted.
Боюсь тут без кода никак
It’s a long way to the top if you wanna rock’n’roll
Topic: Getting «Exit code 1., Errors: 1» when compiling my package (Read 24702 times)
I am getting an odd error when compiling my package. The «Messages» windows simply says:
Compiling package PmyLazarus 0.0: Exit code 1, Errors: 1
Fatal: Compilaion aborted
The situation is this… i get no errors of any kind, just «Fatal: Compilation aborted» — where can I see more about what is causing the issue?
I already configured compiler to emit verbose messages… But the compilation log seems very small…
I am using Newest OS X + Lazarus 1.4.0 (and otherwise working)
« Last Edit: September 21, 2015, 04:21:41 pm by MISV »
Logged
The situation is this… i get no errors of any kind, jus «Fatal: Compilation aborted»
Right click, you should see an option to copy all compiler messages.
Logged
okay
Compiling package FCL 1.0.1: Exit code 1, Errors: 1, Hints 2
Hint: Start of reading config file /etc/fpc.cfg
Hint: End of reading config file /etc/fpc.cfg
(i) Verbose: Free Pascal Compiler Version 2.6.4 [2014/02/26] for i386
(i) Verbose: Copyright (c) 1993-2014 by Florian Klaempfl and others
(i) Verbose: Target OS: Darwin for i386
(i) Verbose: Compiling fcllaz.pas
(i) Verbose: Compiling registerfcl.pas
(i) Verbose: Compiling lazaruspackageintf.pas
(i) Verbose: Assembling (pipe) /Developer/packager/units/i386-darwin/lazaruspackageintf.s
(i) lazaruspackageintf.pas(64,27) Verbose: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
The only thing I can think of is that I have messed around with project options in one of my projects section «Additions and override». Maybe that somehow messed up some internal Lazarus/FCL library?
The error seems to also happen when simply rebuilding the IDE when installing/uninstalling packages
« Last Edit: September 21, 2015, 03:27:51 pm by MISV »
Logged
No solution yet, but maybe closer?
I upgraded to 1.4.2… tried build IDE (through packages) and got an error about needding to accept xcode license (maybe that is the cause for all the problems? An xcode update?)
I then separately started xcode and accepted the license.
I then tried to build lazarus again… I removed packages hat packages that errors like lclextensions (never errored in the past)
Removing those I now get this error:
Build IDE: Exit code 2, Errors: 1, Hints: 5
Verbose: /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ide idepkg
Verbose: make[1]: Entering directory `/Developer/lazarus/ide’
Verbose: /Applications/Xcode.app/Contents/Developer/usr/bin/make —assume-new=lazarus.pp lazarus OPT=’ @/Users/myname/.lazarus/idemake.cfg’
Verbose: make[2]: Entering directory `/Developer/lazarus/ide’
Verbose: /usr/local/bin/ppc386 -gl -vbqewnhi -Sci -dlclcarbon -Fu../designer -Fu../debugger -Fu../debugger/frames -Fu../converter -Fu../packager -Fu../packager/frames -Fu../components/custom -Fuframes -Fu. -Fu/usr/local/lib/fpc/2.6.4/units/i386-darwin/rtl -Fu/usr/local/lib/fpc/2.6.4/units/i386-darwin/paszlib -Fu/usr/local/lib/fpc/2.6.4/units/i386-darwin/fcl-process -Fu/usr/local/lib/fpc/2.6.4/units/i386-darwin/hash -Fu/usr/local/lib/fpc/2.6.4/units/i386-darwin/fpmkunit -Fu/usr/local/lib/fpc/2.6.4/units/i386-darwin/regexpr -Fiinclude -Fiinclude/darwin -Fi../images -FE.. -FU../units/i386-darwin/carbon @/Users/myname/.lazarus/idemake.cfg -di386 lazarus.pp
Hint: Start of reading config file /etc/fpc.cfg
Hint: End of reading config file /etc/fpc.cfg
Hint: Start of reading config file /Users/myname/.lazarus/idemake.cfg
Hint: End of reading config file /Users/myname/.lazarus/idemake.cfg
Verbose: Free Pascal Compiler version 2.6.4 [2014/02/26] for i386
Verbose: Copyright (c) 1993-2014 by Florian Klaempfl and others
Verbose: Target OS: Darwin for i386
Verbose: Compiling lazarus.pp
Verbose: [lazarus] Error 1
Verbose: [idepkg] Error 2
lazarus.pp(41,3) Hint: Unit «redirect_stderr» not used in Lazarus
Verbose: Assembling (pipe) /Developer/lazarus/units/i386-darwin/carbon/lazarus.s
lazarus.pp(138,42) Verbose: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
Verbose: make[2]: Leaving directory `/Developer/lazarus/ide’
Verbose: make[1]: Leaving directory `/Developer/lazarus/ide’
« Last Edit: September 21, 2015, 04:23:06 pm by MISV »
Logged
Logged
This is Xcode 7.0, right?
Logged
I assumed since xcode 7 has been installed (and I used command line tools before), but no… in App store I can download an update for command line tools.
However, even after a restart it did not make a difference
Build IDE: Exit code 2, Errors: 1, Hints: 5
Verbose: /Applications/Xcode.app/Contents/Developer/usr/bin/make -C ide idepkg
Verbose: make[1]: Entering directory `/Developer/lazarus/ide’
Verbose: /Applications/Xcode.app/Contents/Developer/usr/bin/make —assume-new=lazarus.pp lazarus OPT=’ @/Users/myname/.lazarus/idemake.cfg’
Verbose: make[2]: Entering directory `/Developer/lazarus/ide’
Verbose: /usr/local/bin/ppc386 -gl -vbqewnhi -Sci -dlclcarbon -Fu../designer -Fu../debugger -Fu../debugger/frames -Fu../converter -Fu../packager -Fu../packager/frames -Fu../components/custom -Fuframes -Fu. -Fu/usr/local/lib/fpc/2.6.4/units/i386-darwin/rtl -Fu/usr/local/lib/fpc/2.6.4/units/i386-darwin/paszlib -Fu/usr/local/lib/fpc/2.6.4/units/i386-darwin/fcl-process -Fu/usr/local/lib/fpc/2.6.4/units/i386-darwin/hash -Fu/usr/local/lib/fpc/2.6.4/units/i386-darwin/fpmkunit -Fu/usr/local/lib/fpc/2.6.4/units/i386-darwin/regexpr -Fiinclude -Fiinclude/darwin -Fi../images -FE.. -FU../units/i386-darwin/carbon @/Users/myname/.lazarus/idemake.cfg -di386 lazarus.pp
Hint: Start of reading config file /etc/fpc.cfg
Hint: End of reading config file /etc/fpc.cfg
Hint: Start of reading config file /Users/myname/.lazarus/idemake.cfg
Hint: End of reading config file /Users/myname/.lazarus/idemake.cfg
Verbose: Free Pascal Compiler version 2.6.4 [2014/02/26] for i386
Verbose: Copyright (c) 1993-2014 by Florian Klaempfl and others
Verbose: Target OS: Darwin for i386
Verbose: Compiling lazarus.pp
Verbose: [lazarus] Error 1
Verbose: [idepkg] Error 2
lazarus.pp(41,3) Hint: Unit «redirect_stderr» not used in Lazarus
Verbose: Assembling (pipe) /Developer/lazarus/units/i386-darwin/carbon/lazarus.s
lazarus.pp(138,42) Verbose: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
Verbose: make[2]: Leaving directory `/Developer/lazarus/ide’
Verbose: make[1]: Leaving directory `/Developer/lazarus/ide’
« Last Edit: September 22, 2015, 01:23:00 pm by MISV »
Logged
What happens if you compile a program on the command line? I.e., create a file called hello.pas with just this in it:
begin
writeln('hello');
end.
Then open a terminal window, go in the directory with that file and type «fpc hello». If that gives a similar uninformative error message, try executing «fpc -a -s hello» (this tells the compiler to create a script that calls the assembler, instead of calling it directly from the compiler) and next execute «./ppas.sh» (that’s the generated script).
Logged
Looks potentially interesting with the 10.4 and 10.10 versions? Anyhow, here’s the log:
fpc hello.pas
Free Pascal Compiler version 2.6.4 [2014/02/26] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Darwin for i386
Compiling hello.pas
Assembling (pipe) hello.s
Linking hello
ld: warning: object file (hello.o) was built for newer OSX version (10.10) than being linked (10.4)
2 lines compiled, 2.2 sec
MSRDMACLAP:temp thomasschulz$ fpc -a -s hello
Free Pascal Compiler version 2.6.4 [2014/02/26] for i386
Copyright (c) 1993-2014 by Florian Klaempfl and others
Target OS: Darwin for i386
Compiling hello.pas
Closing script ppas.sh
2 lines compiled, 0.0 sec
I am open for any suggestion… reinstalling everything ?. I just want to be able to build the IDE again
« Last Edit: September 22, 2015, 01:36:01 pm by MISV »
Logged
That shows that the compiler can invoke the assembler fine when executed on the command line. Maybe you can try adding the -vtx command line option to your Lazarus project setting, then the compiler will print more information about the files it searches and execute.
Logged
So far, it might be an issue a new feature with new bin utils not supporting stabs any more.
Others are claiming that they’re able to build a project from command line (by copying Lazarus generated command-line and running it manually).
ugh… these three topics should be merged
« Last Edit: September 22, 2015, 02:04:39 pm by skalogryz »
Logged
So far, it might be an issue a new feature with new bin utils not supporting stabs any more.
Ok, changing the default debug format from Stabs to DWARF2 for Darwin/i386 should be no problem before FPC 3.0 is released.
Logged
Ok, changing the default debug format from Stabs to DWARF2 for Darwin/i386 should be no problem before FPC 3.0 is released.
Why Darwin/i386? or did you mean Darwin (any CPU)?
Logged
Ok, changing the default debug format from Stabs to DWARF2 for Darwin/i386 should be no problem before FPC 3.0 is released.
Why Darwin/i386? or did you mean Darwin (any CPU)?
Right now, the only Darwin platforms that use Stabs by default are i386 and PowerPC (32 bit). The new binutils don’t support PowerPC at all (I think Xcode 3.2.5 was the last one with PowerPC support), so it doesn’t matter if that one keeps using Stabs.
Logged
ah. I should’ve known this.
Logged
Модератор: Модераторы
как принудительно предотвратить загрузку dll (ExitCode := 1)
Добрый день.
На delphi прекрасно работает такой код
begin
DLLProc := @DLLMain;
DLLMain(DLL_PROCESS_ATTACH);
end.
……………………………………….
procedure DLLMain(Reason: DWORD);
begin
Case Reason Of
DLL_PROCESS_ATTACH :
begin // DLL_PROCESS_ATTACH
// if ….. then // какое-то условие
ExitCode := 1; //dll не будет загружаться
end; // DLL_PROCESS_ATTACH
End; //case
end;
В Free Pascal (использую 2.5.1)
ExitCode := 1 не работает
begin
DLLMain(DLL_PROCESS_ATTACH);
end.
………………………………………..
procedure DLLMain(Reason: DWORD);
begin
Case Reason Of
DLL_PROCESS_ATTACH :
begin // DLL_PROCESS_ATTACH
// if ….. then // какое-то условие
ExitCode := 1; //dll не будет загружаться
end; // DLL_PROCESS_ATTACH
End; //case
end;
Такое ощущение что ExitCode не используется при загрузке dll.
Как быть в подобной ситуации?
- vic_75
- незнакомец
- Сообщения: 2
- Зарегистрирован: 29.08.2010 14:55:33
Re: как принудительно предотвратить загрузку dll (ExitCode := 1)
А.Н. » 29.08.2010 21:06:16
begin
DLLProc := @DLLMain;
DLLMain(DLL_PROCESS_ATTACH);
end.
Не понял я где это. В DLL?
Такое ощущение что ExitCode не используется при загрузке dll.
Как быть в подобной ситуации?
1. Забыть про DllMain. Это дерьмовая штука.
2. Использовать для инициализации DLL отдельную функцию.
- А.Н.
- постоялец
- Сообщения: 230
- Зарегистрирован: 13.03.2010 12:23:58
Re: как принудительно предотвратить загрузку dll (ExitCode := 1)
vic_75 » 31.08.2010 14:22:53
Да уж…. Ответ А.Н. информативен до безобразия…..
Вообщем ничего лучшего как исправить родной system.pp (точнее syswin.inc)
и перекомпилировать RTL я не нашел.
- vic_75
- незнакомец
- Сообщения: 2
- Зарегистрирован: 29.08.2010 14:55:33
Re: как принудительно предотвратить загрузку dll (ExitCode := 1)
А.Н. » 01.09.2010 14:04:40
Ну, про DllMain много написано. Что уж тут ещё приписать-то? Лучше забыть про неё, по-моему.
Хм… Каждый раз, при обновлении среды, исправлять и перекомпилировать?
- А.Н.
- постоялец
- Сообщения: 230
- Зарегистрирован: 13.03.2010 12:23:58
Вернуться в Lazarus
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 10