fix Issue 21914 - naked assembler functions get wrong offset to parameters

Author: WalterBright

dm/src/dmc/cgcod.d

@@ -826,8 +826,9 @@ Lagain:
     {
         version (FRAMEPTR)
         {
-            Para.size = ((farfunc ? 2 : 1) + needframe) * REGSIZE;
-            if (needframe)
+            bool frame = needframe || tyf & mTYnaked;
+            Para.size = ((farfunc ? 2 : 1) + frame) * REGSIZE;
+            if (frame)
                 EBPtoESP = -REGSIZE;
         }
         else
@@ -1012,7 +1013,6 @@ else
         // we need BP to reset the stack before return
         // otherwise the return address is lost
         needframe = 1;
-
     }
     else if (config.flags & CFGalwaysframe)
         needframe = 1;
@@ -1030,7 +1030,9 @@ else
                 anyiasm ||
                 Alloca.size
                )
+            {
                 needframe = 1;
+            }
         }
         if (refparam && (anyiasm || I16))
             needframe = 1;

dm/src/dmc/cod3.d

@@ -2252,6 +2252,7 @@ void outswitab(block *b)
 @trusted
 int jmpopcode(elem *e)
 {
+    //printf("jmpopcode()\n"); elem_print(e);
     tym_t tym;
     int zero,i,jp,op;
     static immutable ubyte[6][2][2] jops =
@@ -5429,7 +5430,9 @@ void assignaddrc(code *c)
                 break;
 
             case FLpara:
-//printf("s = %s, Soffset = %d, Para.size = %d, BPoff = %d, EBPtoESP = %d\n", s.Sident.ptr, s.Soffset, Para.size, BPoff, EBPtoESP);
+                //printf("s = %s, Soffset = %d, Para.size = %d, BPoff = %d, EBPtoESP = %d, Vpointer = %d\n",
+                //s.Sident.ptr, cast(int)s.Soffset, cast(int)Para.size, cast(int)BPoff,
+                //cast(int)EBPtoESP, cast(int)c.IEV1.Vpointer);
                 soff = Para.size - BPoff;    // cancel out add of BPoff
                 goto L1;