Czy to błąd, który próbuje skompilować ten kod powoduje zakończenie pracy IDE lub nie działa kompilator?

Question

Uwaga na użycie polecenia Exit w funkcjach inline! Używam tutaj Delphi XE3.

Objaw

W pewnych okolicznościach, kiedy wykonywane jest połączenie do funkcji inline, który zawiera polecenie Exit i wartość powrót funkcji inline służy bezpośrednio w WriteLn(), kompilator zgłasza błąd wiadomość,

"dcc" exited with code 1.

lub nawet najgorsze, IDE Delphi kończy się bez potwierdzenia.

function ProcessNumber(const iNumber: Integer): Boolean; inline; 
begin 
    if iNumber = 0 then begin 
    Result := False; 
    Exit; 
    end; 
    // some code here ... 
    Result := True; 
end; 

procedure Test; 
begin 
    writeln(ProcessNumber(0)); 
end; 

begin 
    Test; 
    ReadLn; 
end. 

Jeśli jednak wartość powrotu funkcji liniowego jest przechowywany w zmiennej, a następnie jest wykorzystywana w WriteLn() problem nie występuje.

procedure Test; 
var 
    b: Boolean; 
begin 
    b := ProcessNumber(0); 
    writeln(b); 
end; 

Pytania

1. Jest to błąd kompilatora?
2. Jeśli to błąd, czy istnieje sposób na bezpieczne wyjście z funkcji wstawiania?

Answer 1

To z pewnością błąd. Występuje we wszystkich testowanych przeze mnie wersjach IDE, XE3, XE7 i XE8. Szczerze mówiąc, nie sądzę, że można zrobić wiele. Dla mnie IDE kończy się kompilacją za każdym razem. Myślę, że będziesz musiał napisać kod w sposób, który nie doprowadzi do awarii IDE.

Możesz użyć opcji IDE, która zmusza kompilację do użycia msbuild. W ten sposób kompilacja jest oddzielnym procesem, co gwarantuje, że środowisko IDE nie ulegnie awarii. Nic ci to jednak nie pomoże, ponieważ chociaż twoje IDE nie umrze, nadal nie będziesz w stanie skompilować swojego programu!

Kiedy budować z msbuild, masz błąd w tej formie:

error F2084: Internal Error: GPFC00000FD-004D3F34-0

GPF stoi General Protection Fault, że jest to naruszenie dostępu do pamięci. Prawdopodobnie jest to nieobsługiwany wyjątek, który zabija IDE podczas wykonywania kompilacji.

Moja rada jest taka, że ​​przesyłasz zgłoszenie błędu do Quality Portal. Jest to jedyny sposób na naprawienie defektu. Chociaż nie oczekuj, że kiedykolwiek dojdzie do rozwiązania problemu XE3.

Answer 2

Jednym z obejść, którego można użyć tutaj, jest odwrócenie warunkowej implementacji, a tym samym unikanie użycia polecenia Zakończ.

Więc zamiast korzystania

function ProcessNumber(const iNumber: Integer): Boolean; inline; 
begin 
    if iNumber = 0 then begin 
    Result := False; 
    Exit; 
    end; 
    // some code here ... 
    Result := True; 
end; 

użycie

function ProcessNumber(const iNumber: Integer): Boolean; inline; 
begin 
    if iNumber <> 0 then begin 
    // some code here 
    Result := True; 
    end; 
    else 
    Result := False; 
    //No exit needed here as this is already at the end of your method 
end;