Przeglądaj źródła

* disable addmmxset

peter 21 lat temu
rodzic
commit
60814ccb16
2 zmienionych plików z 14 dodań i 4 usunięć
  1. 6 1
      compiler/i386/n386add.pas
  2. 8 3
      compiler/nadd.pas

+ 6 - 1
compiler/i386/n386add.pas

@@ -1277,9 +1277,11 @@ interface
                should not be used.}
                should not be used.}
               if (tsetdef(left.resulttype.def).settype<>smallset) then
               if (tsetdef(left.resulttype.def).settype<>smallset) then
                 begin
                 begin
+{$ifdef MMXSET}
                   if cs_mmx in aktlocalswitches then
                   if cs_mmx in aktlocalswitches then
                     second_addmmxset
                     second_addmmxset
                   else
                   else
+{$endif MMXSET}
                     internalerror(200109041);
                     internalerror(200109041);
                 end
                 end
               else
               else
@@ -1428,7 +1430,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.92  2003-12-25 01:07:09  florian
+  Revision 1.93  2004-01-14 17:19:04  peter
+    * disable addmmxset
+
+  Revision 1.92  2003/12/25 01:07:09  florian
     + $fputype directive support
     + $fputype directive support
     + single data type operations with sse unit
     + single data type operations with sse unit
     * fixed more x86-64 stuff
     * fixed more x86-64 stuff

+ 8 - 3
compiler/nadd.pas

@@ -1678,14 +1678,16 @@ implementation
                    calcregisters(self,1,0,0);
                    calcregisters(self,1,0,0);
                end
                end
              else
              else
-             {$ifdef i386}
+{$ifdef MMXSET}
+{$ifdef i386}
                if cs_mmx in aktlocalswitches then
                if cs_mmx in aktlocalswitches then
                  begin
                  begin
                    expectloc:=LOC_MMXREGISTER;
                    expectloc:=LOC_MMXREGISTER;
                    calcregisters(self,0,0,4);
                    calcregisters(self,0,0,4);
                  end
                  end
                else
                else
-             {$endif}
+{$endif}
+{$endif MMXSET}
                  begin
                  begin
                    result := first_addset;
                    result := first_addset;
                    if assigned(result) then
                    if assigned(result) then
@@ -1904,7 +1906,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.105  2004-01-02 17:19:04  jonas
+  Revision 1.106  2004-01-14 17:19:04  peter
+    * disable addmmxset
+
+  Revision 1.105  2004/01/02 17:19:04  jonas
     * if currency = int64, FPC_CURRENCY_IS_INT64 is defined
     * if currency = int64, FPC_CURRENCY_IS_INT64 is defined
     + round and trunc for currency and comp if FPC_CURRENCY_IS_INT64 is
     + round and trunc for currency and comp if FPC_CURRENCY_IS_INT64 is
       defined
       defined