chamada de procedimentos completa

MEPA

@@ -14,8 +14,7 @@ R00: NADA
      CRCT 8
      ARMZ 0,0
      CREN 0,0
-     CRCT 2
-     SOMA
+     CRCT 8
      CRCT 2
      CRCT 3
      SOMA

compilador.y

@@ -338,6 +338,7 @@ lista_parametros_parenteses: lista_parametros_parenteses VIRGULA
                expressao_simples
                {
                   num_param++; // Incrementa para cada parâmetro real
+                  val_ou_ref = VLR;
                }
                | {
                   char buffer[50];
@@ -349,6 +350,7 @@ lista_parametros_parenteses: lista_parametros_parenteses VIRGULA
                expressao_simples
                {
                   num_param++; // Conta o primeiro parâmetro real
+                  val_ou_ref = VLR;
                }
 ;
 
@@ -401,9 +403,15 @@ expressao: expressao IGUAL expressao_simples {
 ;
 
 expressao_simples: expressao_simples MAIS termo {
+               if (val_ou_ref == REF)
+                  yyerror("Erro: tentativa de EXPRESSAO em passagem por REFERENCIA\n");
+               else
                   geraCodigo(NULL, "SOMA"); // Adiciona operação de soma
             }
             | expressao_simples MENOS termo {
+               if (val_ou_ref == REF)
+                  yyerror("Erro: tentativa de EXPRESSAO em passagem por REFERENCIA\n");
+               else
                   geraCodigo(NULL, "SUBT"); // Adiciona operação de subt
             }
             | termo
@@ -435,7 +443,6 @@ fator: IDENT {
             sprintf(buffer, "CRVL %d,%d", l_elem->nivel, l_elem->info.vs.desloc);
         }
         geraCodigo(NULL, buffer);
-        val_ou_ref = VLR;
     }
 }
 | NUMERO {

teste9.pas

@@ -8,5 +8,5 @@ program proc1 (input, output);
     end;
 begin
     x := 8;
-    p(x, 2+3);
+    p(x+9, 2+3);
 end.
\ No newline at end of file