## Summary When trying to build Lazarus 2.2.6 on a Sparc64 machine, we get internal error 200408203. This seems to be caused by a parameter which type is an empty record. ## System Information - **Operating system:** Debian Linux (Bookworm, Bullseye) - **Processor architecture:** Sparc64 - **Compiler version:** 3.2.2+dfsg-20 - **Device:** Spar64 station, Virtual machine ## Steps to reproduce Try to compile Lazarus or at least lazutils: ``` /usr/bin/make -C components/lazutils ... /usr/bin/ppcsparc64 -MObjFPC -Scghi -O1 -g -gl -l -vewnhibq -Fu../../packager/units/sparc64-linux -Fu. -Fu/usr/lib/sparc64-linux-gnu/fpc/3.2.2/units/sparc64-linux/rtl -FE. -FUlib/sparc64-linux @/<<PKGBUILDDIR>>/debian/deb-host-fpc.cfg -dsparc64 lazutils.pas ``` ## Example Project No sure it is possible to reproduce with smaller project. However I have done some investigation that are exposed below. ## What is the current bug behavior? Compilation log: ``` (9009) Assembling lazlogger (3104) Compiling lazloggerdummy.pas /<<PKGBUILDDIR>>/components/lazutils/LazLoggerImpl.inc(11,3) Note: (6058) Call to subroutine "function GetDebugLogger:TLazLogger;" marked as inline is not inlined /<<PKGBUILDDIR>>/components/lazutils/LazLoggerImpl.inc(156,1) Fatal: Internal error 200408203 Fatal: (1018) Compilation aborted ``` ## What is the expected (correct) behavior? Compilation should not stop and should produce a valid executable like on other supported targets. ## Relevant logs and/or screenshots Full logs are available on https://buildd.debian.org/status/fetch.php?pkg=lazarus&arch=sparc64&ver=2.2.6%2Bdfsg2-1&stamp=1682868740&raw=0 The investigation show that the issue happens when parameter of a function has no location. The internal error is triggered at `ncgutil.pas:720 ```pascal procedure gen_load_cgpara_loc(list: TAsmList; vardef: tdef; const para: TCGPara; var destloc: tlocation; reusepara: boolean); ... begin paraloc:=para.location; if not assigned(paraloc) then internalerror(200408203); // <========== This is the line 720 { skip e.g. empty records } if (paraloc^.loc = LOC_VOID) then exit; case destloc.loc of ``` This error is triggered by `LazLoggerImpl.inc:156` when included by `lazloggerdummy.pas` The code that triggers the error is: ```pascal procedure DebuglnStack(LogEnabled: TLazLoggerLogEnabled; const s: string); begin {$IFnDEF USED_BY_LAZLOGGER_DUMMY} DebugLogger.DebuglnStack(LogEnabled, s); {$ENDIF} end; ``` While `TLazLoggerLogEnabled` is defined in `lazloggerdummy.pas:44` as follows: ```pascal TLazLoggerLogEnabled = record end; ``` It seems that, and only under Sparc architecture, this parameters which type is this kind of empty records are not allocated a storage location.