+ normalset,smallset writing

compiler/ppu.pas

@@ -208,6 +208,8 @@ type
     function  getlongint:longint;
     function  getreal:ppureal;
     function  getstring:string;
+    procedure getnormalset(var b);
+    procedure getsmallset(var b);
     function  skipuntilentry(untilb:byte):boolean;
   {write}
     function  create:boolean;
@@ -221,6 +223,8 @@ type
     procedure putlongint(l:longint);
     procedure putreal(d:ppureal);
     procedure putstring(s:string);
+    procedure putnormalset(var b);
+    procedure putsmallset(var b);
   end;
 
 implementation
@@ -656,6 +660,18 @@ begin
 end;
 
 
+procedure tppufile.getsmallset(var b);
+begin
+  getdata(b,4);
+end;
+
+
+procedure tppufile.getnormalset(var b);
+begin
+  getdata(b,32);
+end;
+
+
 function tppufile.skipuntilentry(untilb:byte):boolean;
 var
   b : byte;
@@ -872,10 +888,25 @@ begin
 end;
 
 
+procedure tppufile.putsmallset(var b);
+begin
+  putdata(b,4);
+end;
+
+
+procedure tppufile.putnormalset(var b);
+begin
+  putdata(b,32);
+end;
+
+
 end.
 {
   $Log$
-  Revision 1.37  1999-08-02 23:13:20  florian
+  Revision 1.38  1999-08-15 10:47:48  peter
+    + normalset,smallset writing
+
+  Revision 1.37  1999/08/02 23:13:20  florian
     * more changes to compile for the Alpha
 
   Revision 1.36  1999/07/23 16:05:25  peter