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

* constant value is now supported as stored condition

Browse Source
This commit is contained in:
florian 1998-09-07 19:34:47 +00:00
parent 26dbc1a7ba
commit d8ade70c23
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/objpas/typinfo.pp
View File

@ -43,6 +43,7 @@ unit typinfo;
ptField = 0; ptField = 0;
ptStatic = 1; ptStatic = 1;
ptVirtual = 2; ptVirtual = 2;
ptConst = 3;
const const
tkString = tkSString; tkString = tkSString;
@ -184,6 +185,11 @@ unit typinfo;
caller.Address:=PPointer(PPointer(Instance.ClassType)+Longint(PropInfo^.StoredProc))^; caller.Address:=PPointer(PPointer(Instance.ClassType)+Longint(PropInfo^.StoredProc))^;
IsStoredProc:=tbfunction(caller); IsStoredProc:=tbfunction(caller);
end; end;
4:
begin
IsStoredProp:=
LongBool(PropInfo^.StoredProc);
end;
end; end;
end; end;
@ -191,7 +197,10 @@ end.
{ {
$Log$ $Log$
Revision 1.3 1998-09-07 08:32:59 florian Revision 1.4 1998-09-07 19:34:47 florian
* constant value is now supported as stored condition
Revision 1.3 1998/09/07 08:32:59 florian
+ procedure IsStoredProc added + procedure IsStoredProc added
Revision 1.2 1998/09/06 21:27:05 florian Revision 1.2 1998/09/06 21:27:05 florian