diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-09-05 06:05:19 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-09-05 06:05:19 +0200 |
| commit | fe6ff5794545ce9f7d00985b55cf9d5b18725ea0 (patch) | |
| tree | 9a61d61c8981ac292c27a94a2cf5c9aa1bf62143 /simulate/file_operation.adb | |
| parent | 6d8c5299f20b4cd8f1e049f7eea454c00a3102b7 (diff) | |
| download | ghdl-fe6ff5794545ce9f7d00985b55cf9d5b18725ea0.tar.gz ghdl-fe6ff5794545ce9f7d00985b55cf9d5b18725ea0.tar.bz2 ghdl-fe6ff5794545ce9f7d00985b55cf9d5b18725ea0.zip | |
First run (using mcode) of OSVVM_2014_01.
Diffstat (limited to 'simulate/file_operation.adb')
| -rw-r--r-- | simulate/file_operation.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/simulate/file_operation.adb b/simulate/file_operation.adb index 2404c4066..33700fd6c 100644 --- a/simulate/file_operation.adb +++ b/simulate/file_operation.adb @@ -186,8 +186,8 @@ package body File_Operation is Value: Iir_Value_Literal_Acc) is begin case Value.Kind is - when Iir_Value_B2 => - Ghdl_Write_Scalar (File.File, Ghdl_Ptr (Value.B2'Address), 1); + when Iir_Value_B1 => + Ghdl_Write_Scalar (File.File, Ghdl_Ptr (Value.B1'Address), 1); when Iir_Value_I64 => Ghdl_Write_Scalar (File.File, Ghdl_Ptr (Value.I64'Address), 8); when Iir_Value_E32 => @@ -284,8 +284,8 @@ package body File_Operation is is begin case Value.Kind is - when Iir_Value_B2 => - Ghdl_Read_Scalar (File.File, Ghdl_Ptr (Value.B2'Address), 1); + when Iir_Value_B1 => + Ghdl_Read_Scalar (File.File, Ghdl_Ptr (Value.B1'Address), 1); when Iir_Value_I64 => Ghdl_Read_Scalar (File.File, Ghdl_Ptr (Value.I64'Address), 8); when Iir_Value_E32 => |