From 5c24c696ff36c5a581383408f9d628fdbad9cd69 Mon Sep 17 00:00:00 2001 From: pjljvandelaar Date: Wed, 30 Nov 2022 09:18:11 +0100 Subject: [PATCH] prefer representation clauses - found and fixed by rejuvenation-ada --- src/audio-riff-wav-formats.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/audio-riff-wav-formats.adb b/src/audio-riff-wav-formats.adb index 536a909..6d9a4bc 100644 --- a/src/audio-riff-wav-formats.adb +++ b/src/audio-riff-wav-formats.adb @@ -367,8 +367,8 @@ package body Audio.RIFF.Wav.Formats is Item : out Channel_Configuration) is V : Channel_Configuration_Integer; - X : Channel_Configuration; - for X'Address use V'Address; + X : Channel_Configuration with + Address => V'Address; begin Channel_Configuration_Integer'Read (Stream, V); Item := X; @@ -383,8 +383,8 @@ package body Audio.RIFF.Wav.Formats is Item : Channel_Configuration) is V : Channel_Configuration_Integer; - X : Channel_Configuration; - for X'Address use V'Address; + X : Channel_Configuration with + Address => V'Address; begin X := Item; Channel_Configuration_Integer'Write (Stream, V);