Changeset 1494 for trunk/compiler

Show
Ignore:
Timestamp:
09/12/04 06:56:49 (4 years ago)
Author:
pmoura
Message:

Corrected a bug (not present in previous stable versions) with parametric entities (due to changes to support the new alias/3 predicate directive).

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/compiler/logtalk.pl

    r1488 r1494  
    56035603 
    56045604'$lgt_gen_category_imports_def_clauses' :- 
    5605     '$lgt_pp_category_'(_, Prefix, _, Def), 
     5605    '$lgt_pp_category_'(Ctg, Prefix, _, Def), 
     5606    '$lgt_pp_rclause_'('$lgt_imports_category_'(Ctg, Ctg2, _)),     % needed for parameter passing 
    56065607    '$lgt_pp_imported_category_'(Ctg2, _, _, Def2, _), 
    56075608    Lookup =.. [Def2, Pred, Sender, This, Self, Call, Ctn], 
    … …  
    57485749'$lgt_gen_prototype_imports_def_clauses' :- 
    57495750    '$lgt_pp_object_'(Obj, Prefix, _, ODef, _, _, _, _, _), 
     5751    '$lgt_pp_rclause_'('$lgt_imports_category_'(Obj, Ctg, _)),          % needed for parameter passing 
    57505752    '$lgt_pp_imported_category_'(Ctg, _, _, CDef, _), 
    57515753    Lookup =.. [CDef, Pred, Sender, Obj, Self, Call, Ctn], 
    … …  
    57665768'$lgt_gen_prototype_extends_def_clauses' :- 
    57675769    '$lgt_pp_object_'(Obj, Prefix, _, ODef, _, _, _, _, _), 
     5770    '$lgt_pp_rclause_'('$lgt_extends_object_'(Obj, Parent, _)),         % needed for parameter passing 
    57685771    '$lgt_pp_extended_object_'(Parent, _, _, PDef, _, _, _, _, _, _), 
    57695772    Lookup =.. [PDef, Pred, Sender, Parent, Self, Call, Ctn], 
    … …  
    57955798'$lgt_gen_prototype_super_clauses' :- 
    57965799    '$lgt_pp_object_'(Obj, Prefix, _, _, OSuper, _, _, _, _), 
     5800    '$lgt_pp_rclause_'('$lgt_extends_object_'(Obj, Parent, _)),         % needed for parameter passing 
    57975801    '$lgt_pp_extended_object_'(Parent, _, _, PDef, _, _, _, _, _, _), 
    57985802    Lookup =.. [PDef, Pred, Sender, Parent, Self, Call, Ctn], 
    … …  
    59825986'$lgt_gen_ic_imports_def_clauses' :- 
    59835987    '$lgt_pp_object_'(Obj, Prefix, _, ODef, _, _, _, _, _), 
     5988    '$lgt_pp_rclause_'('$lgt_imports_category_'(Obj, Ctg, _)),      % needed for parameter passing 
    59845989    '$lgt_pp_imported_category_'(Ctg, _, _, CDef, _), 
    59855990    Lookup =.. [CDef, Pred, Sender, Obj, Self, Call, Ctn], 
    … …  
    60006005'$lgt_gen_ic_hierarchy_def_clauses' :- 
    60016006    '$lgt_pp_object_'(Obj, Prefix, _, ODef, _, _, _, _, _), 
     6007    '$lgt_pp_rclause_'('$lgt_instantiates_class_'(Obj, Class, _)),  % needed for parameter passing 
    60026008    '$lgt_pp_instantiated_class_'(Class, _, _, _, _, _, CIDef, _, _, _), 
    60036009    Lookup =.. [CIDef, Pred, Sender, Class, Self, Call, Ctn], 
    … …  
    60366042'$lgt_gen_ic_category_idef_clauses' :- 
    60376043    '$lgt_pp_object_'(Obj, Prefix, _, _, _, _, OIDef, _, _), 
     6044    '$lgt_pp_rclause_'('$lgt_imports_category_'(Obj, Ctg, _)),      % needed for parameter passing 
    60386045    '$lgt_pp_imported_category_'(Ctg, _, _, CDef, _), 
    60396046    Lookup =.. [CDef, Pred, Sender, Obj, Self, Call], 
    … …  
    60546061'$lgt_gen_ic_hierarchy_idef_clauses' :- 
    60556062    '$lgt_pp_object_'(Class, Prefix, _, _, _, _, CIDef, _, _), 
     6063    '$lgt_pp_rclause_'('$lgt_specializes_class_'(Class, Super, _)),     % needed for parameter passing 
    60566064    '$lgt_pp_specialized_class_'(Super, _, _, _, _, _, SIDef, _, _, _), 
    60576065    Lookup =.. [SIDef, Pred, Sender, Super, Self, Call, Ctn], 
    … …  
    60846092'$lgt_gen_ic_super_clauses' :- 
    60856093    '$lgt_pp_object_'(Obj, Prefix, _, _, OSuper, _, _, _, _), 
     6094    '$lgt_pp_rclause_'('$lgt_instantiates_class_'(Obj, Class, _)),      % needed for parameter passing 
    60866095    '$lgt_pp_instantiated_class_'(Class, _, _, _, _, _, CIDef, _, _, _), 
    60876096    Lookup =.. [CIDef, Pred, Sender, Class, Obj, Call, Ctn], 
    … …  
    61006109'$lgt_gen_ic_super_clauses' :- 
    61016110    '$lgt_pp_object_'(Class, Prefix, _, _, CSuper, _, _, _, _), 
     6111    '$lgt_pp_rclause_'('$lgt_specializes_class_'(Class, Super, _)),     % needed for parameter passing 
    61026112    '$lgt_pp_specialized_class_'(Super, _, _, _, _, _, SIDef, _, _, _), 
    61036113    Lookup =.. [SIDef, Pred, Sender, Super, Self, Call, Ctn],