Quellcode durchsuchen

* fix to compile for linux

pierre vor 24 Jahren
Ursprung
Commit
f68237fcc0
1 geänderte Dateien mit 9 neuen und 3 gelöschten Zeilen
  1. 9 3
      packages/gdbint/gdbver.pp

+ 9 - 3
packages/gdbint/gdbver.pp

@@ -5,9 +5,15 @@ program find_gdb_version;
 uses
   strings;
 
+const
+{$ifdef unix}
+  ver_name = 'version';
+{$else not unix}
+  ver_name = '_version';
+{$endif}
 var
-  v5_version : array[0..0] of char;external name '_version';
-  v4_version : pchar;external name '_version';
+  v5_version : array[0..0] of char;external name ver_name;
+  v4_version : pchar;external name ver_name;
   version : pchar;
   version_number : longint;
   only_ver : boolean;
@@ -32,4 +38,4 @@ begin
   if only_ver then
     Write(version_number);
   Halt(version_number);
-end.
+end.