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

compiler/catch.pas

@@ -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

compiler/symsym.inc

@@ -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