Add support for inline for assembler procedure without parameters

Signed-off-by: Matias Ezequiel Vara Larsen <matiasevara@torokernel.io>

Author: MatiasVara

compiler/psub.pas

@@ -148,12 +148,6 @@ implementation
           ppu file }
         if df_generic in current_procinfo.procdef.defoptions then
           exit;
-        if pi_has_assembler_block in current_procinfo.flags then
-          begin
-            Message1(parser_h_not_supported_for_inline,'assembler');
-            Message(parser_h_inlining_disabled);
-            exit;
-          end;
         if pi_has_global_goto in current_procinfo.flags then
           begin
             Message1(parser_h_not_supported_for_inline,'global goto');

compiler/symdef.pas

@@ -5743,8 +5743,11 @@                 if (tstoreddef(tfieldvarsym(symtable.symlist[i]).vardef).typ=rec
             (tf_need_export in target_info.flags) and
             (po_exports in procoptions) then
            deffile.AddExport(mangledname);
-         { Disable po_has_inlining until the derefimpl is done }
-         has_inlininginfo:=false;
+         { Disable po_has_inlining until the derefimpl is done.
+           Assembler procedures don't need derefimpl since
+           their asm nodes have no Pascal symbol references }
+         if not(po_assembler in procoptions) then
+           has_inlininginfo:=false;
       end;