* fixed the name changes

compiler/pp.pas

@@ -177,6 +177,7 @@ uses
   {$O import}
   {$O os2_targ}
   {$O win_targ}
+  {$O asmutils}
   {$ifdef gdb}
         {$O gdb}
   {$endif gdb}
@@ -194,20 +195,21 @@ uses
         {$O aopt386}
         {$O cgai386}
         {$O i386}
-        {$O radi386}
-        {$O rai386}
-        {$O ratti386}
+        {$O ra386dir}
+        {$O ra386int}
+        {$O ra386att}
         {$O tgeni386}
         {$O ag386int}
         {$O ag386att}
         {$O ag386nsm}
-        {$O asmutils}
   {$endif}
   {$ifdef m68k}
         {$O opts68k}
         {$O cg68k}
-        {$O ra68k}
+        {$O ra68kmot}
         {$O ag68kgas}
+        {$O ag68kmot}
+        {$O ag68kmit}
   {$endif}
 {$endif useoverlay}
 
@@ -392,7 +394,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.17  1998-06-23 08:59:22  daniel
+  Revision 1.18  1998-06-24 14:06:33  peter
+    * fixed the name changes
+
+  Revision 1.17  1998/06/23 08:59:22  daniel
   * Recommitted.
 
   Revision 1.16  1998/06/17 14:10:17  peter

compiler/pstatmnt.pas

@@ -602,18 +602,18 @@ unit pstatmnt;
          case aktasmmode of
 {$ifdef i386}
   {$ifndef NoRA386Att}
-            I386_ATT : asmstat:=ratti386.assemble;
+            I386_ATT : asmstat:=ra386att.assemble;
   {$endif NoRA386Att}
   {$ifndef NoRA386Int}
-          I386_INTEL : asmstat:=rai386.assemble;
+          I386_INTEL : asmstat:=ra386int.assemble;
   {$endif NoRA386Int}
   {$ifndef NoRA386Dir}
-         I386_DIRECT : asmstat:=radi386.assemble;
+         I386_DIRECT : asmstat:=ra386dir.assemble;
   {$endif NoRA386Dir}
 {$endif}
 {$ifdef m68k}
   {$ifndef NoRA68kMot}
-            M68K_MOT : asmstat:=ra68k.assemble;
+            M68K_MOT : asmstat:=ra68kmot.assemble;
   {$endif NoRA68kMot}
 {$endif}
          else
@@ -1136,7 +1136,10 @@ unit pstatmnt;
 end.
 {
   $Log$
-  Revision 1.20  1998-06-23 14:00:16  peter
+  Revision 1.21  1998-06-24 14:06:34  peter
+    * fixed the name changes
+
+  Revision 1.20  1998/06/23 14:00:16  peter
     * renamed RA* units
 
   Revision 1.19  1998/06/08 22:59:50  peter

compiler/ra386att.pas

@@ -20,7 +20,7 @@
 
  ****************************************************************************
 }
-Unit Ratti386;
+Unit Ra386att;
 {**********************************************************************}
 { WARNING                                                              }
 {**********************************************************************}
@@ -3673,7 +3673,7 @@ end;
 var
  old_exit: pointer;
 
-    procedure ratti386_exit;{$ifndef FPC}far;{$endif}
+    procedure ra386att_exit;{$ifndef FPC}far;{$endif}
 
       begin
          if assigned(iasmops) then
@@ -3686,12 +3686,15 @@ Begin
  line:=''; { Initialization of line variable.
              No 255 char coonst string in version 0.9.1 MVC}
  old_exit := exitproc;
- exitproc := @ratti386_exit;
+ exitproc := @ra386att_exit;
 end.
 
 {
   $Log$
-  Revision 1.1  1998-06-23 14:00:17  peter
+  Revision 1.2  1998-06-24 14:06:36  peter
+    * fixed the name changes
+
+  Revision 1.1  1998/06/23 14:00:17  peter
     * renamed RA* units
 
   Revision 1.13  1998/06/16 08:56:29  peter

compiler/ra386dir.pas

@@ -20,7 +20,7 @@
 
  ****************************************************************************
 }
-unit radi386;
+unit Ra386dir;
 
   interface
 
@@ -239,7 +239,10 @@ unit radi386;
 end.
 {
   $Log$
-  Revision 1.1  1998-06-23 14:00:18  peter
+  Revision 1.2  1998-06-24 14:06:37  peter
+    * fixed the name changes
+
+  Revision 1.1  1998/06/23 14:00:18  peter
     * renamed RA* units
 
   Revision 1.5  1998/06/12 10:32:32  pierre

compiler/ra386int.pas

@@ -20,7 +20,7 @@
 
  ****************************************************************************
 }
-Unit Rai386;
+Unit Ra386int;
 
 {**********************************************************************}
 { WARNING                                                              }
@@ -216,15 +216,6 @@ var
    end;
 
 
-    procedure rai386_exit;{$ifndef FPC}far;{$endif}
-
-      begin
-         if assigned(iasmops) then
-           dispose(iasmops);
-         exitproc:=old_exit;
-      end;
-
-
   {---------------------------------------------------------------------}
   {                     Routines for the tokenizing                     }
   {---------------------------------------------------------------------}
@@ -3370,13 +3361,25 @@ var
 end;
 
 
-Begin
+    procedure ra386int_exit;{$ifndef FPC}far;{$endif}
+
+      begin
+         if assigned(iasmops) then
+           dispose(iasmops);
+         exitproc:=old_exit;
+      end;
+
+
+begin
    old_exit:=exitproc;
-   exitproc:=@rai386_exit;
+   exitproc:=@ra386int_exit;
 end.
 {
   $Log$
-  Revision 1.1  1998-06-23 14:00:18  peter
+  Revision 1.2  1998-06-24 14:06:38  peter
+    * fixed the name changes
+
+  Revision 1.1  1998/06/23 14:00:18  peter
     * renamed RA* units
 
   Revision 1.11  1998/06/16 08:56:28  peter

compiler/ra68kmot.pas

@@ -20,7 +20,7 @@
 
  ****************************************************************************
 }
-Unit Ra68k;
+Unit Ra68kMot;
 {**********************************************************************}
 { WARNING                                                              }
 {**********************************************************************}
@@ -137,13 +137,6 @@ var
    end;
 
 
-    procedure ra68k_exit;far;
-      begin
-         if assigned(iasmops) then
-           dispose(iasmops);
-         exitproc:=old_exit;
-      end;
-
   {---------------------------------------------------------------------}
   {                     Routines for the tokenizing                     }
   {---------------------------------------------------------------------}
@@ -2166,13 +2159,25 @@ var
   Message(assem_d_finish_motorola);
 end;
 
+
+    procedure ra68kmot_exit;{$ifndef FPC}far;{$endif}
+      begin
+         if assigned(iasmops) then
+           dispose(iasmops);
+         exitproc:=old_exit;
+      end;
+
+
 Begin
    old_exit:=exitproc;
-   exitproc:=@ra68k_exit;
+   exitproc:=@ra68kmot_exit;
 end.
 {
   $Log$
-  Revision 1.1  1998-06-23 14:00:20  peter
+  Revision 1.2  1998-06-24 14:06:39  peter
+    * fixed the name changes
+
+  Revision 1.1  1998/06/23 14:00:20  peter
     * renamed RA* units
 
   Revision 1.5  1998/06/12 10:32:31  pierre