Explorar o código

* fix to compile for linux

pierre %!s(int64=24) %!d(string=hai) anos
pai
achega
f68237fcc0
Modificáronse 1 ficheiros con 9 adicións e 3 borrados
  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.