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

* fixed indentation, simplified calling read_record_fields()

Browse Source 
git-svn-id: trunk@14837 -
This commit is contained in:
Jonas Maebe 2010-01-31 20:54:48 +00:00
parent 8e77c6998b
commit 4469501835
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/pdecobj.pas
View File

@ -527,6 +527,7 @@ implementation
old_parse_generic : boolean;
object_member_blocktype : tblock_type;
fields_allowed, is_classdef, classfields: boolean;
vdoptions: tvar_dec_options;
begin
{ empty class declaration ? }
if (current_objectdef.objecttype in [odt_class,odt_objcclass]) and
@ -673,16 +674,14 @@ implementation
if (not fields_allowed) then
Message(parser_e_field_not_allowed_here);
vdoptions:=[vd_object];
if classfields then
read_record_fields([vd_object,vd_class])
else
read_record_fields([vd_object])
include(vdoptions,vd_class);
read_record_fields(vdoptions);
end
else
if object_member_blocktype=bt_type then
else if object_member_blocktype=bt_type then
types_dec(true)
else
if object_member_blocktype=bt_const then
else if object_member_blocktype=bt_const then
consts_dec(true)
else
internalerror(201001110);