administrator/blaise
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

feat(semantic): IsUnmangledUnit recognises the runtime. prefix

Browse source
This commit is contained in:
Graeme Geldenhuys 2026-06-25 16:05:44 +01:00
parent 55b308985e
commit bdca25c99e
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
compiler/src/main/pascal/uSymbolTable.pas
View file

@ -2012,11 +2012,18 @@ end;
function IsUnmangledUnit(const AUnitName: string): Boolean;
begin
{ RTL units export their runtime symbols (_SetArgs, _BlaiseGetMem, _start, …)
UNMANGLED — the compiler emits bare calls to them — so their unit prefix is
empty. The RTL units are: System, the rtl.* platform units, and the
runtime.* units (dotted-flat names after the RTL-unification move; the
legacy blaise_* names are still accepted for any not-yet-renamed source). }
Result := True;
if AUnitName = '' then Exit;
if SameText(AUnitName, 'System') then Exit;
if (Length(AUnitName) >= 4)
and SameText(Copy(AUnitName, 0, 4), 'rtl.') then Exit;
if (Length(AUnitName) >= 8)
and SameText(Copy(AUnitName, 0, 8), 'runtime.') then Exit;
if (Length(AUnitName) >= 7)
and SameText(Copy(AUnitName, 0, 7), 'blaise_') then Exit;
Result := False;