From 013c41bf28a636e32d7b62e89293f4ff172a5491 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 2 Apr 2020 08:20:42 +0200 Subject: synth: more cleanup (and use of valtyp). --- src/synth/synth-files_operations.adb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/synth/synth-files_operations.adb') diff --git a/src/synth/synth-files_operations.adb b/src/synth/synth-files_operations.adb index f5f996a6e..d840035be 100644 --- a/src/synth/synth-files_operations.adb +++ b/src/synth/synth-files_operations.adb @@ -44,7 +44,7 @@ package body Synth.Files_Operations is end File_Error; -- VAL represents a string, so an array of characters. - procedure Convert_String (Val : Value_Acc; Res : out String) + procedure Convert_String (Val : Valtyp; Res : out String) is Vtyp : constant Type_Acc := Val.Typ; begin @@ -54,9 +54,9 @@ package body Synth.Files_Operations is pragma Assert (Vtyp.Abounds.Len = 1); pragma Assert (Vtyp.Abounds.D (1).Len = Res'Length); - for I in Val.Arr.V'Range loop + for I in Val.Val.Arr.V'Range loop Res (Res'First + Natural (I - 1)) := - Character'Val (Val.Arr.V (I).Scal); + Character'Val (Val.Val.Arr.V (I).Scal); end loop; end Convert_String; @@ -66,10 +66,10 @@ package body Synth.Files_Operations is Len : out Natural; Status : out Op_Status) is - Name : constant Value_Acc := Strip_Alias_Const (Val.Val); + Name : constant Valtyp := Strip_Alias_Const (Val); pragma Unreferenced (Val); begin - Len := Natural (Name.Arr.Len); + Len := Natural (Name.Val.Arr.Len); if Len >= Res'Length - 1 then Status := Op_Filename_Error; -- cgit v1.2.3