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

* symbol_end for typed consts

Browse Source 
git-svn-id: trunk@2269 -
This commit is contained in:
florian 2006-01-12 20:38:22 +00:00
parent 1b9f2a8fa9
commit 44fb1f1db8
1 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/ptconst.pas
View File

@ -85,18 +85,19 @@ implementation
storefilepos : tfileposinfo;
cursectype : TAsmSectionType;
cural : tasmlist;
sizelabel : tasmlabel;
procedure check_range(def:torddef);
begin
if ((tordconstnode(p).value>def.high) or
(tordconstnode(p).value<def.low)) then
begin
if (cs_check_range in aktlocalswitches) then
Message(parser_e_range_check_error)
else
Message(parser_w_range_check_error);
end;
end;
begin
if ((tordconstnode(p).value>def.high) or
(tordconstnode(p).value<def.low)) then
begin
if (cs_check_range in aktlocalswitches) then
Message(parser_e_range_check_error)
else
Message(parser_w_range_check_error);
end;
end;
begin
old_block_type:=block_type;
@ -1022,6 +1023,15 @@ implementation
end;
myexit:
block_type:=old_block_type;
if assigned(sym) then
begin
storefilepos:=aktfilepos;
aktfilepos:=sym.fileinfo;
asmlist[cural].concat(tai_symbol_end.Createname(sym.mangledname));
aktfilepos:=storefilepos;
end;
end;
{$ifdef fpc}
{$maxfpuregisters default}