paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 00:59:12 +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 : sec_data :
begin begin
if win32 then if win32 then
Flags:=$c0300040 Flags:=longint($c0300040)
else else
Flags:=$40; Flags:=$40;
Aalign:=4; Aalign:=4;
@ -243,7 +243,7 @@ implementation
sec_bss : sec_bss :
begin begin
if win32 then if win32 then
Flags:=$c0300080 Flags:=longint($c0300080)
else else
Flags:=$80; Flags:=$80;
Aalign:=4; Aalign:=4;
@ -260,7 +260,7 @@ implementation
sec_edata : sec_edata :
begin begin
if win32 then if win32 then
Flags:=$c0300040; Flags:=longint($c0300040);
end; end;
end; end;
sects[sec]:=new(PcoffSection,InitSec(Sec,AAlign,Flags)); sects[sec]:=new(PcoffSection,InitSec(Sec,AAlign,Flags));
@ -748,7 +748,10 @@ implementation
end. end.
{ {
$Log$ $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 * fixed stab reloc writing
Revision 1.2 2000/12/07 17:19:42 jonas Revision 1.2 2000/12/07 17:19:42 jonas