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

* fixed range check errors

Browse Source
This commit is contained in:
Jonas Maebe 2000-12-20 15:59:04 +00:00
parent 1aad3ddf9a
commit fe583e251f
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ogcoff.pas
View File

@ -235,7 +235,7 @@ implementation
sec_data :
begin
if win32 then
Flags:=$c0300040
Flags:=longint($c0300040)
else
Flags:=$40;
Aalign:=4;
@ -243,7 +243,7 @@ implementation
sec_bss :
begin
if win32 then
Flags:=$c0300080
Flags:=longint($c0300080)
else
Flags:=$80;
Aalign:=4;
@ -260,7 +260,7 @@ implementation
sec_edata :
begin
if win32 then
Flags:=$c0300040;
Flags:=longint($c0300040);
end;
end;
sects[sec]:=new(PcoffSection,InitSec(Sec,AAlign,Flags));
@ -748,7 +748,10 @@ implementation
end.
{
$Log$
Revision 1.3 2000-12-18 21:56:35 peter
Revision 1.4 2000-12-20 15:59:04 jonas
* fixed range check errors
Revision 1.3 2000/12/18 21:56:35 peter
* fixed stab reloc writing
Revision 1.2 2000/12/07 17:19:42 jonas