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

* property reading from PPU fixed (new PPU format), it uses now writesym...

Browse Source
This commit is contained in:
florian 1999-07-05 12:13:22 +00:00
parent af1334174b
commit 72e21acee1
2 changed files with 30 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/catch.pas
View File

@ -77,6 +77,7 @@ end;
begin
{$ifndef nocatch}
{$ifdef has_signal}
{$ifndef TP}
NewSignal:=SignalHandler(@CatchSignal);
@ -87,11 +88,15 @@ begin
OldSigInt:=Signal (SIGINT,NewSignal);
OldSigFPE:=Signal (SIGFPE,NewSignal);
{$endif}
{$endif nocatch}
end.
{
$Log$
Revision 1.6 1999-06-02 22:44:05 pierre
Revision 1.7 1999-07-05 12:13:22 florian
* property reading from PPU fixed (new PPU format), it uses now writesym...
Revision 1.6 1999/06/02 22:44:05 pierre
* previous wrong log corrected
Revision 1.5 1999/06/02 22:25:28 pierre

26
compiler/symsym.inc
View File

@ -602,9 +602,15 @@
index:=readlong;
default:=readlong;
{ it's hack ... }
{$ifdef oldpropppu}
readaccesssym:=psym(stringdup(readstring));
writeaccesssym:=psym(stringdup(readstring));
storedsym:=psym(stringdup(readstring));
{$else oldpropppu}
readaccesssym:=readsymref;
writeaccesssym:=readsymref;
storedsym:=readsymref;
{$endif oldpropppu}
{ now the defs: }
readaccessdef:=readdefref;
writeaccessdef:=readdefref;
@ -618,6 +624,8 @@
resolvedef(readaccessdef);
resolvedef(writeaccessdef);
resolvedef(storeddef);
{$ifdef oldpropppu}
{ solve the hack we did in load: }
if pstring(readaccesssym)^<>'' then
begin
@ -651,6 +659,11 @@
srsym:=nil;
stringdispose(pstring(storedsym));
storedsym:=srsym;
{$else oldpropppu}
resolvesym(readaccesssym);
resolvesym(writeaccesssym);
resolvesym(storedsym);
{$endif oldpropppu}
end;
function tpropertysym.getsize : longint;
@ -667,6 +680,7 @@
writelong(options);
writelong(index);
writelong(default);
{$ifdef oldpropppu}
if assigned(readaccesssym) then
writestring(readaccesssym^.name)
else
@ -679,6 +693,11 @@
writestring(storedsym^.name)
else
writestring('');
{$else oldpropppu}
writesymref(readaccesssym);
writesymref(writeaccesssym);
writesymref(storedsym);
{$endif oldpropppu}
writedefref(readaccessdef);
writedefref(writeaccessdef);
writedefref(storeddef);
@ -974,7 +993,7 @@
writelong(address);
writedefref(definition);
{ symbols which are load are never candidates for a register,
turn of the regable }
turn off the regable }
writebyte(var_options and (not vo_regable));
if (var_options and vo_is_C_var)<>0 then
writestring(mangledname);
@ -2019,7 +2038,10 @@
{
$Log$
Revision 1.96 1999-06-28 10:49:48 pierre
Revision 1.97 1999-07-05 12:13:25 florian
* property reading from PPU fixed (new PPU format), it uses now writesym...
Revision 1.96 1999/06/28 10:49:48 pierre
merged from 0-99-12 branch
Revision 1.94.2.2 1999/06/28 10:32:29 pierre