paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 16:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed upper/lower case problem

Browse Source
This commit is contained in:
florian 2000-11-04 18:03:57 +00:00
parent 8dc903fc3b
commit 503ae69be0
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pdecobj.pas
View File

@ -569,9 +569,9 @@ implementation
aktclass:=new(pobjectdef,init(classtype,n,nil)); aktclass:=new(pobjectdef,init(classtype,n,nil));
{ is the current class tobject? } { is the current class tobject? }
{ so you could define your own tobject } { so you could define your own tobject }
if (cs_compilesystem in aktmoduleswitches) and (classtype=odt_class) and (n='TOBJECT') then if (cs_compilesystem in aktmoduleswitches) and (classtype=odt_class) and (upper(n)='TOBJECT') then
class_tobject:=aktclass class_tobject:=aktclass
else if (cs_compilesystem in aktmoduleswitches) and (classtype=odt_interfacecom) and (n='IUNKNOWN') then else if (cs_compilesystem in aktmoduleswitches) and (classtype=odt_interfacecom) and (upper(n)='IUNKNOWN') then
interface_iunknown:=aktclass interface_iunknown:=aktclass
else else
begin begin
@ -809,7 +809,7 @@ implementation
if n='' then if n='' then
Message(parser_f_no_anonym_objects); Message(parser_f_no_anonym_objects);
aktclass:=new(pobjectdef,init(odt_class,n,nil)); aktclass:=new(pobjectdef,init(odt_class,n,nil));
if (cs_compilesystem in aktmoduleswitches) and (n='TOBJECT') then if (cs_compilesystem in aktmoduleswitches) and (upper(n)='TOBJECT') then
class_tobject:=aktclass; class_tobject:=aktclass;
aktclass^.objecttype:=odt_class; aktclass^.objecttype:=odt_class;
include(aktclass^.objectoptions,oo_is_forward); include(aktclass^.objectoptions,oo_is_forward);
@ -1157,7 +1157,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.6 2000-11-04 17:31:00 florian Revision 1.7 2000-11-04 18:03:57 florian
* fixed upper/lower case problem
Revision 1.6 2000/11/04 17:31:00 florian
* fixed some problems of previous commit * fixed some problems of previous commit
Revision 1.5 2000/11/04 14:25:20 florian Revision 1.5 2000/11/04 14:25:20 florian