paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 08:51:10 +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

16
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,10 +85,7 @@ implementation
strval : pchar;
pw : pcompilerwidestring;
error : boolean;
type
setbytes = array[0..31] of byte;
Psetbytes = ^setbytes;
old_block_type : tblock_type;
procedure check_range(def:torddef);
begin
@ -101,6 +101,8 @@ implementation
{$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