paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 19:50:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed the name changes

Browse Source
This commit is contained in:
peter 1998-06-24 14:06:33 +00:00
parent f1082542f9
commit fe323891cf
6 changed files with 62 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/pp.pas
View File

@ -177,6 +177,7 @@ uses
{$O import} {$O import}
{$O os2_targ} {$O os2_targ}
{$O win_targ} {$O win_targ}
{$O asmutils}
{$ifdef gdb} {$ifdef gdb}
{$O gdb} {$O gdb}
{$endif gdb} {$endif gdb}
@ -194,20 +195,21 @@ uses
{$O aopt386} {$O aopt386}
{$O cgai386} {$O cgai386}
{$O i386} {$O i386}
{$O radi386} {$O ra386dir}
{$O rai386} {$O ra386int}
{$O ratti386} {$O ra386att}
{$O tgeni386} {$O tgeni386}
{$O ag386int} {$O ag386int}
{$O ag386att} {$O ag386att}
{$O ag386nsm} {$O ag386nsm}
{$O asmutils}
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
{$O opts68k} {$O opts68k}
{$O cg68k} {$O cg68k}
{$O ra68k} {$O ra68kmot}
{$O ag68kgas} {$O ag68kgas}
{$O ag68kmot}
{$O ag68kmit}
{$endif} {$endif}
{$endif useoverlay} {$endif useoverlay}
@ -392,7 +394,10 @@ begin
end. end.
{ {
$Log$ $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. * Recommitted.
Revision 1.16 1998/06/17 14:10:17 peter Revision 1.16 1998/06/17 14:10:17 peter

13
compiler/pstatmnt.pas
View File

@ -602,18 +602,18 @@ unit pstatmnt;
case aktasmmode of case aktasmmode of
{$ifdef i386} {$ifdef i386}
{$ifndef NoRA386Att} {$ifndef NoRA386Att}
I386_ATT : asmstat:=ratti386.assemble; I386_ATT : asmstat:=ra386att.assemble;
{$endif NoRA386Att} {$endif NoRA386Att}
{$ifndef NoRA386Int} {$ifndef NoRA386Int}
I386_INTEL : asmstat:=rai386.assemble; I386_INTEL : asmstat:=ra386int.assemble;
{$endif NoRA386Int} {$endif NoRA386Int}
{$ifndef NoRA386Dir} {$ifndef NoRA386Dir}
I386_DIRECT : asmstat:=radi386.assemble; I386_DIRECT : asmstat:=ra386dir.assemble;
{$endif NoRA386Dir} {$endif NoRA386Dir}
{$endif} {$endif}
{$ifdef m68k} {$ifdef m68k}
{$ifndef NoRA68kMot} {$ifndef NoRA68kMot}
M68K_MOT : asmstat:=ra68k.assemble; M68K_MOT : asmstat:=ra68kmot.assemble;
{$endif NoRA68kMot} {$endif NoRA68kMot}
{$endif} {$endif}
else else
@ -1136,7 +1136,10 @@ unit pstatmnt;
end. end.
{ {
$Log$ $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 * renamed RA* units
Revision 1.19 1998/06/08 22:59:50 peter Revision 1.19 1998/06/08 22:59:50 peter

11
compiler/ra386att.pas
View File

@ -20,7 +20,7 @@
**************************************************************************** ****************************************************************************
} }
Unit Ratti386; Unit Ra386att;
{**********************************************************************} {**********************************************************************}
{ WARNING } { WARNING }
{**********************************************************************} {**********************************************************************}
@ -3673,7 +3673,7 @@ end;
var var
old_exit: pointer; old_exit: pointer;
procedure ratti386_exit;{$ifndef FPC}far;{$endif} procedure ra386att_exit;{$ifndef FPC}far;{$endif}
begin begin
if assigned(iasmops) then if assigned(iasmops) then
@ -3686,12 +3686,15 @@ Begin
line:=''; { Initialization of line variable. line:=''; { Initialization of line variable.
No 255 char coonst string in version 0.9.1 MVC} No 255 char coonst string in version 0.9.1 MVC}
old_exit := exitproc; old_exit := exitproc;
exitproc := @ratti386_exit; exitproc := @ra386att_exit;
end. end.
{ {
$Log$ $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 * renamed RA* units
Revision 1.13 1998/06/16 08:56:29 peter Revision 1.13 1998/06/16 08:56:29 peter

7
compiler/ra386dir.pas
View File

@ -20,7 +20,7 @@
**************************************************************************** ****************************************************************************
} }
unit radi386; unit Ra386dir;
interface interface
@ -239,7 +239,10 @@ unit radi386;
end. end.
{ {
$Log$ $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 * renamed RA* units
Revision 1.5 1998/06/12 10:32:32 pierre Revision 1.5 1998/06/12 10:32:32 pierre

29
compiler/ra386int.pas
View File

@ -20,7 +20,7 @@
**************************************************************************** ****************************************************************************
} }
Unit Rai386; Unit Ra386int;
{**********************************************************************} {**********************************************************************}
{ WARNING } { WARNING }
@ -216,15 +216,6 @@ var
end; end;
procedure rai386_exit;{$ifndef FPC}far;{$endif}
begin
if assigned(iasmops) then
dispose(iasmops);
exitproc:=old_exit;
end;
{---------------------------------------------------------------------} {---------------------------------------------------------------------}
{ Routines for the tokenizing } { Routines for the tokenizing }
{---------------------------------------------------------------------} {---------------------------------------------------------------------}
@ -3370,13 +3361,25 @@ var
end; end;
Begin procedure ra386int_exit;{$ifndef FPC}far;{$endif}
begin
if assigned(iasmops) then
dispose(iasmops);
exitproc:=old_exit;
end;
begin
old_exit:=exitproc; old_exit:=exitproc;
exitproc:=@rai386_exit; exitproc:=@ra386int_exit;
end. end.
{ {
$Log$ $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 * renamed RA* units
Revision 1.11 1998/06/16 08:56:28 peter Revision 1.11 1998/06/16 08:56:28 peter

25
compiler/ra68kmot.pas
View File

@ -20,7 +20,7 @@
**************************************************************************** ****************************************************************************
} }
Unit Ra68k; Unit Ra68kMot;
{**********************************************************************} {**********************************************************************}
{ WARNING } { WARNING }
{**********************************************************************} {**********************************************************************}
@ -137,13 +137,6 @@ var
end; end;
procedure ra68k_exit;far;
begin
if assigned(iasmops) then
dispose(iasmops);
exitproc:=old_exit;
end;
{---------------------------------------------------------------------} {---------------------------------------------------------------------}
{ Routines for the tokenizing } { Routines for the tokenizing }
{---------------------------------------------------------------------} {---------------------------------------------------------------------}
@ -2166,13 +2159,25 @@ var
Message(assem_d_finish_motorola); Message(assem_d_finish_motorola);
end; end;
procedure ra68kmot_exit;{$ifndef FPC}far;{$endif}
begin
if assigned(iasmops) then
dispose(iasmops);
exitproc:=old_exit;
end;
Begin Begin
old_exit:=exitproc; old_exit:=exitproc;
exitproc:=@ra68k_exit; exitproc:=@ra68kmot_exit;
end. end.
{ {
$Log$ $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 * renamed RA* units
Revision 1.5 1998/06/12 10:32:31 pierre Revision 1.5 1998/06/12 10:32:31 pierre