Browse Source

* typo error corrected solves bug0190 and bug0204

pierre 26 years ago
parent
commit
633f56fb4e
2 changed files with 12 additions and 6 deletions
  1. 6 3
      compiler/cg386cnv.pas
  2. 6 3
      compiler/tccnv.pas

+ 6 - 3
compiler/cg386cnv.pas

@@ -1104,7 +1104,7 @@ implementation
          be accepted for var parameters }
          be accepted for var parameters }
          if (pto^.explizit) and
          if (pto^.explizit) and
             (pfrom^.resulttype^.size=pto^.resulttype^.size) and
             (pfrom^.resulttype^.size=pto^.resulttype^.size) and
-            (pfrom^.location.loc in [LOC_REGISTER,LOC_MEM,LOC_CREGISTER]) then
+            (pfrom^.location.loc in [LOC_REFERENCE,LOC_MEM,LOC_CREGISTER]) then
            begin
            begin
               set_location(pto^.location,pfrom^.location);
               set_location(pto^.location,pfrom^.location);
               exit;
               exit;
@@ -1221,7 +1221,7 @@ implementation
          be accepted for var parameters }
          be accepted for var parameters }
          if (pto^.explizit) and
          if (pto^.explizit) and
             (pfrom^.resulttype^.size=pto^.resulttype^.size) and
             (pfrom^.resulttype^.size=pto^.resulttype^.size) and
-            (pfrom^.location.loc in [LOC_REGISTER,LOC_MEM,LOC_CREGISTER]) then
+            (pfrom^.location.loc in [LOC_REFERENCE,LOC_MEM,LOC_CREGISTER]) then
            begin
            begin
               set_location(pto^.location,pfrom^.location);
               set_location(pto^.location,pfrom^.location);
               exit;
               exit;
@@ -1592,7 +1592,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.48  1999-01-27 13:03:27  pierre
+  Revision 1.49  1999-01-27 14:56:56  pierre
+  * typo error corrected solves bug0190 and bug0204
+
+  Revision 1.48  1999/01/27 13:03:27  pierre
    boolean to int conversion problems bug0205 bug0208
    boolean to int conversion problems bug0205 bug0208
 
 
   Revision 1.47  1999/01/27 12:59:32  pierre
   Revision 1.47  1999/01/27 12:59:32  pierre

+ 6 - 3
compiler/tccnv.pas

@@ -465,7 +465,7 @@ implementation
          be accepted for var parameters }
          be accepted for var parameters }
          if (p^.explizit) and
          if (p^.explizit) and
             (p^.left^.resulttype^.size=p^.resulttype^.size) and
             (p^.left^.resulttype^.size=p^.resulttype^.size) and
-            (p^.left^.location.loc in [LOC_REGISTER,LOC_MEM,LOC_CREGISTER]) then
+            (p^.left^.location.loc in [LOC_REFERENCE,LOC_MEM,LOC_CREGISTER]) then
            exit;
            exit;
 {$endif ndef OLDBOOL}
 {$endif ndef OLDBOOL}
          p^.location.loc:=LOC_REGISTER;
          p^.location.loc:=LOC_REGISTER;
@@ -487,7 +487,7 @@ implementation
          be accepted for var parameters }
          be accepted for var parameters }
          if (p^.explizit) and
          if (p^.explizit) and
             (p^.left^.resulttype^.size=p^.resulttype^.size) and
             (p^.left^.resulttype^.size=p^.resulttype^.size) and
-            (p^.left^.location.loc in [LOC_REGISTER,LOC_MEM,LOC_CREGISTER]) then
+            (p^.left^.location.loc in [LOC_REFERENCE,LOC_MEM,LOC_CREGISTER]) then
            exit;
            exit;
 {$endif ndef OLDBOOL}
 {$endif ndef OLDBOOL}
          p^.location.loc:=LOC_REGISTER;
          p^.location.loc:=LOC_REGISTER;
@@ -975,7 +975,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.17  1999-01-27 14:15:25  pierre
+  Revision 1.18  1999-01-27 14:56:57  pierre
+  * typo error corrected solves bug0190 and bug0204
+
+  Revision 1.17  1999/01/27 14:15:25  pierre
    * bug0209 corrected (introduce while solving other bool to int related bugs)
    * bug0209 corrected (introduce while solving other bool to int related bugs)
 
 
   Revision 1.16  1999/01/27 13:02:21  pierre
   Revision 1.16  1999/01/27 13:02:21  pierre