paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 20:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use System for the systemunit instead of target dependent

Browse Source
This commit is contained in:
peter 2000-10-15 09:08:58 +00:00
parent 4bd9325ae6
commit 12818742d3
3 changed files with 18 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/n386inl.pas
View File

@ -201,17 +201,15 @@ implementation
procedure loadstream;
const
io:array[boolean] of string[7]=('_OUTPUT','_INPUT');
io:array[boolean] of string[6]=('OUTPUT','INPUT');
var
r : preference;
begin
new(r);
reset_reference(r^);
r^.symbol:=newasmsymbol(
'U_'+upper(target_info.system_unit)+io[doread]);
{$ifndef noAllocEdi}
'U_SYSTEM_'+io[doread]);
getexplicitregister32(R_EDI);
{$endif noAllocEdi}
emit_ref_reg(A_LEA,S_L,r,R_EDI)
end;
@ -1549,7 +1547,10 @@ begin
end.
{
$Log$
Revision 1.1 2000-10-14 10:14:49 peter
Revision 1.2 2000-10-15 09:08:58 peter
* use System for the systemunit instead of target dependent
Revision 1.1 2000/10/14 10:14:49 peter
* moehrendorf oct 2000 rewrite
}

16
compiler/pmodules.pas
View File

@ -634,7 +634,7 @@ implementation
exit;
end;
{ insert the system unit, it is allways the first }
hp:=loadunit(upper(target_info.system_unit),true);
hp:=loadunit('SYSTEM',true);
systemunit:=hp^.globalsymtable;
{ it's always the first unit }
systemunit^.next:=nil;
@ -985,7 +985,7 @@ implementation
pu : pused_unit;
{$endif GDB}
store_crc,store_interface_crc : longint;
s1,s2 : ^string; {Saves stack space}
s2 : ^string; {Saves stack space}
force_init_final : boolean;
begin
@ -1005,14 +1005,12 @@ implementation
current_module^.modulename:=stringdup(pattern);
current_module^.realmodulename:=stringdup(orgpattern);
{ check for system unit }
new(s1);
new(s2);
s1^:=upper(target_info.system_unit);
s2^:=upper(SplitName(main_file^.name^));
if (cs_compilesystem in aktmoduleswitches) then
begin
if ((length(current_module^.modulename^)>8) or
(current_module^.modulename^<>s1^) or
(current_module^.modulename^<>'SYSTEM') or
(current_module^.modulename^<>s2^)) then
Message1(unit_e_illegal_unit_name,current_module^.realmodulename^);
end
@ -1023,11 +1021,10 @@ implementation
((length(current_module^.modulename^)>8) and
(copy(current_module^.modulename^,1,8)=s2^))) then
Message1(unit_e_illegal_unit_name,current_module^.realmodulename^);
if (current_module^.modulename^=s1^) then
if (current_module^.modulename^='SYSTEM') then
Message(unit_w_switch_us_missed);
end;
dispose(s2);
dispose(s1);
end;
consume(_ID);
@ -1708,7 +1705,10 @@ implementation
end.
{
$Log$
Revision 1.14 2000-10-15 07:47:51 peter
Revision 1.15 2000-10-15 09:08:58 peter
* use System for the systemunit instead of target dependent
Revision 1.14 2000/10/15 07:47:51 peter
* unit names and procedure names are stored mixed case
Revision 1.13 2000/10/04 14:51:08 pierre

21
compiler/systems.pas
View File

@ -196,7 +196,6 @@ interface
cpu : ttargetcpu;
short_name : string[8];
unit_env : string[12];
system_unit : string[8];
smartext,
unitext,
unitlibext,
@ -1041,7 +1040,6 @@ implementation
cpu : i386;
short_name : 'GO32V1';
unit_env : 'GO32V1UNITS';
system_unit : 'SYSTEM';
smartext : '.sl';
unitext : '.pp1';
unitlibext : '.ppl';
@ -1065,7 +1063,6 @@ implementation
cpu : i386;
short_name : 'GO32V2';
unit_env : 'GO32V2UNITS';
system_unit : 'SYSTEM';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
@ -1089,7 +1086,6 @@ implementation
cpu : i386;
short_name : 'LINUX';
unit_env : 'LINUXUNITS';
system_unit : 'syslinux';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
@ -1113,7 +1109,6 @@ implementation
cpu : i386;
short_name : 'FREEBSD';
unit_env : 'BSDUNITS';
system_unit : 'sysbsd';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
@ -1137,7 +1132,6 @@ implementation
cpu : i386;
short_name : 'OS2';
unit_env : 'OS2UNITS';
system_unit : 'SYSOS2';
smartext : '.sl';
unitext : '.ppo';
unitlibext : '.ppl';
@ -1161,7 +1155,6 @@ implementation
cpu : i386;
short_name : 'WIN32';
unit_env : 'WIN32UNITS';
system_unit : 'SYSWIN32';
smartext : '.slw';
unitext : '.ppw';
unitlibext : '.ppl';
@ -1185,7 +1178,6 @@ implementation
cpu : i386;
short_name : 'NETWARE';
unit_env : 'NETWAREUNITS';
system_unit : 'sysnetwa';
smartext : '.sl';
unitext : '.ppn';
unitlibext : '.ppl';
@ -1211,7 +1203,6 @@ implementation
cpu : m68k;
short_name : 'AMIGA';
unit_env : '';
system_unit : 'sysamiga';
smartext : '.sl';
unitext : '.ppa';
unitlibext : '.ppl';
@ -1235,7 +1226,6 @@ implementation
cpu : m68k;
short_name : 'ATARI';
unit_env : '';
system_unit : 'SYSATARI';
smartext : '.sl';
unitext : '.ppt';
unitlibext : '.ppl';
@ -1259,7 +1249,6 @@ implementation
cpu : m68k;
short_name : 'MACOS';
unit_env : '';
system_unit : 'sysmac';
smartext : '.sl';
unitext : '.ppt';
unitlibext : '.ppl';
@ -1283,7 +1272,6 @@ implementation
cpu : m68k;
short_name : 'LINUX';
unit_env : 'LINUXUNITS';
system_unit : 'syslinux';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
@ -1307,7 +1295,6 @@ implementation
cpu : m68k;
short_name : 'PALMOS';
unit_env : 'PALMUNITS';
system_unit : 'syspalm';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
@ -1333,7 +1320,6 @@ implementation
cpu : alpha;
short_name : 'LINUX';
unit_env : 'LINUXUNITS';
system_unit : 'syslinux';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
@ -1359,7 +1345,6 @@ implementation
cpu : powerpc;
short_name : 'LINUX';
unit_env : '';
system_unit : 'syslinux';
smartext : '.sl';
unitext : '.ppu';
unitlibext : '.ppl';
@ -1383,7 +1368,6 @@ implementation
cpu : powerpc;
short_name : 'MACOS';
unit_env : '';
system_unit : 'sysmac';
smartext : '.sl';
unitext : '.ppt';
unitlibext : '.ppl';
@ -1725,7 +1709,10 @@ begin
end.
{
$Log$
Revision 1.10 2000-09-24 21:12:41 hajny
Revision 1.11 2000-10-15 09:08:58 peter
* use System for the systemunit instead of target dependent
Revision 1.10 2000/09/24 21:12:41 hajny
* OS/2 stack alignment corrected + default stack increased
Revision 1.9 2000/09/24 15:06:30 peter