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

* removed oldppu from propertysym

Browse Source
This commit is contained in:
peter 1999-07-23 11:33:23 +00:00
parent 1035a30a91
commit f9c4d1b3a7
1 changed files with 4 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
compiler/symsym.inc
View File

@ -602,15 +602,9 @@
index:=readlong; index:=readlong;
default:=readlong; default:=readlong;
{ it's hack ... } { it's hack ... }
{$ifdef oldpropppu}
readaccesssym:=psym(stringdup(readstring));
writeaccesssym:=psym(stringdup(readstring));
storedsym:=psym(stringdup(readstring));
{$else oldpropppu}
readaccesssym:=readsymref; readaccesssym:=readsymref;
writeaccesssym:=readsymref; writeaccesssym:=readsymref;
storedsym:=readsymref; storedsym:=readsymref;
{$endif oldpropppu}
{ now the defs: } { now the defs: }
readaccessdef:=readdefref; readaccessdef:=readdefref;
writeaccessdef:=readdefref; writeaccessdef:=readdefref;
@ -624,46 +618,9 @@
resolvedef(readaccessdef); resolvedef(readaccessdef);
resolvedef(writeaccessdef); resolvedef(writeaccessdef);
resolvedef(storeddef); resolvedef(storeddef);
{$ifdef oldpropppu}
{ solve the hack we did in load: }
if pstring(readaccesssym)^<>'' then
begin
srsym:=search_class_member(pobjectdef(owner^.defowner),pstring(readaccesssym)^);
if not(assigned(srsym)) then
srsym:=generrorsym;
end
else
srsym:=nil;
stringdispose(pstring(readaccesssym));
readaccesssym:=srsym;
if pstring(writeaccesssym)^<>'' then
begin
srsym:=search_class_member(pobjectdef(owner^.defowner),pstring(writeaccesssym)^);
if not(assigned(srsym)) then
srsym:=generrorsym;
end
else
srsym:=nil;
stringdispose(pstring(writeaccesssym));
writeaccesssym:=srsym;
if pstring(storedsym)^<>'' then
begin
srsym:=search_class_member(pobjectdef(owner^.defowner),pstring(storedsym)^);
if not(assigned(srsym)) then
srsym:=generrorsym;
end
else
srsym:=nil;
stringdispose(pstring(storedsym));
storedsym:=srsym;
{$else oldpropppu}
resolvesym(readaccesssym); resolvesym(readaccesssym);
resolvesym(writeaccesssym); resolvesym(writeaccesssym);
resolvesym(storedsym); resolvesym(storedsym);
{$endif oldpropppu}
end; end;
function tpropertysym.getsize : longint; function tpropertysym.getsize : longint;
@ -680,24 +637,9 @@
writelong(options); writelong(options);
writelong(index); writelong(index);
writelong(default); writelong(default);
{$ifdef oldpropppu}
if assigned(readaccesssym) then
writestring(readaccesssym^.name)
else
writestring('');
if assigned(writeaccesssym) then
writestring(writeaccesssym^.name)
else
writestring('');
if assigned(storedsym) then
writestring(storedsym^.name)
else
writestring('');
{$else oldpropppu}
writesymref(readaccesssym); writesymref(readaccesssym);
writesymref(writeaccesssym); writesymref(writeaccesssym);
writesymref(storedsym); writesymref(storedsym);
{$endif oldpropppu}
writedefref(readaccessdef); writedefref(readaccessdef);
writedefref(writeaccessdef); writedefref(writeaccessdef);
writedefref(storeddef); writedefref(storeddef);
@ -2040,7 +1982,10 @@
{ {
$Log$ $Log$
Revision 1.98 1999-07-22 09:37:55 florian Revision 1.99 1999-07-23 11:33:23 peter
* removed oldppu from propertysym
Revision 1.98 1999/07/22 09:37:55 florian
+ resourcestring implemented + resourcestring implemented
+ start of longstring support + start of longstring support