paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 03:31:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ allow packed file of ...

Browse Source 
+ allow @ to declare a pointer in iso mode

git-svn-id: trunk@15679 -
This commit is contained in:
florian 2010-07-31 20:42:06 +00:00
parent d0ea23f39e
commit aa05cf8b1a
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ptype.pas
View File

@ -943,6 +943,8 @@ implementation
array_dec(bitpacking) array_dec(bitpacking)
else if token=_SET then else if token=_SET then
set_dec set_dec
else if token=_FILE then
single_type(def,false,true)
else else
begin begin
oldpackrecords:=current_settings.packrecords; oldpackrecords:=current_settings.packrecords;
@ -1085,6 +1087,15 @@ implementation
handle_calling_convention(pd); handle_calling_convention(pd);
end; end;
end; end;
else
if (token=_KLAMMERAFFE) and (m_iso in current_settings.modeswitches) then
begin
consume(_KLAMMERAFFE);
single_type(tt2,(block_type=bt_type),false);
def:=tpointerdef.create(tt2);
if tt2.typ=forwarddef then
current_module.checkforwarddefs.add(def);
end
else else
expr_type; expr_type;
end; end;