passagem de pf por ref por ref

ORIGNAL/MEPA

@@ -2,53 +2,45 @@
      AMEM 1
      DSVS R00
 R01: ENPR 1 
-     AMEM 2
+     AMEM 1
      DSVS R02
 R02: NADA 
      CRVL 1, -5
      CRCT 2
      CMME
      DSVF R03
+     CRVI 1, -4
      CRVL 1, -5
-     ARMZ 1, -6
-     CRCT 0
+     SOMA
      ARMI 1, -4
      DSVS R04
 R03: NADA 
-     AMEM 1
+     CRVI 1, -4
+     ARMZ 1, 0
      CRVL 1, -5
      CRCT 1
      SUBT
      CREN 1, 0
      CHPR R01, 1
-     AMEM 1
+     CRVL 1, 0
+     ARMI 1, -4
      CRVL 1, -5
      CRCT 2
      SUBT
-     CREN 1, 1
+     CRVL 1, -4
      CHPR R01, 1
-     SOMA
-     ARMZ 1, -6
-     CRVL 1, 0
-     CRVL 1, 1
-     SOMA
-     CRCT 1
-     SOMA
-     ARMI 1, -4
 R04: NADA 
      CRVL 1, -5
      IMPR
      CRVI 1, -4
      IMPR
-     DMEM 2
+     DMEM 1
      RTPR 1, 2
 R00: NADA 
-     AMEM 1
+     CRCT 0
+     ARMZ 0, 0
      CRCT 3
      CREN 0, 0
      CHPR R01, 0
-     IMPR
-     CRVL 0, 0
-     IMPR
      DMEM 1
      PARA

ORIGNAL/compilador.tab.h

+/* A Bison parser, made by GNU Bison 3.5.1.  */
+
+/* Bison interface for Yacc-like parsers in C
+
+   Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2020 Free Software Foundation,
+   Inc.
+
+   This program is free software: you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation, either version 3 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
+
+/* As a special exception, you may create a larger work that contains
+   part or all of the Bison parser skeleton and distribute that work
+   under terms of your choice, so long as that work isn't itself a
+   parser generator using the skeleton or a modified version thereof
+   as a parser skeleton.  Alternatively, if you modify or redistribute
+   the parser skeleton itself, you may (at your option) remove this
+   special exception, which will cause the skeleton and the resulting
+   Bison output files to be licensed under the GNU General Public
+   License without this special exception.
+
+   This special exception was added by the Free Software Foundation in
+   version 2.2 of Bison.  */
+
+/* Undocumented macros, especially those whose name start with YY_,
+   are private implementation details.  Do not rely on them.  */
+
+#ifndef YY_YY_COMPILADOR_TAB_H_INCLUDED
+# define YY_YY_COMPILADOR_TAB_H_INCLUDED
+/* Debug traces.  */
+#ifndef YYDEBUG
+# define YYDEBUG 0
+#endif
+#if YYDEBUG
+extern int yydebug;
+#endif
+
+/* Token type.  */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+  enum yytokentype
+  {
+    PROGRAM = 258,
+    ABRE_PARENTESES = 259,
+    FECHA_PARENTESES = 260,
+    VIRGULA = 261,
+    PONTO_E_VIRGULA = 262,
+    DOIS_PONTOS = 263,
+    PONTO = 264,
+    T_BEGIN = 265,
+    T_END = 266,
+    VAR = 267,
+    IDENT = 268,
+    ATRIBUICAO = 269,
+    LABEL = 270,
+    TYPE = 271,
+    ARRAY = 272,
+    PROCEDURE = 273,
+    FUNCTION = 274,
+    GOTO = 275,
+    IF = 276,
+    THEN = 277,
+    ELSE = 278,
+    WHILE = 279,
+    DO = 280,
+    OR = 281,
+    DIV = 282,
+    AND = 283,
+    NOT = 284,
+    IGUAL = 285,
+    DIFERENTE = 286,
+    MENOR_IGUAL = 287,
+    MAIOR_IGUAL = 288,
+    MENOR = 289,
+    MAIOR = 290,
+    MAIS = 291,
+    MENOS = 292,
+    ASTERISCO = 293,
+    NUMERO = 294,
+    READ = 295,
+    WRITE = 296,
+    LOWER_THAN_ELSE = 297
+  };
+#endif
+
+/* Value type.  */
+#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
+typedef int YYSTYPE;
+# define YYSTYPE_IS_TRIVIAL 1
+# define YYSTYPE_IS_DECLARED 1
+#endif
+
+
+extern YYSTYPE yylval;
+
+int yyparse (void);
+
+#endif /* !YY_YY_COMPILADOR_TAB_H_INCLUDED  */

ORIGNAL/compilador.y

@@ -516,7 +516,10 @@ fator: IDENT {
                   geraCodigo(NULL, buffer);
                }
                else if (l_elem->categ == PF){
+                  if(l_elem->info.pf.passagem == VLR)
                      sprintf(buffer, "CREN %d, %d", l_elem->nivel, l_elem->info.pf.desloc);
+                  else
+                     sprintf(buffer, "CRVL %d, %d", l_elem->nivel, l_elem->info.pf.desloc);
                   geraCodigo(NULL, buffer);
                }
                else