paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 10:29:08 +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; storefilepos : tfileposinfo;
cursectype : TAsmSectionType; cursectype : TAsmSectionType;
cural : tasmlist; cural : tasmlist;
sizelabel : tasmlabel;
procedure check_range(def:torddef); procedure check_range(def:torddef);
begin begin
if ((tordconstnode(p).value>def.high) or if ((tordconstnode(p).value>def.high) or
(tordconstnode(p).value<def.low)) then (tordconstnode(p).value<def.low)) then
begin begin
if (cs_check_range in aktlocalswitches) then if (cs_check_range in aktlocalswitches) then
Message(parser_e_range_check_error) Message(parser_e_range_check_error)
else else
Message(parser_w_range_check_error); Message(parser_w_range_check_error);
end; end;
end; end;
begin begin
old_block_type:=block_type; old_block_type:=block_type;
@ -1022,6 +1023,15 @@ implementation
end; end;
myexit: myexit:
block_type:=old_block_type; 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; end;
{$ifdef fpc} {$ifdef fpc}
{$maxfpuregisters default} {$maxfpuregisters default}