* small problems with DOM and excpetions fixed (code generation

    of raise was wrong and self was sometimes destroyed :()

compiler/cg386cal.pas

@@ -895,6 +895,7 @@ implementation
                                       begin
                                          secondpass(p^.methodpointer);
                                          case p^.methodpointer^.location.loc of
+                                            LOC_CREGISTER,
                                             LOC_REGISTER:
                                               begin
                                                  ungetregister32(p^.methodpointer^.location.register);
@@ -1436,7 +1437,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.29  1998-09-25 00:04:00  florian
+  Revision 1.30  1998-09-26 15:03:02  florian
+    * small problems with DOM and excpetions fixed (code generation
+      of raise was wrong and self was sometimes destroyed :()
+
+  Revision 1.29  1998/09/25 00:04:00  florian
     * problems when calling class methods fixed
 
   Revision 1.28  1998/09/24 14:27:37  peter

compiler/cg386flw.pas

@@ -539,7 +539,8 @@ do_jmp:
 
               case p^.left^.location.loc of
                  LOC_MEM,LOC_REFERENCE:
-                   emitpushreferenceaddr(exprasmlist,p^.left^.location.reference);
+                   exprasmlist^.concat(new(pai386,op_ref(A_PUSH,S_L,
+                       newreference(p^.left^.location.reference))));
                  LOC_CREGISTER,LOC_REGISTER : exprasmlist^.concat(new(pai386,op_reg(A_PUSH,S_L,
                        p^.left^.location.register)));
                  else CGMessage(type_e_mismatch);
@@ -734,7 +735,11 @@ do_jmp:
 end.
 {
   $Log$
-  Revision 1.17  1998-09-17 09:42:14  peter
+  Revision 1.18  1998-09-26 15:03:04  florian
+    * small problems with DOM and excpetions fixed (code generation
+      of raise was wrong and self was sometimes destroyed :()
+
+  Revision 1.17  1998/09/17 09:42:14  peter
     + pass_2 for cg386
     * Message() -> CGMessage() for pass_1/pass_2
 

compiler/tcmem.pas

@@ -463,7 +463,7 @@ implementation
            ((p^.resulttype^.deftype=objectdef)
              and pobjectdef(p^.resulttype)^.isclass
            ) then
-           p^.location.loc:=LOC_REGISTER
+           p^.location.loc:=LOC_CREGISTER
          else
            p^.location.loc:=LOC_REFERENCE;
       end;
@@ -500,7 +500,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.2  1998-09-24 23:49:24  peter
+  Revision 1.3  1998-09-26 15:03:05  florian
+    * small problems with DOM and excpetions fixed (code generation
+      of raise was wrong and self was sometimes destroyed :()
+
+  Revision 1.2  1998/09/24 23:49:24  peter
     + aktmodeswitches
 
   Revision 1.1  1998/09/23 20:42:24  peter