Преглед изворни кода

* small changes for the new code generator

florian пре 26 година
родитељ
комит
2b7f36e255
4 измењених фајлова са 26 додато и 8 уклоњено
  1. 8 1
      compiler/i386base.pas
  2. 5 2
      compiler/pmodules.pas
  3. 7 2
      compiler/tgeni386.pas
  4. 6 3
      compiler/version.pas

+ 8 - 1
compiler/i386base.pas

@@ -706,6 +706,10 @@ type
 const
   general_registers = [R_EAX,R_EBX,R_ECX,R_EDX];
 
+  intregs = general_registers;
+  fpuregs = [];
+  mmregs = [R_MM0..R_MM7];
+
   registers_saved_on_cdecl = [R_ESI,R_EDI,R_EBX];
 
   { generic register names }
@@ -1002,7 +1006,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.6  1999-06-06 15:53:15  peter
+  Revision 1.7  1999-08-02 17:17:09  florian
+    * small changes for the new code generator
+
+  Revision 1.6  1999/06/06 15:53:15  peter
     * suffix adding can be turned of for some tasmops in att_nosuffix array
 
   Revision 1.5  1999/05/27 19:44:34  peter

+ 5 - 2
compiler/pmodules.pas

@@ -98,7 +98,7 @@ unit pmodules;
            then
          begin
            datasegment^.insert(new(pai_align,init(4)));
-           datasegment^.insert(new(pai_string,init('FPC '+version_string+
+           datasegment^.insert(new(pai_string,init('FPC '+full_version_string+
              ' for '+target_cpu_string+' - '+target_info.short_name)));
          end;
       { Insert start and end of sections }
@@ -1352,7 +1352,10 @@ unit pmodules;
 end.
 {
   $Log$
-  Revision 1.135  1999-07-29 20:54:04  peter
+  Revision 1.136  1999-08-02 17:17:10  florian
+    * small changes for the new code generator
+
+  Revision 1.135  1999/07/29 20:54:04  peter
     * write .size also
 
   Revision 1.134  1999/07/26 09:42:11  florian

+ 7 - 2
compiler/tgeni386.pas

@@ -28,6 +28,9 @@ unit tgeni386;
        cobjects,globals,tree,hcodegen,verbose,files,aasm
 {$ifdef i386}
        ,i386base,i386asm
+{$ifdef dummy}
+       end
+{$endif}
 {$endif}
        ;
 
@@ -418,7 +421,6 @@ implementation
               dec(usablereg32);
               unused:=unused-[r];
               usedinproc:=usedinproc or ($80 shr byte(r));
-              getexplicitregister32:=R_ECX;
               exprasmlist^.concat(new(pairegalloc,alloc(r)));
               getexplicitregister32:=r;
            end
@@ -470,7 +472,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.27  1999-06-09 23:22:39  peter
+  Revision 1.28  1999-08-02 17:17:11  florian
+    * small changes for the new code generator
+
+  Revision 1.27  1999/06/09 23:22:39  peter
     + del_location
 
   Revision 1.26  1999/05/27 19:45:27  peter

+ 6 - 3
compiler/version.pas

@@ -33,9 +33,9 @@ interface
        release_nr = '99';
        patch_nr   = '13';
 {$ifdef newcg}
-       minorpatch = '';
+       minorpatch = ' NCG';
 {$else newcg}
-       minorpatch = 'newcg';
+       minorpatch = '';
 {$endif newcg}
        version_string = version_nr+'.'+release_nr+'.'+patch_nr;
        full_version_string = version_nr+'.'+release_nr+'.'+patch_nr+minorpatch;
@@ -73,7 +73,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.10  1999-08-01 23:36:42  florian
+  Revision 1.11  1999-08-02 17:17:12  florian
+    * small changes for the new code generator
+
+  Revision 1.10  1999/08/01 23:36:42  florian
     * some changes to compile the new code generator
 
   Revision 1.9  1999/07/01 21:35:02  peter