|
@@ -256,6 +256,17 @@ uses
|
|
|
newsym:=current_asmdata.DefineAsmSymbol(newname,AB_GLOBAL,AT_FUNCTION,_def);
|
|
|
newsym.declared:=true;
|
|
|
def:=_def;
|
|
|
+ { alias cannot be external }
|
|
|
+ case _bind of
|
|
|
+ { weak external should actually become weak, but we don't support that
|
|
|
+ yet }
|
|
|
+ AB_WEAK_EXTERNAL:
|
|
|
+ internalerror(2016071203);
|
|
|
+ AB_EXTERNAL:
|
|
|
+ _bind:=AB_GLOBAL;
|
|
|
+ AB_EXTERNAL_INDIRECT:
|
|
|
+ _bind:=AB_INDIRECT;
|
|
|
+ end;
|
|
|
bind:=_bind;
|
|
|
end;
|
|
|
|