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

* block_type is bt_const when parsing typed consts

Browse Source
This commit is contained in:
peter 2004-04-11 10:44:23 +00:00
parent 6234729fbc
commit 3379959c50
1 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
compiler/ptconst.pas
View File

@ -60,6 +60,9 @@ implementation
{ this procedure reads typed constants }
procedure readtypedconst(const t:ttype;sym : ttypedconstsym;writable : boolean);
type
setbytes = array[0..31] of byte;
Psetbytes = ^setbytes;
var
len,base : longint;
p,hp,hpstart : tnode;
@ -82,25 +85,24 @@ implementation
strval : pchar;
pw : pcompilerwidestring;
error : boolean;
old_block_type : tblock_type;
type
setbytes = array[0..31] of byte;
Psetbytes = ^setbytes;
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;
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;
{$R-} {Range check creates problem with init_8bit(-1) !!}
begin
old_block_type:=block_type;
block_type:=bt_const;
if writable then
curconstsegment:=datasegment
else
@ -1017,6 +1019,7 @@ implementation
end;
else Message(parser_e_type_const_not_possible);
end;
block_type:=old_block_type;
end;
{$ifdef fpc}
{$maxfpuregisters default}
@ -1025,7 +1028,10 @@ implementation
end.
{
$Log$
Revision 1.82 2004-03-18 11:43:57 olle
Revision 1.83 2004-04-11 10:44:23 peter
* block_type is bt_const when parsing typed consts
Revision 1.82 2004/03/18 11:43:57 olle
* change AT_FUNCTION to AT_DATA where appropriate
Revision 1.81 2004/03/17 22:27:41 florian