From 926a6c2d3edb23f62d1a848cd716ace46ea91ce9 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 15 Aug 1999 10:47:48 +0000
Subject: [PATCH]   + normalset,smallset writing

---
 compiler/ppu.pas | 33 ++++++++++++++++++++++++++++++++-
 1 file changed, 32 insertions(+), 1 deletion(-)

diff --git a/compiler/ppu.pas b/compiler/ppu.pas
index 0d9e4c1175..86a8491277 100644
--- a/compiler/ppu.pas
+++ b/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