Browse Source

* hnewn location corrected

pierre 26 years ago
parent
commit
2fe4c8b727
1 changed files with 6 additions and 2 deletions
  1. 6 2
      compiler/cg386mem.pas

+ 6 - 2
compiler/cg386mem.pas

@@ -129,7 +129,8 @@ implementation
            exit;
            exit;
          reset_reference(p^.location.reference);
          reset_reference(p^.location.reference);
          case p^.left^.location.loc of
          case p^.left^.location.loc of
-            LOC_REGISTER,
+            LOC_REGISTER:
+              p^.location.reference.index:=p^.left^.location.register;
             LOC_CREGISTER:
             LOC_CREGISTER:
               begin
               begin
                  p^.location.reference.index:=getregister32;
                  p^.location.reference.index:=getregister32;
@@ -850,7 +851,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.52  1999-08-19 13:08:52  pierre
+  Revision 1.53  1999-08-23 23:49:21  pierre
+   * hnewn location corrected
+
+  Revision 1.52  1999/08/19 13:08:52  pierre
    * emit_??? used
    * emit_??? used
 
 
   Revision 1.51  1999/08/16 23:20:28  peter
   Revision 1.51  1999/08/16 23:20:28  peter