* fixed off by one error when writing a GRPDEF record

git-svn-id: trunk@30413 -

compiler/omfbase.pas

@@ -671,8 +671,7 @@ implementation
       Segment: Integer;
     begin
       RawRecord.RecordType:=RT_GRPDEF;
-      NextOfs:=1;
-      NextOfs:=RawRecord.WriteIndexedRef(NextOfs,GroupNameIndex);
+      NextOfs:=RawRecord.WriteIndexedRef(0,GroupNameIndex);
       for Segment in SegmentList do
         begin
           if NextOfs>High(RawRecord.RawData) then