paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 18:29:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support for arraydefs in is_signed (for their rangetype, used in rangechecks)

Browse Source
This commit is contained in:
Jonas Maebe 2001-03-03 12:38:33 +00:00
parent d6116bc751
commit 4530233a92
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/types.pas
View File

@ -549,6 +549,8 @@ implementation
end;
enumdef :
is_signed:=penumdef(def)^.min < 0;
arraydef :
is_signed:=is_signed(parraydef(def)^.rangetype.def);
else
is_signed:=false;
end;
@ -1741,7 +1743,10 @@ implementation
end.
{
$Log$
Revision 1.34 2001-02-26 19:44:55 peter
Revision 1.35 2001-03-03 12:38:33 jonas
+ support for arraydefs in is_signed (for their rangetype, used in rangechecks)
Revision 1.34 2001/02/26 19:44:55 peter
* merged generic m68k updates from fixes branch
Revision 1.33 2001/02/26 12:47:46 jonas