* pas2jni: fixed error during records processing.

git-svn-id: trunk@24514 -

utils/pas2jni/ppuparser.pas

@@ -312,7 +312,7 @@ var
         end
         else
         if jt = 'rec' then begin
-          if IsSystemUnit and (CompareText(it.Strings['Name'], 'tguid') = 0) then begin
+          if IsSystemUnit and (CompareText(CurObjName, 'tguid') = 0) then begin
             d:=TTypeDef.Create(CurDef, dtType);
             TTypeDef(d).BasicType:=btGuid;
           end