Внутренняя ошибка компилятора паскаль

0 / 0 / 0

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

Сообщений: 9

1

Внутренняя ошибка компилятора

06.04.2016, 18:14. Показов 2084. Ответов 2

Студворк — интернет-сервис помощи студентам

Вся проблема, похоже, кроется в процедуре Kill (файл Randoms.pas), т.к. до неё проблем не наблюдалось. Я пробовал её переименовывать, но не помогло.
Проект:
Evolution.pas

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

uses Arrange, Randoms;
const
///Число существ в одном поколении
n=1000;
///Мера случайности популяции
PopulationRandomness=2147483646.0; //обязательно оставляйте .0, иначе ничего не будет работать!
///Коэффицент существ, умирающих во время смены поколений
PopulationMortalityMult=0.5;
var 
///Массив, в который сохраняется текущее поколение
k : array of double;
Begin
SetLength(k,n+1);
writeln('Первые ',n,' существ: ');
for var i:=1 to n do 
begin
k[i]:=random(-PopulationRandomness.Trunc,PopulationRandomness.Trunc)/PopulationRandomness; //для генерирования вещественных чисел
end;
Sort(k,n);
Kill(n*PopulationMortalityMult,k);
foreach l : double in k do if l<>0 then write(l,' ');
end.

Arrange.pas:

Pascal 
1
2
3
4
5
6
7
8
9
10
11

unit Arrange;
///Сортирует массив из n элементов в порядке невозростания
procedure Sort(k : array of double; n : uint64);
begin
for var i:=1 to n-1 do
begin
for var j:=1 to n-i do
  if k[j]<k[j+1] then swap(k[j],k[j+1]);
end;
end;
end.

Randoms.pas:

Pascal 
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

unit Randoms;
///Выводит истину, если случайный шанс сработал
function RandomProb(chance : real; prec : real) : boolean;
begin
if random(1,prec.Trunc)/prec<chance then Result:=True else Result:=False;
end;
///Выводит истину, если случайный шанс в процентах сработал
function RandomPercentage(chance : real; prec : real) : boolean;
begin
if random(1,prec.Trunc)/prec<0.01*chance then Result:=True else Result:=False;
end;
///Убивает amm членов популяции
procedure Kill(amm : real; k: array of double);
begin
var z : uint64;
var j:=amm.Trunc;
for var i:=1 to j do
begin
if z=j then break;
if RandomProb(i/500,1048576) then 
    begin
    k[i]:=0;
    z+=1;
    end;
    end;
end;
end.

Внутренняя ошибка компилятора в модуле [pabcnetc.exe] :’System.Exception: System.ArgumentNullException: Значение не может быть неопределенным.
Имя параметра: key
в System.Collections.Generic.Dictionary`2.FindEntry(TKey key)
в System.Collections.Generic.Dictionary`2.ContainsKey(TKey key)
в PascalABCCompiler.NETGenerator.ILConverter.ConvertFromTree(IProgramNode p, String TargetFileName, String SourceFileName, CompilerOptions options, String[] ResourceFiles)
в PascalABCCompiler.Compiler.Compile()’
//Здесь вы можете добавить свой комментарий

06.04.2016 20:08:47
PascalABCCompiler.Core v3.1.0.1211 (31.03.2016), debug version
Runtime version: 4.0.30319.42000
OS version: Microsoft Windows NT 6.1.7601 Service Pack 1
Processor count: 8
WorkingSet: 95216 kb
StatesList:
BeginCompileFile Evolution.pas
BeginParsingFile Evolution.pas
EndParsingFile Evolution.pas
ReadDLL System.dll
ReadPCUFile PABCSystem.pcu
ReadDLL mscorlib.dll
ReadDLL System.Core.dll
ReadDLL System.Numerics.dll
ReadPCUFile __RedirectIOMode.pcu
ReadDLL System.Windows.Forms.dll
ReadPCUFile Randoms.pcu
ReadPCUFile Arrange.pcu
CompileInterface Evolution.pas
EndCompileFile Evolution.pas
SemanticTreeConversion Optimizer
CodeGeneration Evolution.exe
CompilationFinished Evolution.pas
Ready

Error[0]: Внутренняя ошибка компилятора в модуле [pabcnetc.exe] :’System.Exception: System.ArgumentNullException: Значение не может быть неопределенным.
Имя параметра: key
в System.Collections.Generic.Dictionary`2.FindEntry(TKey key)
в System.Collections.Generic.Dictionary`2.ContainsKey(TKey key)
в PascalABCCompiler.NETGenerator.ILConverter.ConvertFromTree(IProgramNode p, String TargetFileName, String SourceFileName, CompilerOptions options, String[] ResourceFiles)
в PascalABCCompiler.Compiler.Compile()’



0



Источник

Почему не компилируется нормально следующая программа?

uses LinkedList;
begin
  var L := new TLinkedList<integer>();
end.

, где LinkedList:

///Классы связных списков.
unit LinkedList;

type
  ///Узел односвязного списка.
  TListNode<TValue> = class
  private 
    _Value: TValue;
    _Next: TListNode<TValue>;
  public 
    ///Значение узла.
    property Value: TValue read _Value write _Value;
    ///Ссылка на следующий элемент.
    property Next: TListNode<TValue> read _Next write _Next;

    constructor(v: TValue);
    begin
      Value := v;
      Next := nil;
    end;

    ///Вернуть строковое представление объекта.
    function ToString(): string; override;
    begin
      Result := Format('{0}<{1}>: Value = {2}', GetType().Name, Value.GetType().Name, Value);
    end;

    ///Вывести на экран объект, преобразованный к строковому представлению.
    procedure Print() := Write(ToString());

    ///Вывести на экран объект, преобразованный к строковому представлению и перейти на новую строку.
    procedure Println() := Writeln(ToString());
  end;

  ///Класс узла двусвязного списка.
  TListNodeDC<TValue>=class(TListNode<TValue>)
  private 
    _Previous: TListNodeDC<TValue>;
  public 
    ///Ссылка на предыдущий элемент списка.
    property Previous: TListNodeDC<TValue> read _Previous write _Previous;

    constructor(v: TValue);
    begin
      inherited Create();
      Previous := nil;
    end;
  end;

///Создает новый узел односвязного списка.
function NewNode<TValue>(v: TValue) := new TListNode<TValue>(v);

///Создает новый узел односвязного списка.
function NewNode<TValue>(v: TValue; nxt: TListNode<TValue>): TListNode<TValue>;
begin
  Result := NewNode(v);
  Result.Next := nxt;
end;

///Создает новый узел двусвязного списка.
function NewNodeDC<TValue>(v: TValue) := new TListNodeDC<TValue>(v);

///Создает новый узел односвязного списка.
function NewNodeDC<TValue>(v: TValue; nxt, prev: TListNodeDC<TValue>): TListNodeDC<TValue>;
begin
  Result := NewNodeDC(v);
  Result.Next := nxt;
  Result.Previous := prev;
end;


type
  ///Класс односвязного списка.
  TLinkedList<TValue> = class
  private 
    _Head: TListNode<TValue>;
    _Count: integer;
  public 
    ///Головной узел списка.
    property Head: TListNode<TValue> read _Head;
    ///Количество элементов списка.
    property Count: integer read _Count;

    constructor();
    begin
      _Head := new TListNode<TValue>();
    end;

    ///Вернуть строковое представление объекта.
    function ToString(s: string): string;
    begin
      var n := Head;
      while n <> nil do
      begin
        if n.Next <> nil then
          Result += Format('[{0}]{1}', n.ToString(), s)
        else
          Result += Format('[{0}]', n.ToString());
        n := n.Next;
      end;
    end;

    ///Вывести на экран объект, преобразованный к строковому представлению.
    procedure Print() := Write(ToString(NewLine));

    ///Вывести на экран объект, преобразованный к строковому представлению и перейти на новую строку.
    procedure Println() := Writeln(ToString(NewLine));

    ///Процедура добавления в начало списка.
    procedure Add(var node: TListNode<TValue>);
    begin
      node.Next := Head;
      _Head := node;
      Inc(_Count);
    end;

    ///Процедура удаления из начала списка.
    procedure Remove();
    begin
      if Head <> nil then
      begin
        _Head := _Head.Next;
        Dec(_Count);
      end;
    end;
  end;
end.

При попытке компиляции программы вылетает:

Внутренняя ошибка компилятора в модуле [pabcnetc.exe] :'System.Exception: System.NullReferenceException: Ссылка на объект не указывает на экземпляр объекта.
   в PascalABCCompiler.NETGenerator.ILConverter.ConvertCommonGenericInstanceTypeMembers(ICommonGenericTypeInstance value)
   в PascalABCCompiler.NETGenerator.ILConverter.ConvertTypeInstancesMembersInFunction(ICommonFunctionNode func)
   в PascalABCCompiler.NETGenerator.ILConverter.ConvertFunctionHeaders(ICommonNamespaceFunctionNode[] funcs)
   в PascalABCCompiler.NETGenerator.ILConverter.ConvertFromTree(IProgramNode p, String TargetFileName, String SourceFileName, CompilerOptions options, String[] ResourceFiles)
   в PascalABCCompiler.Compiler.Compile()'

Источник

Ошибка возникает когда в ветке if false переменная цикла for используется в лямбде:

begin
  if false then
    for var i := 1 to 1 do
    begin
      var p: procedure := ()->
      begin
        var i2 := i;
      end;
    end;
end.

() : Внутренняя ошибка компилятора в модуле [pabcnetc.exe] :'System.Exception: System.ArgumentOutOfRangeException: Индекс за пределами диапазона. Индекс должен быть положительным числом, а его размер не должен превышать размер коллекции.
Имя параметра: index
   в System.ThrowHelper.ThrowArgumentOutOfRangeException(ExceptionArgument argument, ExceptionResource resource)
   в System.Collections.Generic.List`1.InsertRange(Int32 index, IEnumerable`1 collection)
   в TreeConverter.LambdaExpressions.Closure.CapturedVariablesSubstitutor.SubstituteForLoopVariables()
   в TreeConverter.LambdaExpressions.Closure.CapturedVariablesSubstitutor.Substitute(statement_list statementList)
   в TreeConverter.LambdaExpressions.Closure.CapturedVariablesSubstitutionsManager.Substitute(syntax_tree_visitor _visitor, declarations decls, statement_list _statementList)
   в PascalABCCompiler.TreeConverter.syntax_tree_visitor.visit(block _block)
   в PascalABCCompiler.TreeConverter.syntax_tree_visitor.visit(program_module _program_module)
   в PascalABCCompiler.TreeConverter.SyntaxTreeToSemanticTreeConverter.CompileInterface(compilation_unit SyntaxUnit, unit_node_list UsedUnits, List`1 ErrorsList, List`1 WarningsList, SyntaxError parser_error, Hashtable bad_nodes, using_namespace_list namespaces, Dictionary`2 docs, Boolean debug, Boolean debugging)
   в PascalABCCompiler.Compiler.CompileUnit(unit_node_list Units, unit_or_namespace SyntaxUsesUnit)
   в PascalABCCompiler.Compiler.Compile()'
Источник

Форум мехмата ЮФУ

Загрузка…

Источник

Ошибка возникает когда в ветке if false переменная цикла for используется в лямбде:

begin
  if false then
    for var i := 1 to 1 do
    begin
      var p: procedure := ()->
      begin
        var i2 := i;
      end;
    end;
end.

() : Внутренняя ошибка компилятора в модуле [pabcnetc.exe] :'System.Exception: System.ArgumentOutOfRangeException: Индекс за пределами диапазона. Индекс должен быть положительным числом, а его размер не должен превышать размер коллекции.
Имя параметра: index
   в System.ThrowHelper.ThrowArgumentOutOfRangeException(ExceptionArgument argument, ExceptionResource resource)
   в System.Collections.Generic.List`1.InsertRange(Int32 index, IEnumerable`1 collection)
   в TreeConverter.LambdaExpressions.Closure.CapturedVariablesSubstitutor.SubstituteForLoopVariables()
   в TreeConverter.LambdaExpressions.Closure.CapturedVariablesSubstitutor.Substitute(statement_list statementList)
   в TreeConverter.LambdaExpressions.Closure.CapturedVariablesSubstitutionsManager.Substitute(syntax_tree_visitor _visitor, declarations decls, statement_list _statementList)
   в PascalABCCompiler.TreeConverter.syntax_tree_visitor.visit(block _block)
   в PascalABCCompiler.TreeConverter.syntax_tree_visitor.visit(program_module _program_module)
   в PascalABCCompiler.TreeConverter.SyntaxTreeToSemanticTreeConverter.CompileInterface(compilation_unit SyntaxUnit, unit_node_list UsedUnits, List`1 ErrorsList, List`1 WarningsList, SyntaxError parser_error, Hashtable bad_nodes, using_namespace_list namespaces, Dictionary`2 docs, Boolean debug, Boolean debugging)
   в PascalABCCompiler.Compiler.CompileUnit(unit_node_list Units, unit_or_namespace SyntaxUsesUnit)
   в PascalABCCompiler.Compiler.Compile()'

0 / 0 / 0

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

Сообщений: 9

1

Внутренняя ошибка компилятора

06.04.2016, 18:14. Показов 1966. Ответов 2

Вся проблема, похоже, кроется в процедуре Kill (файл Randoms.pas), т.к. до неё проблем не наблюдалось. Я пробовал её переименовывать, но не помогло.
Проект:
Evolution.pas

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

uses Arrange, Randoms;
const
///Число существ в одном поколении
n=1000;
///Мера случайности популяции
PopulationRandomness=2147483646.0; //обязательно оставляйте .0, иначе ничего не будет работать!
///Коэффицент существ, умирающих во время смены поколений
PopulationMortalityMult=0.5;
var 
///Массив, в который сохраняется текущее поколение
k : array of double;
Begin
SetLength(k,n+1);
writeln('Первые ',n,' существ: ');
for var i:=1 to n do 
begin
k[i]:=random(-PopulationRandomness.Trunc,PopulationRandomness.Trunc)/PopulationRandomness; //для генерирования вещественных чисел
end;
Sort(k,n);
Kill(n*PopulationMortalityMult,k);
foreach l : double in k do if l<>0 then write(l,' ');
end.

Arrange.pas:

Pascal 
1
2
3
4
5
6
7
8
9
10
11

unit Arrange;
///Сортирует массив из n элементов в порядке невозростания
procedure Sort(k : array of double; n : uint64);
begin
for var i:=1 to n-1 do
begin
for var j:=1 to n-i do
  if k[j]<k[j+1] then swap(k[j],k[j+1]);
end;
end;
end.

Randoms.pas:

Pascal 
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

unit Randoms;
///Выводит истину, если случайный шанс сработал
function RandomProb(chance : real; prec : real) : boolean;
begin
if random(1,prec.Trunc)/prec<chance then Result:=True else Result:=False;
end;
///Выводит истину, если случайный шанс в процентах сработал
function RandomPercentage(chance : real; prec : real) : boolean;
begin
if random(1,prec.Trunc)/prec<0.01*chance then Result:=True else Result:=False;
end;
///Убивает amm членов популяции
procedure Kill(amm : real; k: array of double);
begin
var z : uint64;
var j:=amm.Trunc;
for var i:=1 to j do
begin
if z=j then break;
if RandomProb(i/500,1048576) then 
    begin
    k[i]:=0;
    z+=1;
    end;
    end;
end;
end.

Внутренняя ошибка компилятора в модуле [pabcnetc.exe] :’System.Exception: System.ArgumentNullException: Значение не может быть неопределенным.
Имя параметра: key
в System.Collections.Generic.Dictionary`2.FindEntry( TKey key)
в System.Collections.Generic.Dictionary`2.ContainsKe y(TKey key)
в PascalABCCompiler.NETGenerator.ILConverter.Convert FromTree(IProgramNode p, String TargetFileName, String SourceFileName, CompilerOptions options, String[] ResourceFiles)
в PascalABCCompiler.Compiler.Compile()’
//Здесь вы можете добавить свой комментарий

06.04.2016 20:08:47
PascalABCCompiler.Core v3.1.0.1211 (31.03.2016), debug version
Runtime version: 4.0.30319.42000
OS version: Microsoft Windows NT 6.1.7601 Service Pack 1
Processor count: 8
WorkingSet: 95216 kb
StatesList:
BeginCompileFile Evolution.pas
BeginParsingFile Evolution.pas
EndParsingFile Evolution.pas
ReadDLL System.dll
ReadPCUFile PABCSystem.pcu
ReadDLL mscorlib.dll
ReadDLL System.Core.dll
ReadDLL System.Numerics.dll
ReadPCUFile __RedirectIOMode.pcu
ReadDLL System.Windows.Forms.dll
ReadPCUFile Randoms.pcu
ReadPCUFile Arrange.pcu
CompileInterface Evolution.pas
EndCompileFile Evolution.pas
SemanticTreeConversion Optimizer
CodeGeneration Evolution.exe
CompilationFinished Evolution.pas
Ready

Error[0]: Внутренняя ошибка компилятора в модуле [pabcnetc.exe] :’System.Exception: System.ArgumentNullException: Значение не может быть неопределенным.
Имя параметра: key
в System.Collections.Generic.Dictionary`2.FindEntry( TKey key)
в System.Collections.Generic.Dictionary`2.ContainsKe y(TKey key)
в PascalABCCompiler.NETGenerator.ILConverter.Convert FromTree(IProgramNode p, String TargetFileName, String SourceFileName, CompilerOptions options, String[] ResourceFiles)
в PascalABCCompiler.Compiler.Compile()’

__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь

0

Почему не компилируется нормально следующая программа?

uses LinkedList;
begin
  var L := new TLinkedList<integer>();
end.

, где LinkedList:

///Классы связных списков.
unit LinkedList;

type
  ///Узел односвязного списка.
  TListNode<TValue> = class
  private 
    _Value: TValue;
    _Next: TListNode<TValue>;
  public 
    ///Значение узла.
    property Value: TValue read _Value write _Value;
    ///Ссылка на следующий элемент.
    property Next: TListNode<TValue> read _Next write _Next;

    constructor(v: TValue);
    begin
      Value := v;
      Next := nil;
    end;

    ///Вернуть строковое представление объекта.
    function ToString(): string; override;
    begin
      Result := Format('{0}<{1}>: Value = {2}', GetType().Name, Value.GetType().Name, Value);
    end;

    ///Вывести на экран объект, преобразованный к строковому представлению.
    procedure Print() := Write(ToString());

    ///Вывести на экран объект, преобразованный к строковому представлению и перейти на новую строку.
    procedure Println() := Writeln(ToString());
  end;

  ///Класс узла двусвязного списка.
  TListNodeDC<TValue>=class(TListNode<TValue>)
  private 
    _Previous: TListNodeDC<TValue>;
  public 
    ///Ссылка на предыдущий элемент списка.
    property Previous: TListNodeDC<TValue> read _Previous write _Previous;

    constructor(v: TValue);
    begin
      inherited Create();
      Previous := nil;
    end;
  end;

///Создает новый узел односвязного списка.
function NewNode<TValue>(v: TValue) := new TListNode<TValue>(v);

///Создает новый узел односвязного списка.
function NewNode<TValue>(v: TValue; nxt: TListNode<TValue>): TListNode<TValue>;
begin
  Result := NewNode(v);
  Result.Next := nxt;
end;

///Создает новый узел двусвязного списка.
function NewNodeDC<TValue>(v: TValue) := new TListNodeDC<TValue>(v);

///Создает новый узел односвязного списка.
function NewNodeDC<TValue>(v: TValue; nxt, prev: TListNodeDC<TValue>): TListNodeDC<TValue>;
begin
  Result := NewNodeDC(v);
  Result.Next := nxt;
  Result.Previous := prev;
end;


type
  ///Класс односвязного списка.
  TLinkedList<TValue> = class
  private 
    _Head: TListNode<TValue>;
    _Count: integer;
  public 
    ///Головной узел списка.
    property Head: TListNode<TValue> read _Head;
    ///Количество элементов списка.
    property Count: integer read _Count;

    constructor();
    begin
      _Head := new TListNode<TValue>();
    end;

    ///Вернуть строковое представление объекта.
    function ToString(s: string): string;
    begin
      var n := Head;
      while n <> nil do
      begin
        if n.Next <> nil then
          Result += Format('[{0}]{1}', n.ToString(), s)
        else
          Result += Format('[{0}]', n.ToString());
        n := n.Next;
      end;
    end;

    ///Вывести на экран объект, преобразованный к строковому представлению.
    procedure Print() := Write(ToString(NewLine));

    ///Вывести на экран объект, преобразованный к строковому представлению и перейти на новую строку.
    procedure Println() := Writeln(ToString(NewLine));

    ///Процедура добавления в начало списка.
    procedure Add(var node: TListNode<TValue>);
    begin
      node.Next := Head;
      _Head := node;
      Inc(_Count);
    end;

    ///Процедура удаления из начала списка.
    procedure Remove();
    begin
      if Head <> nil then
      begin
        _Head := _Head.Next;
        Dec(_Count);
      end;
    end;
  end;
end.

При попытке компиляции программы вылетает:

Внутренняя ошибка компилятора в модуле [pabcnetc.exe] :'System.Exception: System.NullReferenceException: Ссылка на объект не указывает на экземпляр объекта.
   в PascalABCCompiler.NETGenerator.ILConverter.ConvertCommonGenericInstanceTypeMembers(ICommonGenericTypeInstance value)
   в PascalABCCompiler.NETGenerator.ILConverter.ConvertTypeInstancesMembersInFunction(ICommonFunctionNode func)
   в PascalABCCompiler.NETGenerator.ILConverter.ConvertFunctionHeaders(ICommonNamespaceFunctionNode[] funcs)
   в PascalABCCompiler.NETGenerator.ILConverter.ConvertFromTree(IProgramNode p, String TargetFileName, String SourceFileName, CompilerOptions options, String[] ResourceFiles)
   в PascalABCCompiler.Compiler.Compile()'

Содержание

  1. Неустранимая ошибка C1001
  2. Fatal Error C1001
  3. Fatal error c1001 внутренняя ошибка компилятора
  4. Asked by:
  5. Question
  6. визуальная фатальная ошибка C1001: в компиляторе произошла внутренняя ошибка
  7. Решение
  8. Другие решения
  9. Fatal error c1001 внутренняя ошибка компилятора
  10. Asked by:
  11. Question

Неустранимая ошибка C1001

ВНУТРЕННЯЯ ОШИБКА КОМПИЛЯТОРА ( файл компилятора, номер строки)

Компилятор не может создать правильный код для конструкции, часто из-за сочетания определенного выражения и параметра оптимизации или проблемы при анализе. Если указанный файл компилятора содержит сегмент пути в формате UTC или C2, вероятно, это ошибка оптимизации. Если файл содержит сегмент пути cxxfe или c1xx или msc1.cpp, вероятно, это ошибка средства синтаксического анализа. Если файл с именем cl.exe, другие сведения отсутствуют.

Часто можно устранить проблему оптимизации, удалив один или несколько вариантов оптимизации. Чтобы определить, какой вариант неисправен, удаляйте параметры по одному и перекомпилируйте, пока сообщение об ошибке не исчезнет. Чаще всего отвечают параметры /Og (глобальная оптимизация) и /Oi (создание встроенных функций). Определив, какой вариант оптимизации отвечает, вы можете отключить его вокруг функции, в которой возникает ошибка, с помощью директивы optimize pragma и продолжить использовать параметр для остальной части модуля. Дополнительные сведения о параметрах оптимизации см. в разделе Рекомендации по оптимизации.

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

Дополнительные сведения о том, как изолировать источник ошибки и как сообщить о внутренней ошибке компилятора в корпорацию Майкрософт, см. в статье Как сообщить о проблеме с набором инструментов Visual C++.

Источник

Fatal Error C1001

INTERNAL COMPILER ERROR(compiler file file, line number)

The compiler cannot generate correct code for a construct, often due to the combination of a particular expression and an optimization option, or an issue in parsing. If the compiler file listed has a utc or C2 path segment, it is probably an optimization error. If the file has a cxxfe or c1xx path segment, or is msc1.cpp, it is probably a parser error. If the file named is cl.exe, there is no other information available.

You can often fix an optimization problem by removing one or more optimization options. To determine which option is at fault, remove options one at a time and recompile until the error message goes away. The options most commonly responsible are /Og (Global optimizations) and /Oi (Generate Intrinsic Functions). Once you determine which optimization option is responsible, you can disable it around the function where the error occurs by using the optimize pragma, and continue to use the option for the rest of the module. For more information about optimization options, see Optimization best practices.

If optimizations are not responsible for the error, try rewriting the line where the error is reported, or several lines of code surrounding that line. To see the code the way the compiler sees it after preprocessing, you can use the /P (Preprocess to a file) option.

For more information about how to isolate the source of the error and how to report an internal compiler error to Microsoft, see How to Report a Problem with the Visual C++ Toolset.

Источник

Fatal error c1001 внутренняя ошибка компилятора

This forum has migrated to Microsoft Q&A. Visit Microsoft Q&A to post new questions.

Asked by:

Question

I recently switched our product over to VS2010 from VS2008. Our solution consists of several native C++ projects and some managed C++ projects that link to those native projects.

The managed C++ projects are compiled with the /clr flag, of course. However, when compiling for x64, one of the files that includes one of the boost mutex headers causes the compiler to spit out the following error:

boost_1_43_0_sdkincludeboostthreadwin32basic_timed_mutex.hpp(158): fatal error C1001: An internal error has occurred in the compiler

I’ve traced down the problem to the following piece of code in basic_timed_mutex.hpp:

When compiling for x86, I see the following warning but everything still compiles:

4>boost_1_43_0_sdkincludeboostthreadwin32basic_timed_mutex.hpp(160): warning C4793: ‘boost::detail::basic_timed_mutex::unlock’ : function compiled as native :
4> Found an intrinsic not supported in managed code

It would see the BOOST_INTERLOCKED_EXCHANGE_ADD macro causes the compiler to barf. Does anybody have any ideas on why this is, or how to fix it?

Источник

визуальная фатальная ошибка C1001: в компиляторе произошла внутренняя ошибка

При компиляции на платформе x64 я получаю следующую ошибку:

Если я изменяю настройки на файл препроцессора (Да), я не получаю никакой ошибки.

О моей среде: обновление Microsoft Visual Studio 2005 до 2010

Решение

Я встречал эту ошибку много раз в VC ++. Сделайте следующие шаги. Они всегда помогали мне с этим вопросом:

  1. Посмотрите на точное местоположение, на которое указывает ошибка компилятора.
  2. Найдите любые внешние типы или классы, используемые там в этом месте.
  3. Измените порядок «include path» этих файлов, найденных на шаге 2, и перестройте решение.
  4. Надеюсь что поможет .

Другие решения

Я получаю ту же ошибку с VC2012. Настройка свойств проекта Оптимизация на Отключено (/ Od) решила проблему.

У меня была эта проблема с VS2015 при сборке локально в Windows.

Чтобы решить эту проблему, я удалил свою папку сборки (выходной каталог, как показано в разделе «Свойства / Общие») и перестроил проект.

Это всегда помогает, когда во время сборки происходят странные вещи.

В моем решении я удалил выходной файл dll проекта, и я сделал пересборка проекта.

Я столкнулся с той же ошибкой и потратил немало времени на поиски этой проблемы. Наконец, я обнаружил, что та функция, на которую указывает ошибка, имеет бесконечный цикл while. Исправлено, и ошибка исчезла.

В моем случае было использование статической лямбда-функции с QStringList аргумент. Если бы я прокомментировал регионы, где QStringList был использован файл, скомпилированный, иначе компилятор сообщил об ошибке C1001. Изменение лямбда-функции на нестатическое решило проблему (очевидно, другие варианты могли бы использовать глобальную функцию в анонимном пространстве имен или статический закрытый метод класса).

Я получил эту ошибку с помощью библиотеки повышения с VS2017. Очистка решения и восстановление его, решили проблему.

У меня также была эта проблема при обновлении с VS2008 до VS2010.

Чтобы исправить, я должен установить патч VS2008 (KB976656).

Источник

Fatal error c1001 внутренняя ошибка компилятора

This forum has migrated to Microsoft Q&A. Visit Microsoft Q&A to post new questions.

Asked by:

Question

I recently switched our product over to VS2010 from VS2008. Our solution consists of several native C++ projects and some managed C++ projects that link to those native projects.

The managed C++ projects are compiled with the /clr flag, of course. However, when compiling for x64, one of the files that includes one of the boost mutex headers causes the compiler to spit out the following error:

boost_1_43_0_sdkincludeboostthreadwin32basic_timed_mutex.hpp(158): fatal error C1001: An internal error has occurred in the compiler

I’ve traced down the problem to the following piece of code in basic_timed_mutex.hpp:

When compiling for x86, I see the following warning but everything still compiles:

4>boost_1_43_0_sdkincludeboostthreadwin32basic_timed_mutex.hpp(160): warning C4793: ‘boost::detail::basic_timed_mutex::unlock’ : function compiled as native :
4> Found an intrinsic not supported in managed code

It would see the BOOST_INTERLOCKED_EXCHANGE_ADD macro causes the compiler to barf. Does anybody have any ideas on why this is, or how to fix it?

Источник

Recommend Projects

  • React photo

    React

    A declarative, efficient, and flexible JavaScript library for building user interfaces.

  • Vue.js photo

    Vue.js

    🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.

  • Typescript photo

    Typescript

    TypeScript is a superset of JavaScript that compiles to clean JavaScript output.

  • TensorFlow photo

    TensorFlow

    An Open Source Machine Learning Framework for Everyone

  • Django photo

    Django

    The Web framework for perfectionists with deadlines.

  • Laravel photo

    Laravel

    A PHP framework for web artisans

  • D3 photo

    D3

    Bring data to life with SVG, Canvas and HTML. 📊📈🎉

Recommend Topics

  • javascript

    JavaScript (JS) is a lightweight interpreted programming language with first-class functions.

  • web

    Some thing interesting about web. New door for the world.

  • server

    A server is a program made to process requests and deliver data to clients.

  • Machine learning

    Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.

  • Visualization

    Some thing interesting about visualization, use data art

  • Game

    Some thing interesting about game, make everyone happy.

Recommend Org

  • Facebook photo

    Facebook

    We are working to build community through open source technology. NB: members must have two-factor auth.

  • Microsoft photo

    Microsoft

    Open source projects and samples from Microsoft.

  • Google photo

    Google

    Google ❤️ Open Source for everyone.

  • Alibaba photo

    Alibaba

    Alibaba Open Source for everyone

  • D3 photo

    D3

    Data-Driven Documents codes.

  • Tencent photo

    Tencent

    China tencent open source team.

СООБЩЕНИЯ КОМПИЛЯТОРА ОБ ОШИБКАХ

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
 
Пользователь прервал исполнение программы

Источник

Возможно, вам также будет интересно:

  • Внутренняя ошибка компилятора c clr
  • Внутренняя ошибка код ошибки 106
  • Внутренняя ошибка код ошибки 0xe2003053 дальнобойщики 3 виндовс 10
  • Внутренняя ошибка код ошибки 0xe2003053 винкс
  • Внутренняя ошибка код ошибки 0xe2003053 postal 3

    • Понравилась статья? Поделить с друзьями:
    0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии