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

* binary writer fix for GO32v2 from Peter

Browse Source
This commit is contained in:
Tomas Hajny 2004-08-24 19:31:44 +00:00
parent 111ff2e6b2
commit a3d82fd80f
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/assemble.pas
View File

@ -1039,6 +1039,8 @@ Implementation
not SmartAsm then not SmartAsm then
begin begin
objectdata.allocsymbol(currpass,Tai_datablock(hp).sym,Tai_datablock(hp).size); objectdata.allocsymbol(currpass,Tai_datablock(hp).sym,Tai_datablock(hp).size);
{ common/external uses the size for address }
Tai_datablock(hp).sym.address:=Tai_datablock(hp).size;
{ force to be common/external, must be after setaddress as that would { force to be common/external, must be after setaddress as that would
set it to AB_GLOBAL } set it to AB_GLOBAL }
Tai_datablock(hp).sym.currbind:=AB_COMMON; Tai_datablock(hp).sym.currbind:=AB_COMMON;
@ -1629,7 +1631,10 @@ Implementation
end. end.
{ {
$Log$ $Log$
Revision 1.71 2004-07-01 18:28:54 jonas Revision 1.72 2004-08-24 19:31:44 hajny
* binary writer fix for GO32v2 from Peter
Revision 1.71 2004/07/01 18:28:54 jonas
+ detect assembler errors when using -ap + detect assembler errors when using -ap
Revision 1.70 2004/07/01 15:42:53 peter Revision 1.70 2004/07/01 15:42:53 peter

9
compiler/ogcoff.pas
View File

@ -605,7 +605,9 @@ const go32v2stub : array[0..2047] of byte=(
curraddr:=currsec.mempos+currsec.datasize; curraddr:=currsec.mempos+currsec.datasize;
{ real address of the symbol } { real address of the symbol }
symaddr:=p.address; symaddr:=p.address;
if p.section<>nil then { external/common symbols don't have a fixed memory position yet }
if (p.section<>nil) and
(p.currbind<>AB_COMMON) then
inc(symaddr,p.section.mempos); inc(symaddr,p.section.mempos);
{ no symbol relocation need inside a section } { no symbol relocation need inside a section }
if (p.section=currsec) and if (p.section=currsec) and
@ -1784,7 +1786,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.29 2004-06-20 08:55:30 florian Revision 1.30 2004-08-24 19:31:44 hajny
* binary writer fix for GO32v2 from Peter
Revision 1.29 2004/06/20 08:55:30 florian
* logs truncated * logs truncated
Revision 1.28 2004/06/16 20:07:09 florian Revision 1.28 2004/06/16 20:07:09 florian