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

Avoid line > 255 chars and range check error on THandle type

Browse Source 
git-svn-id: trunk@17848 -
This commit is contained in:
pierre 2011-06-27 20:58:02 +00:00
parent 3938f5e0b9
commit 311d99b416
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ognlm.pas
View File

@ -1198,7 +1198,12 @@ function SecOpts(SecOptions:TObjSectionOptions):string;
targetSectionName := '';
if objreloc.symbol <> nil then
begin
// writeln (' MemPos',objsec.MemPos,' dataOfs:',objreloc.dataoffset,' ',objsec.name,' objreloc.symbol: ',objreloc.symbol.name,' objreloc.symbol.objsection.name: ',objreloc.symbol.objsection.name,' ',objreloc.symbol.Typ,' ',objreloc.symbol.bind,' ',objreloc.Typ);
// writeln (' MemPos',objsec.MemPos,
// ' dataOfs:',objreloc.dataoffset,' ',objsec.name,
// ' objreloc.symbol: ',objreloc.symbol.name,
// ' objreloc.symbol.objsection.name: ',objreloc.symbol.objsection.name,
// ' ',objreloc.symbol.Typ,' ',objrel
// oc.symbol.bind,' ',objreloc.Typ);
if objreloc.symbol.objsection.name[1] <> '.' then
targetSectionName := objreloc.symbol.name // specials like __bss_start__
else // dont use objsection.name because it begins with *
@ -1313,7 +1318,7 @@ function SecOpts(SecOptions:TObjSectionOptions):string;
exit;
end;
fileH := fileOpen (fn,fmOpenRead);
if fileH = -1 then
if fileH = THandle(-1) then
begin
comment(v_error,'can not open '+desc+' file '+fn);
exit;