* op_const_reg_reg with OP_SAR fixed

compiler/arm/cgcpu.pas

@@ -302,7 +302,7 @@ unit cgcpu;
                   if a>32 then
                     internalerror(200308291);
                   shifterop_reset(so);
-                  so.shiftmode:=SM_LSL;
+                  so.shiftmode:=SM_ASR;
                   so.shiftimm:=a;
                   list.concat(taicpu.op_reg_reg_shifterop(A_MOV,dst,src,so));
                 end;
@@ -1208,7 +1208,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.35  2004-01-22 01:47:15  florian
+  Revision 1.36  2004-01-22 02:22:47  florian
+    * op_const_reg_reg with OP_SAR fixed
+
+  Revision 1.35  2004/01/22 01:47:15  florian
     * improved register usage
     + implemented second_cmp64bit
 

compiler/cg64f32.pas

@@ -743,20 +743,13 @@ unit cg64f32;
         optimize64_op_const_reg := false;
       end;
 
-(*
-    procedure int64f32_assignment_int64_reg(p : passignmentnode);
-
-      begin
-      end;
-
-
-begin
-   p2_assignment:=@int64f32_assignement_int64;
-*)
 end.
 {
   $Log$
-  Revision 1.56  2003-12-24 00:10:02  florian
+  Revision 1.57  2004-01-22 02:22:47  florian
+    * op_const_reg_reg with OP_SAR fixed
+
+  Revision 1.56  2003/12/24 00:10:02  florian
     - delete parameter in cg64 methods removed
 
   Revision 1.55  2003/12/07 15:00:45  jonas