Commit 73cb9f73 authored by johnvg@science.ru.nl's avatar johnvg@science.ru.nl

use dINT instead of INT on 64 bit systems, use e____predef__d__Unit for _Unit

parent 834d5e52
...@@ -318,7 +318,7 @@ make_symbol_name :: !String !String !Int -> String; ...@@ -318,7 +318,7 @@ make_symbol_name :: !String !String !Int -> String;
make_symbol_name "_system" descriptor_name prefix make_symbol_name "_system" descriptor_name prefix
= case descriptor_name of { = case descriptor_name of {
"INT" "INT"
-> descriptor_name; -> IF_INT_64_OR_32 "dINT" descriptor_name;
"CHAR" "CHAR"
-> descriptor_name; -> descriptor_name;
"REAL" "REAL"
...@@ -369,6 +369,8 @@ make_symbol_name "_system" descriptor_name prefix ...@@ -369,6 +369,8 @@ make_symbol_name "_system" descriptor_name prefix
-> "e__system__"+++prefix_char prefix+++descriptor_name; -> "e__system__"+++prefix_char prefix+++descriptor_name;
"_ind" "_ind"
-> "e__system__"+++prefix_char prefix+++"ind"; -> "e__system__"+++prefix_char prefix+++"ind";
"_Unit"
-> "e____predef__d__Unit";
_ _
// -> "e____system__"+++prefix_char prefix+++expand_special_characters 0 descriptor_name; // -> "e____system__"+++prefix_char prefix+++expand_special_characters 0 descriptor_name;
-> prefix_char prefix+++expand_special_characters 0 descriptor_name; -> prefix_char prefix+++expand_special_characters 0 descriptor_name;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment