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

+ HEAP* stuff must be generated for Linux/PPC as well

Browse Source 
+ direct assembler reader searches now global and static symtables as well
This commit is contained in:
florian 2002-08-31 15:59:30 +00:00
parent d78a124122
commit 5e60724d23
2 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/pmodules.pas
View File

@ -284,14 +284,14 @@ implementation
system_i386_OS2: system_i386_OS2:
; ;
{$endif i386} {$endif i386}
{$ifdef powerpc}
system_powerpc_macos:
;
{$endif powerpc}
{$ifdef alpha} {$ifdef alpha}
system_alpha_linux: system_alpha_linux:
; ;
{$endif alpha} {$endif alpha}
{$ifdef powerpc}
system_powerpc_linux:
;
{$endif powerpc}
{$ifdef m68k} {$ifdef m68k}
system_m68k_Mac: system_m68k_Mac:
bssSegment.concat(Tai_datablock.Create_global('HEAP',4)); bssSegment.concat(Tai_datablock.Create_global('HEAP',4));
@ -1387,7 +1387,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.74 2002-08-25 19:25:20 peter Revision 1.75 2002-08-31 15:59:30 florian
+ HEAP* stuff must be generated for Linux/PPC as well
+ direct assembler reader searches now global and static symtables as well
Revision 1.74 2002/08/25 19:25:20 peter
* sym.insert_in_data removed * sym.insert_in_data removed
* symtable.insertvardata/insertconstdata added * symtable.insertvardata/insertconstdata added
* removed insert_in_data call from symtable.insert, it needs to be * removed insert_in_data call from symtable.insert, it needs to be

14
compiler/powerpc/radirect.pas
View File

@ -200,8 +200,7 @@ interface
if pos(',',s) > 0 then if pos(',',s) > 0 then
tvarsym(sym).varstate:=vs_used; tvarsym(sym).varstate:=vs_used;
end; end;
end; end
{$ifdef dummy}
{ I added that but it creates a problem in line.ppi { I added that but it creates a problem in line.ppi
because there is a local label wbuffer and because there is a local label wbuffer and
a static variable WBUFFER ... a static variable WBUFFER ...
@ -226,7 +225,7 @@ interface
procsym : procsym :
begin begin
{ procs can be called or the address can be loaded } { procs can be called or the address can be loaded }
if ((pos('CALL',upper(s))>0) or (pos('LEA',upper(s))>0)) then if (pos('BL',upper(s))>0) {or (pos('LEA',upper(s))>0))} then
begin begin
if assigned(tprocsym(sym).defs^.def) then if assigned(tprocsym(sym).defs^.def) then
Message1(asmr_w_direct_global_is_overloaded_func,hs); Message1(asmr_w_direct_global_is_overloaded_func,hs);
@ -238,6 +237,7 @@ interface
Message(asmr_e_wrong_sym_type); Message(asmr_e_wrong_sym_type);
end; end;
end end
{$ifdef dummy}
else if upper(hs)='__SELF' then else if upper(hs)='__SELF' then
begin begin
if assigned(procinfo^._class) then if assigned(procinfo^._class) then
@ -267,8 +267,8 @@ interface
end; end;
} }
end; end;
end;
{$endif dummy} {$endif dummy}
end;
end; end;
end; end;
end; end;
@ -314,7 +314,11 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.2 2002-08-18 21:36:42 florian Revision 1.3 2002-08-31 15:59:31 florian
+ HEAP* stuff must be generated for Linux/PPC as well
+ direct assembler reader searches now global and static symtables as well
Revision 1.2 2002/08/18 21:36:42 florian
+ handling of local variables in direct reader implemented + handling of local variables in direct reader implemented
Revision 1.1 2002/08/10 14:52:52 carl Revision 1.1 2002/08/10 14:52:52 carl